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]