procedures zusammenfassen/vereinfachen (Totale Anfängerfrae)

[Popov]

Hallo Tobicaster, deinen Code hätte ich so nicht geschrieben. Der Divisor hat nichts in ELSE zu suchen. Im Endeffekt ändert sich da wohl nichts, da du wohl aufpassen wirst, aber trotzdem. Jedem Operator eine Zuweisung und überhaupt kein ELSE.

Zitat von Tobicaster:

Delphi-Quellcode:

 case op of
    '+': ...
    '-': ...
    '*': ...
    '/': ...
  end;

Außerdem, persönlich bin ich kein Freund von try/except Missbrauch bei Programmierung. try/except ist nur für den unvorhersehbaren Fall. Eine Division durch Null sollte man selbst abfangen. Das könnte in etwa so aussehen:

Delphi-Quellcode:

    if Eingabe2 = 0 then 
      Display.Caption := 'ERROR (Division durch Null)'
    else
      Display.Caption := FloatToStr(Eingabe1 / Eingabe2);

Warum willst du die Fehlermeldung dem Programm überlassen?