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]