Práce se soubory

Seznam témat:

získání seznamu souborů v daném adresáři

Získání seznamu souborů v daném adresáři

var

 List: TStringList;

 I: integer;

begin

 List := TStringList.Create;

 try

   BuildFileList('c:\import\*.xml', List);

   //zobraz celý seznam naráz

   OKBox(List.Text);

   //projdi seznam po řádcích

   for I := 0 to List.Count-1 do

     OKBox(List[I]);

 finally

   List.Free;

 end;

end.

Související témata