[PR] zapisywanie nazw plikow... PILNE!

mam katalog z 500 plikami... chce ich nazwy spisać w plik txt... wie ktos jak ? - chcialbym to oczywiscie zrobic w delphi...

Najszybciej, ale i najbardziej pamięciożernie to chyba FileListBoxem :

FileListBox1.Directory := 'katalog_w_ktorym_sa_te_pliki';
FileListBox1.Items.SaveToFile('nazwa_pliku');

A jak chcesz mniej pamięciożernie, to FindFirst, FindNext + F1.

w tym przykładzie w zmiennej Katalog mam wartość zwróconą z systemowego okienka wyboru folderu

procedure TForm1.ReadFiles;
var
  sr: TSearchRec;
  n: string;
  plik: Textfile;
begin
 n := IncludeTrailingBackSlash(Katalog)+'*.*';
 AssignFile(plik, 'wyjscie.txt');
 Rewrite(plik);
 if FindFirst(n, $2F, sr) = 0 then
   begin
     repeat
      WriteLn(plik, sr.Name);
     until FindNext(sr) <> 0;
     FindClose(sr);
   end;
 CloseFile(plik);
end;