"Taschen"rechner programmieren...

[Dax]

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...