Bessere Idee:
Delphi-Quellcode:
var
OpCode: byte = 0; //Globale Variable
procedure Button1Click(Sender: TObject); //EIN Event für ALLE Buttons
begin
case TButton(Sender).Caption[1] of // da CASE keine Strings verarbeiten kann und wir sowieso nur ein Zeichen brauchen, behelfen wir uns mit dem ersten Chars des Caption-Strings
'+': OpCode := 1;
'-': OpCode := 2;
'/': OpCode := 3;
'*': OpCode := 4;
'=': Case OpCode of
1: Label1.Caption:=FloatToStr(StrToFloat(edit1.text) + StrToFloat(edit2.text));
2: Label1.Caption:=FloatToStr(StrToFloat(edit1.text) - StrToFloat(edit2.text));
3: Label1.Caption:=FloatToStr(StrToFloat(edit1.text) / StrToFloat(edit2.text));
4: Label1.Caption:=FloatToStr(StrToFloat(edit1.text) * StrToFloat(edit2.text));
end;
end;
end;
Ich hoffe nur, das war jetzt kein Overkill...