[FreeUser]

Всем привет!

Увязаю в проге все больше.
Вот тут сталкнулся с такой проблемой.

Можно ли как либо перекинуть все файлы из определенной папки поочередно в memo? Т.е. с opendialog'ом все просто. Выделил файлы, запустился цикл

Код:

1 2 3 4 5 6 7 8

FileCounter:=0; ... <b>for</b> i:=0 to opendialog1.Files.Count-1   <b>do</b> <b>begin</b> memo1.Lines.LoadFromFile(OpenDialog1.Files[i]); inc(FileCounter); ...

и все работает хорошо.

А можно ли, зная к примеру что FileCounter > 0 загрузить эти же файлы но в memo2 без OpenDialog2.Execute ? Т.е. адрес папки нам то уже известен. Можно?

С кодом пожалуйста. Заранее благодарен.

[FreeUser]

Забыл. Чтобы файлы открывались например только те у кого расширение txt, а то там еще ini лежит.
Спасибо.

[The Shadow]

Читайте FAQ.

[san-46]

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

и все работает хорошо.

Это как же "хорошо"? Метод Lines.LoadFromFile заменяет весь предыдущий текст в Memo, так что содержимое нескольких файлов таким приемом увидеть не получится.
А вот так получится.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

procedure TForm1.Button1Click(Sender: TObject); var   sr: TSearchRec;   Path : String;   SL : TStringList;   I : Integer; begin   SL := TStringList.Create;   try     Memo1.Lines.BeginUpdate;     Path := 'C:\Downloads\Firefox\Ehlib\'; //тот самый адрес папки, который известен     if FindFirst(Path+'*.txt', faAnyFile, sr) = 0 then begin       repeat         SL.LoadFromFile(Path+sr.Name);         for I := 0 to SL.Count-1 do           Memo1.Lines.Add(SL[i]);       until FindNext(sr) <> 0;       FindClose(sr);     end;   finally     Memo1.Lines.EndUpdate;     SL.Free;   end; end;