procedures zusammenfassen/vereinfachen (Totale Anfängerfrae)

[Tobicaster]

Ah ich hab's!

Delphi-Quellcode:

procedure TForm1.BGleichClick(Sender: TObject);
begin
Eingabe2 := StrToFloat(Display.Caption);

 case op of
  '+': begin
       Display.Caption := FloatToStr(Eingabe1 + Eingabe2);
       end;
  '-': begin
       Display.Caption := FloatToStr(Eingabe1 - Eingabe2);
       end;
  '*': begin
       Display.Caption := FloatToStr(Eingabe1 * Eingabe2);
       end;
  else
   try
   Display.Caption := FloatToStr(Eingabe1 / Eingabe2);
   except
   Display.Caption := 'Geht nicht!';;
   end;

 end;
end;

So scheint's zu funktionieren.

Danke!