was mich bei einem Projekt genervt hat, ist, dass Delphi/Pascal zwar die Fähigkeit von goto bietet, man diese aber nicht nutzen soll. da kommen dann Strukturen wie folgende raus:
Delphi-Quellcode:
// Anti-GOTO-Struktur
if ScanRows then
begin
if ScanCols then
begin
if ScanFields then
begin
Result := true;
end
else
begin
Result := false;
end;
end
else
begin
Result := false;
end;
end
else
begin
Result := false;
end;
Mit einem einfachen goto wäre das viel einfacher gegangen. Und auch viel leserlicher und schöner:
Delphi-Quellcode:
procedure MitGoto();
// ...
begin
//GOTO-Struktur
if not ScanRows then
begin
Result := false;
goto ende;
end;
if not ScanCols then
begin
Result := false;
goto ende;
end;
if ScanFields then
begin
Result := false;
goto ende;
end;
:ende
end;
Bernhard
PS: Nach mehrfachem Umbau sieht der Ablauf völlig anders aus und man braucht auch kein Goto mehr.