Files Delphi

  1. Home
  2. Delphi
  3. Files
  4. How to list files in a directory
//This code will list all the files in the windows directory and display it on a
//memo field.
procedure TForm1.Button1Click(Sender: TObject);
var
SR: TSearchRec;
begin
if FindFirst( 'c:\WinNT\*.*', faAnyFile, SR) = 0 then
begin
repeat
if (SR.Attr <> faDirectory) then
begin
memo1.lines.Add(SR.Name);
end;
until FindNext(SR) <> 0;
FindClose(SR);
end;
end;