[Der_G()RuNu(h]

Сообщение от NumLock

как ими пользоваться я показал. теперь покажи свой код с рекурсией?

Код:

function FindFirst(const Path: string; Attr: Integer; var F: TSearchRec): Integer;
var
  Path: string;
  Attr: Integer;
begin
  Path:= 'c:\*.*';
  Attr:= faHidden + faSysFile;

  FindFirst(Path, Attr, F);

  if F.name <> '' then
  begin
    ListBox1.Items.Add(F.name); Добавление в TListBox имени найденного файла
    while FindNext(F) = 0 do
      ListBox1.Items.Add(F.name);
  end;
  FindClose(F);
end;