Как загрузить в Мemo список файлов в каталоге

[g00dhash]

Всем привет.
Кто подскажет как реализовать загрузку всех txt файлов из папки в компонент memo.

были идеи сделать при помощи компонента listbox:

SendMessage(ListBox1.Handle,LB_DIR,0,integer(pchar('папка\*.txt')));
//получаем список txt файлов в listbox

[mihali4]

Так что загружаем ? Файлы или их имена ? Или для вас это одно и то же ?
Если список файлов, то правильнее будет так:

ListBox1.Perform(LB_DIR, 0, LParam(PChar('*.txt')));

Добавьте конкретный каталог, как у вас в коде, если нужно...

[Человек_Борща]

Цикл по списку файлов, методом поиска по расширению в каталоге
Функции:
TSearchRec,
FindFirst,FindNext,FindClose.

процедура TMomo.loadFromFile('ПУТЬ ДО ФАЙЛА');

[Хамяг]

procedure TForm1.Button1Click(Sender: TObject);
var
  SR: TSearchRec;
  S: TStrings;
begin
  if FindFirst('папка\*.txt',faAnyFile,SR) = 0 then
  repeat
    S:=TStringList.Create;
    S.LoadFromFile('папка\'+SR.Name);
    Memo1.Text:=Memo1.Text+#13+S.Text;
    S.Free;
  until FindNext(SR) <> 0;
  FindClose(SR);
end;

[g00dhash]

благодарю, получилось)

[Marinesku]

var
sr: TSearchRec;

begin
Memo1.Clear;
if FindFirst(Path + '*.txt', faAnyFile, sr) = 0 then
begin
repeat
Memo1.Lines.Add(sr.Name);
until FindNext(sr) <> 0;
FindClose(sr);
end;
end;

Таким же образом можно собрать названия файлов любых расширений, тупо заменив txt на любое другое. Да, и собирает он из текущей папки.

http://www.delphi-vsem.ru/009.html

Здесь описано подробнее.

[Serge_Bliznykov]

Marinesku, во-первых, код на форуме нужно оформлять тегами.
а во-вторых, Вас не смутило то, что было описано в пост #4 ?!

[Shinobi3456]

Легко...

procedure GetAllFiles( Path: string; Lb: TListBox);
var
sRec: TSearchRec;
isFound: boolean;
begin
isFound := FindFirst( Path + '\*.*', faAnyFile, sRec ) = 0;
while isFound do
begin
if ( sRec.Name <> '.' ) and ( sRec.Name <> '..' ) then
begin
if ( sRec.Attr and faDirectory ) = faDirectory then
GetAllFiles( Path + '\' + sRec.Name, Lb );
Lb.Add( Path + '\' + sRec.Name );
end;
Application.ProcessMessages;
isFound := FindNext( sRec ) = 0;
end;
FindClose( sRec );
end;

Ну это собственно основа..,Эту функцию можно модернизировать что выбирала определенный тип файлов. Вот статья на эту тему:
http://myshinobi.ru/kak-poluchit-spi...-papke-delphi/