Delphi-Quellcode:
Var
Zahl1, Zahl2, Ergebnis: integer;
RechenZeichen: String;
Begin
Zahl1 := strtoint(edit1.text);
Zahl2 := strtoint(edit2.text);
Rechenzeichen := edit3.text;
If Rechenzeichen = '+'
then Ergebnis := Zahl1 + Zahl2;
If Rechenzeichen = '-'
then Ergebnis := Zahl1 - Zahl2;
Label5.caption := inttostr(Ergebnis);
End;
Probiers aus, und sag dann, welcher fehler kommt ...