Guten Abend,
einen real Wert kannst Du so nicht umwandeln:
Label4.Caption := IntToStr(ergebnis);
Label4.Caption := FloatToStr(ergebnis);
wäre besser.
und es fehlt noch ein end;
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var zahl1, zahl2,ende: integer;
ergebnis: real;
opperator: integer;
begin
zahl1 := StrToInt(Edit1.Text);
zahl2 := StrToInt(Edit2.Text);
opperator := StrToInt (Edit3.Text);
case opperator of
1: ergebnis := zahl1 + zahl2;
2: ergebnis := zahl1 - zahl2;
3: ergebnis := zahl1 * zahl2;
4: ergebnis := zahl1 / zahl2;
end;
Label4.Caption := IntToStr(ergebnis);
read(ende);
end;
end.
Wenn man halbwegs vernünftig einrückt, fällt das auch auf.
Grüße
Klaus