Automatisches Rechnen

[Popov]

Zitat von TheBeer:

Delphi-Quellcode:

procedure TForm1.Label9Click(Sender: TObject);
var
  a,ergebnis: real;

begin
a:=StrToFloat(Edit1.Text);
ergebnis:=StrToFloat(Label9.Caption);
  Edit1.Text:='';

   ergebnis:=a*1200;
     DefaultFormatSettings.ThousandSeparator:='.';



  if Edit1.Text = '' then
     begin
       a:=ergebnis/1200;
     end
  else
  if // <<<<<<<<<<<<<<<<<<<< bei einem IF gibt es auch immer ein THEN

  Label9.Caption:=FloatToStr(ergebnis);


end;

Du hast IF Abfrage gestellt, aber weder Vergleich, noch THEN angegeben.

Falls das IF nur so reingerutscht ist, raus damit.