procedures zusammenfassen/vereinfachen (Totale Anfängerfrae)

[Tobicaster]

Ah natürlich! Leuchtet ein Danke für den Hinweis!

Gibt es auch noch eine Möglichkeit folgendes einfacher auszudrücken:

Delphi-Quellcode:

if op ='+' then
 begin
 Display.Caption := FloatToStr(Eingabe1 + Eingabe2);
 end;

if op ='-' then
 begin
 Display.Caption := FloatToStr(Eingabe1 - Eingabe2);
 end;

if op ='/' then
 begin
 Display.Caption := FloatToStr(Eingabe1 / Eingabe2);
 end;

if op ='*' then
 begin
 Display.Caption := FloatToStr(Eingabe1 * Eingabe2);
 end;

?