Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Sinnvoller Einsatz von goto

   
    by BUG, 22. Mär 2010
  Aua, ja weiß ich, war wohl etwas geschludert :duck:
  Trotzdem Danke für den Hinweis.
  
  EDIT:
  Aber müsste das nicht until result; heißen, im Moment bleibst du in der Schleife bis result unwahr ist.
• Forum: Object-Pascal / Delphi-Language

  Re: Sinnvoller Einsatz von goto

   
    by BUG, 22. Mär 2010
  // Prüft, ob eine Datei für den Import vorhanden ist.
  // Falls nicht, kann der Benutzer entscheiden, was passieren soll
  function CheckImportFile(const fname: TFilename; const Caption:string): Boolean;
  var
  msg: string;
  begin
  Result := false;
  repeat
  if not FileExists(fname) then
  msg := Format('Datei <%s> ist nicht vorhanden', )