Sinnvoller Einsatz von goto

[himitsu]

Delphi-Quellcode:

function CheckImportFile(const fname: TFilename; const Caption:string): Boolean;
var
  msg: string;
begin
  Result := True;  // Datei vorhanden und nicht leer
  repeat
    if not FileExists(fname) then
      msg := Format('Datei <%s> ist nicht vorhanden', [fname])
    else if FileGetSize(fname) = 0 then
      msg := Format('Datei <%s> ist leer', [fname])
    else
      Break;
    case MessageBox(0, PChar(msg), PChar(Caption), 
        MB_ICONWARNING or MB_ABORTRETRYIGNORE or MB_SETFOREGROUND) of
      idAbort:  Abort;  // stille Exception
      idRetry:  {Continue};
      idIgnore: Result := False; // Datei vorhanden oder leer; der Benutzer möchte die Datei ignorieren
    end;
  until not Result;
end;

es geht aber auch ein while Result do begin ... end;

@BUG: =true ist böse ... sowas macht man einfach nicht. (Gründe stehen zu Genüge im Forum)