[Error] Unit1.pas(50): Type of expression must be BOOLEAN

[2Kuhl4You]

Hilfe was mache ich hier Falsch?????

procedure TForm1.AbgleichenClick(Sender: TObject);
begin
ergebnis := StrToFloat (Form1.caption);
If VermutungsZahl := FloatToBool (ergebnis);
Then ShowMessage(Gewonnen);
end;

end.



Fehlermeldungen:
[Error] Unit1.pas(50): Type of expression must be BOOLEAN
[Error] Unit1.pas(56): Statement expected but end of file found


wieso?kann mir wer helfen? möglichsT schnell mache Praktikum und brauche eine Antwort

[Neutral General]

Bei Vergleichen benutzt man ein einfaches "=" und kein ":=".
Außerdem gibt es keine FloatToBool-Funktion.

PS: Du solltest um deinen Code mit delphi-Tags umschließen, dann wird der Code schöner angezeigt.

[mkinzler]

Delphi-Quellcode:

If VermutungsZahl = FloatToBool (ergebnis) Then 
  ShowMessage(Gewonnen);