for each file en dir do

Hej Sirius

Du skal bruge et findfirst .. findnext .. findclose loop som søger dit biblotek i gennem samt eventuelle under bibloteker hvis du ønsker det. Jeg har skrrevet et sådan loop der kører i en tråd, hvis ikke det kører i en tråd blokerer det hele dit program indtil søgningen er færdig. Den kan downloades fra min hjemmeside http://borrisholt.com kig under fileIO, og download Eksemplet ThreadSearch.zip den skulle gøre alt hvad du har behov for!

Hvis den volder dig problemer eller den ikke er fyldestgørende nok så skriv igen ...

Jens B

det prøver jeg lige..

Hej sirius :-)
Hvis du bare vil have en simpel løkke, ser den sådan her ud:

procedure TForm1.Button1Click(Sender: TObject);
var
  SRec : TSearchRec;
  res : integer;
begin
  res := FindFirst('c:\*.*',faAnyFile,SRec );
 
  while (res = 0) do
  begin
    listbox1.items.add(SRec.Name);
    res := FindNext(SRec);
  end;//while

  FindClose(SRec);
end;

Kig i Delphis hjælpfiler for at se hvilke parametre du kan sende med / udtrække fra hhv. TSearchRec, FindFirst, FindNext, FindClose. (marker ordet og tryk F1).

Ellers er jeg sikker på at Borrisholts løsning er ganske optimal/smart...

Mvh
Retep

jeg har fået din halløj til at virke :)