> Kako spojiti text iz dva RichEdita u treci? Oba teksta imaju neka svoja formatiranja koje moraju biti preneta...

Nije efikasno rešenje ali pokušaj da prekopiraš tekst iz jednog u drugi.

:)) ... To je bilo prvo sto sam probao.....

Tekst se prebaci bez problema, ali i bez formatiranja!!! Ono sto je potrebno jeste prebaciti formatirani tekst, onako kako je korisnik to i uneo (left, right, center indent... bold, italic, underline it.)

Probaj ovako:
Stavi dve TMemo komponente i ucitaj *.rtf file u Memo1(memo1.lines.loadfromfile). Ucitace se kao rtf formatiran dokument. Zatim prekopiraj tekst u Memo2 komponenetu, ucitaj drugi *.rtf file u Memo1 komponentu, kopiraj tekst i dodaj u Memo2 komponentu. Zatim citav tekst sacuvas kao *.rtf file.
Memo2.lines.savetofile('C:\novifajl.rtf');

Ovo je samo za eksperiment.

Probao sam i to :(

Kada radim kopiranje, ako idem preko lines, prevede samo tekst bez formatiranja.
Ako idem sa Memo.Text, predje mi preko celog teksta....

Evo kakoizgleda kada sam ja ucitao jedan rtf file u TMemo:

"{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil\fcharset0 Times New Roman;}{\f1\fnil Times New Roman;}}
\viewkind4\uc1\pard\qj\f0\fs26 Dear Lanmisoft people,\par
\tab I downloaded \i Nice Text Editor\i0 because I'm always on the lookout for good RTF editors. Yours is certainly a nice, simple one, with one extra feature; it can handle justified "

memo1.lines.savetofile('C:\novifile.rtf'); i kada ga otvoris bice formatiran tekst.

> )) ... To je bilo prvo sto sam probao.....

...hoćeš reći, nisi dobro probao ;)

Vidi ovo:

var
list,list2:TStringlist;
begin
list:=TStringlist.Create;
list2:=TStringlist.Create;
try
memo1.Lines.LoadFromFile('C:\PrviRTFFile.rtf');
list.Assign(memo1.lines);
memo1.Clear;
memo1.Lines.LoadFromFile('C:\DrugiRTFfile.rtf');
list2.Assign(memo1.Lines);
memo1.Clear;
memo1.Lines.AddStrings(list);
memo1.Lines.Delete(memo1.Lines.Count-1);
memo1.Lines.Add(#13#10);
memo1.Lines.AddStrings(list2);
memo1.Lines.Add('}');
memo1.Lines.SaveToFile('C:\SpojeniRTFfile.rtf');
finally
list.Free;
list2.Free;

end; end;


Probao sam, radi super!!!

Sjajno, to je to!!!

Hvala vam na super resenjima :))

Nema na cemu. I ti si laf pa pomazes..