procedures zusammenfassen/vereinfachen (Totale Anfängerfrae)

[RavenIV]

Zitat von Popov:

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?

Also ich persönlich mach das immer anderstrum, den "guten" Fall zuerst und dann den "schlechten" Fall. Das find ich übersichtlicher.

Delphi-Quellcode:

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