[FreeUser]

Всем привет!

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

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

Код:

FileCounter:=0;
...
for i:=0 to opendialog1.Files.Count-1
  do
begin
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, так что содержимое нескольких файлов таким приемом увидеть не получится.
А вот так получится.

Код:

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;