Jak uzyskać listę wszystkich plików w aktualnym katalogu?

Data dodania: 2011-09-13, Autor: Karol, Dodał: Karol, Wyświetleń: 465

Należy wykorzystać funkcje FindFirst i FindNext dostępne w module Crt. Pierwsza z funkcji odszukuje wskazany maską plik, natomiast druga powoduje szukanie kolejnego pliku pasującego do maski. Aby sprawdzić, czy funkcje odnalazły plik można skorzystać z DosError. Oto przykład:

uses Dos;

var
  DirInfo: SearchRec;

begin
  FindFirst('*.txt', Archive, DirInfo);
  while DosError=0 do
  begin
    Writeln(DirInfo.Name);
    FindNext(DirInfo);
  end;
end.