Einzelnen Beitrag anzeigen

LuCSteR

Registriert seit: 16. Sep 2005
168 Beiträge
 
#18

Re: Verzechniss: alle beinhaltenden Ordner ermitteln?

  Alt 3. Sep 2008, 15:36
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.?
  Mit Zitat antworten Zitat