Einzelnen Beitrag anzeigen

DanNyy

Registriert seit: 15. Jan 2013
1 Beiträge
 
#1

Problem mit 'if' 'then'

  Alt 15. Jan 2013, 21:12
Ich habe folgendes Problem.
Ich möchte ein 'if' 'then' Befehl erstellen bekomme aber immer einen Fehler, dass Delphi dies nicht compilieren kann. Funktionieren also keine 'if' Befehle mit Zeichen (+,-,*,/)? Mit Zahlen funktioniert es. Wenn es im falschen Forumbereich ist sorry. Mein erster Beitrag in dem Forum.


Code:
procedure TForm12.Button15Click(Sender: TObject);
var
  a,b,c,d: Real;
begin
  a:=StrToFloat(Edit2.Text);
  b:=StrToFloat(Edit1.Text);
  c:=StrToFloat(Edit3.Text);
  if c='+' then d:=a+b;
  Edit1.Text:=FloatToStr(d);

end;
  Mit Zitat antworten Zitat