Zitat von
Michael Habbe:
@Jasacul
Du hattest da einen Fehler drin.
Delphi-Quellcode:
fehler:='';
if Belegnummer <> 0 then
fehler:='Fehler: Belegnummer'
else
if Belegdatum = 0 then
fehler:='Fehler: Belegdatum'
else
if x = 0 then
fehler:='Fehler: x'
else
if y = 0 then
fehler:='Fehler: y'
else
; // mache was, es ist alles ok, kein Fehler aufgetreten
result := fehler;
Und warum hatte er da einen Fehler drinne? Weil es einfach unübersichtlich ist. Jetzt stell dir den Code mal noch mit 10 bis 15 Zeilen Code zwischen den ifs vor.
