Текст из нескольких txt файлов

[Federal]

Можно ли реализовать, что бы приложение имела возможность одним движением открыть сразу несколько текст файлов, в свою очередь которые загружаются в компонент Мемо одним текстом???
Например у меня два текст файла

Текст1

Текст2

должно получится

Текст1
Текст2

[Mad_Cat]

грузи в stringlist-ы а потом в мемо)
или построчно сначала один файл потом другой)

[Federal]

Все таки как заставить
if OpenDialog1.Execute then
Memo1.Lines.LoadFromFile(OpenDialog 1.FileName);
загрузить сразу несколько фалов в один компонент там больше 1 файла не выделить

[Mad_Cat]

установи MultiSelect у Opendialog в true

[Federal]

открывает только первый файл :D но уже что то))

var
i:integer;

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
for i := 0 to openDialog1.Files.Count-1 do
  begin
  Memo2.Lines.LoadFromFile(OpenDialog1.FileName);
  Memo1.Text:=Memo1.Text+Memo2.Text;
  end;
end;
end.

чего то я недопонимаю, вроде как должно открывать каждый файл загружать в Мемо2 и результат в Мемо1 и так каждый следующий файл. А получилось что я получаю в результате в Мемо1 Текст первого файла записанное столько раз сколько выделено файлов(

[evg_m]

открывает только первый файл :D но уже что то))

TopenDialog.FileName F1 + SeeAlso = другие св-ва и методы компонента по работе с файлами.

как легко добавить текст из файла (f) в Memo

var txt1: TStringList;
txt1:=TstringList.create;

txt1.loadfromfile(f);
memo.lines.addstrings(txt1);

txt1.Free;

это не код а только пример

чего то я недопонимаю

for i := 0 to openDialog1.Files.Count-1 do
подсказка
type openDialog1.Files = Tstrings
у которого есть и другие св-ва кроме count

[Federal]

var
i:integer;

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
for i:=0 to openDialog1.Files.Count-1 do
  begin
  Memo2.Lines.LoadFromFile(OpenDialog1.Files[i]);
  Memo1.Text:=Memo1.Text+Memo2.Text;
  end;
end;

Я вот как сделал, вышел из ситуации))) Всем спасибо