goto-befehl in delphi?

[Luckie]

Zitat von omata:

Das ist negative Logik. So sollte man nicht programmieren. Wie wäre es mit positiver Logik?

Code:

if Belegnummer <> 0 then
begin
  if BelegDatum <> 0 then
  begin
    if x <> 0 then
    begin
     if y <> 0 then
     begin
     end
     else
       Fehlermeldung
    end
    else
      Fehlermeldung
  end
  else
    Fehlermeldung;
end
else
  Fehlermeldung

Sehr übersichtlich, wenn in jedem Block noch 10 Zeilen Code stehen Wenn ich das Exit im Code sehe, dann weiß ich, dass ich mir den Rest nicht mehr angucken muss und muss mir nicht erst 30 Zeilen tiefer das zugehörige else suchen, um zu gucken, was stattdessen passiert.