Object und Fail

[implementation]

Zitat von MacGuyver:

Delphi-Quellcode:

begin
{$IfDef Win32}
  lEc := FindFirst(aDatei,aAttr,DirInfo);
  if lEc <> 0 then
  begin
    SysUtils.FindClose(DirInfo);
    Fail;
  end;

Gehört FindClose nicht erst nach FindNext?
So läuft das zumindest inner Windows API.

[OT]Du solltest auf Klassen umstellen. Objekte sind inzwischen veraltet.[/OT]



[EDIT]
OK, ich nehm alles zurück. Wird ja nur im Fehlerfall aufgerufen. Sry.
[/EDIT]