Naja habs ja im ersten Post angegeben: Sprache=Lazarus...
Also nun siehts so aus.
Delphi-Quellcode:
//Ordnernamen in einem Verzeichnis ermitteln
procedure ListSubDirs(Dir: string; var sList: TStrings);
var
SR: TSearchRec;
begin
Dir:=TempDownloadDir;
if FindFirst(Dir, faDirectory, SR)=0 then
sList.Add(SR.Name);
try
while FindNext(SR)<>0 do
begin
FindNext(SR);
sList.Add(SR.Name);
end;
finally
FindClose(SR);
end;
end;
Denke das sollte so funktionieren. Der Compiler meckert aber beim finally:
Unit1.pas(287,19) Error: Incompatible type for arg no. 1: Got "TSearchRec", expected "LongWord"
Da steht aber: FindClose(Var F:TSearchRec);
Verstehe ich nicht ganz :s
---
Ich seh gerade das es FindClose 2 mal gibt. Ich seh aber nicht aus welcher Bibliothek mein FindClose ist. Weis das jmd.?