Habs gemacht
sieht jetz so aus
Delphi-Quellcode:
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;
Label4.Caption := FloatToStr(ergebnis);
end;
read(ende);
end;
end.
Bekomme die Meldung
[Fehler] Unit1.pas(49): Konstantenausdruck erwartet
Wat nun?^^
sry für die dummen fragen