@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;
@luckie
Da wird der Code auch nur ausgeführt, wenn kein Fehler auftritt. Beim ersten Fehler verlässt er die weiteren Vergleiche. Ist vielleicht mehr Tipparbeit, aber bei weitem übersichtlicher als innerhalb von 15 ifs mit Exit zu antworten.