Главная » Delphi » Основная » FindFirst

FindFirst

22:52
procedure TForm1.Button1Click(Sender: TObject);
var
SRec: TSearchRec;
begin
if FindFirst('C:\Windows\*.txt', SysUtils.faAnyFile, SRec) = 0 then
repeat
if (sRec.Name = '.') or (sRec.Name = '..') then
Continue;
if (srec.Attr and sysutils.faDirectory) = 0 then begin
Memo1.Lines.Add(srec.Name);
end;
until FindNext(SRec) <> 0;
end;