Zawartość katalogu

0

Jak zrobić aby do memo1 dodało mi wszystkie nazwy plików i katalogoów jakie znajdują sie np.w katalogu c:/windows
Z góry THX Pozdro

0

Tu masz opis: http://4programmers.net/article.php?id=92 .. łatwo przerobić aby dodało do memo.. w każdym kroku pętli Memo.Lines.Add(Rc.Name);

0

Dzieki znalazłem też:

procedure TForm1.FormCreate(Sender: TObject);
var
sr: TSearchRec;
begin
if FindFirst('c:\.', faAnyFile, sr) = 0 then
begin
repeat
if (sr.Attr and faAnyFile) = sr.Attr then
memo1.Lines.Add(sr.Name);
until FindNext(sr) <> 0;
FindClose(sr);
end;
end;

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0