Объединение файлов

[Aleksey1989]

В RichEdit был добавлен файл командой RichEdit1.Lines.LoadFromFile('Fatt2 .rtf');.

Как добавить в RichEdit ещё один файл с сохранением предыдущего?

[Филантроп]

как то так)

t:trichedit;
i:integer;
begin
t:=trichedit.create(self);
t.parent:=form1;
t.lines.loadfromfile('тот который надо');
for i:=0 to t.lines.count-1 do
richedit1.lines.add(t.lines[i]);
t.free;
end.

[Aleksey1989]

Сообщение от Филантроп

как то так)

t:trichedit;
i:integer;
begin
t:=trichedit.create(self);
t.lines.loadfromfile('тот который надо');
for i:=0 to t.lines.count-1 do
richedit1.lines.add(t.lines[i]);
t.free;
end.

Чё-то у меня не работает: может делаю что-нибудь не так. При нажатии на кнопку возникает ошибка в цикле for

[Aleksey1989]

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

Чё-то у меня не работает: может делаю что-нибудь не так. При нажатии на кнопку возникает ошибка в цикле for

Вставил следующий код и добавление заработало.

  RichEdit2.Lines.LoadFromFile('Fatt.rtf');
  RichEdit1.Lines.LoadFromFile('Fatt2.rtf');
  for i:=0 to RichEdit2.lines.count-1 do
  RichEdit1.Lines.Add(RichEdit2.Lines[i]);

Но возникла новая проблема: Как сделать так, чтобы добавленные вновь строки были отформатированны так, как в файле, а не как в последней строке в RichEdit перед добавлением?