Was nervt euch so, während der Programmierung oder so allgemein

[sh17]

Wie wäre es mit:
(ist doch auch elegant,geht aber nur, wenn danach schluß ist)

Delphi-Quellcode:

  
procedure MitTryFinally();
// ...
begin
  try
    if not ScanRows then
    begin
      Result := false;
      exit;
    end;

    if not ScanCols then
    begin
      Result := false;
      exit;
    end;

    if ScanFields then
    begin
      Result := false;
      exit;
    end;
  finally
    //:ende
  end;
end;

Zitat von rollstuhlfahrer:

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:
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