Błąd FloatToStr

0

Witam. Pisałem mini kalkulator i napotkałem się na błąd:

[DCC Error] Unit3.pas(41): E2250 There is no overloaded version of 'FloatToStr' that can be called with these arguments
To mój kod:

procedure TForm3.bDodajClick(Sender: TObject);
var
a,b,wynik: real;


begin
  a:=StrToFloat(eLiczbaA.Text);
  b:=StrtoFloat(eLiczbaB.Text);
wynik := a+b;
eWynik.Text := FloatToStr (eWynik.Text);
end;
end.
2

Błąd jest w tej linii:

eWynik.Text := FloatToStr (eWynik.Text);

Funkcja FloatToStr przyjmuje jako argument zmienną typu Extended, a podajesz łańcuch eWynik.Text, więc jest niezgodność typów i dostajesz podpowiedź, że ta funkcja nie posiada odmiany, która przyjmuje jako argument łańcucha;

Wątek przenoszę do działu dla początkujących, ponieważ nie radzisz sobie z takimi podstawami, jak rozumienie błędów kompilacji i przeglądanie pomocy środowiska.

1

Więc co mam edytować żeby było poprawnie?

2

Linię, którą Ci wskazałem:

eWynik.Text := FloatToStr (eWynik.Text);

Jako argument funkcji podaj liczbę zmiennoprzecinkową, a nie tekst.

0

Rzeczywiście. Dziękuję bardzo.

1 użytkowników online, w tym zalogowanych: 0, gości: 1