Błąd FloatToStr

GR
  • Rejestracja: dni
  • Ostatnio: dni
  • Postów: 10
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:

Kopiuj
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.
flowCRANE
  • Rejestracja: dni
  • Ostatnio: dni
  • Lokalizacja: Tuchów
  • Postów: 12269
2

Błąd jest w tej linii:

Kopiuj
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.

GR
  • Rejestracja: dni
  • Ostatnio: dni
  • Postów: 10
1

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

flowCRANE
  • Rejestracja: dni
  • Ostatnio: dni
  • Lokalizacja: Tuchów
  • Postów: 12269
2

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

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

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

GR
  • Rejestracja: dni
  • Ostatnio: dni
  • Postów: 10
0

Rzeczywiście. Dziękuję bardzo.

Zarejestruj się i dołącz do największej społeczności programistów w Polsce.

Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.