Dateirechte ermittlen

[himitsu]

Such mal im Forum nach Except(ion) ... diese Meldung wird vom Debugger angezeigt und ist nicht im Programm sichtbar (heißt dann, wenn es nicht im Debugger ausgeführt wird)

Und in den Debuggeroptionen kannst du notfalls die Anzeige derartiger Meldungen steuern.

Delphi-Quellcode:

Function SearchInFile(FileName: String; SearchOpts: TSearchOpts): Boolean;
Var TexFile: TStringList;
Begin
  Result := false;
  If (SearchOpts.MaxSInFileSize > 0)
    and (FileGetSize(FileName) > SearchOpts.MaxSInFileSize) Then Exit;
  Try
    TexFile := TStringList.create;
    Try
      TexFile.LoadFromFile(FileName);
      Result := Pos(SearchOpts.seekStr, TexFile.CommaText) <> 0;
    Finally
      TexFile.Free;
    End;
  Except
    //Result := false;
    {viele mögen e nicht, wenn die Exception nicht bearbeitet wird,
    aber Result ist ja schon False ^_^ }
  End;
End;

[/quote]