Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Spajanje dva TRichEdit-a ???

[es] :: Pascal / Delphi / Kylix :: Spajanje dva TRichEdit-a ???

[ Pregleda: 2284 | Odgovora: 9 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

vortex77

Član broj: 91694
Poruke: 124
*.dynamic.sbb.co.yu.



+1 Profil

icon Spajanje dva TRichEdit-a ???07.12.2007. u 10:10 - pre 198 meseci
Kako spojiti text iz dva RichEdita u treci? Oba teksta imaju neka svoja formatiranja koje moraju biti preneta...

Probao sam da ovo odradim koristeci TStringStream i TMemoryStream, ali ono sto dobijam jeste kopiranje texta samo jednog RichEdita (prvog) u treci.

Ovo je kod koji sam koristio :

Code:

function TForm1.GetRTF(RE: TRichedit): string;
var
   strStream: TStringStream;
begin
   strStream := TStringStream.Create('');
   try
     RE.PlainText := False;
     RE.Lines.SaveToStream(strStream);
     Result := strStream.DataString;
   finally
     strStream.Free
   end;
end;

i poziv sa :

procedure TForm1.Button1Click(Sender: TObject);
var
   temp, temp2, temp3 : string;
begin
     temp := GetRTF(RichEdit1);
     temp2 := GetRTF(RichEdit2);
     temp3 := temp + temp2;

     RichEdit3.Text := temp3;
end;

 
Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739



+92 Profil

icon Re: Spajanje dva TRichEdit-a ???07.12.2007. u 13:17 - pre 198 meseci
> 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.
 
Odgovor na temu

vortex77

Član broj: 91694
Poruke: 124
*.dynamic.sbb.co.yu.



+1 Profil

icon Re: Spajanje dva TRichEdit-a ???07.12.2007. u 13:25 - pre 198 meseci
:)) ... 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.)
 
Odgovor na temu

lan-mi
Lukic Milan
Zrenjanin

Član broj: 156359
Poruke: 140
*.dynamic.sbb.co.yu.

Sajt: https://lanmisoft.com


+1 Profil

icon Re: Spajanje dva TRichEdit-a ???07.12.2007. u 13:48 - pre 198 meseci
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.

Arduino Control Center
 
Odgovor na temu

vortex77

Član broj: 91694
Poruke: 124
*.dynamic.sbb.co.yu.



+1 Profil

icon Re: Spajanje dva TRichEdit-a ???07.12.2007. u 13:59 - pre 198 meseci
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....
 
Odgovor na temu

lan-mi
Lukic Milan
Zrenjanin

Član broj: 156359
Poruke: 140
*.dynamic.sbb.co.yu.

Sajt: https://lanmisoft.com


+1 Profil

icon Re: Spajanje dva TRichEdit-a ???07.12.2007. u 14:04 - pre 198 meseci
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.
Arduino Control Center
 
Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739



+92 Profil

icon Re: Spajanje dva TRichEdit-a ???07.12.2007. u 14:18 - pre 198 meseci
> )) ... To je bilo prvo sto sam probao.....

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

Code:

  RichEdit1.SelectAll;
  RichEdit1.CopyToClipboard;
  RichEdit2.PasteFromClipboard;

 
Odgovor na temu

lan-mi
Lukic Milan
Zrenjanin

Član broj: 156359
Poruke: 140
*.dynamic.sbb.co.yu.

Sajt: https://lanmisoft.com


+1 Profil

icon Re: Spajanje dva TRichEdit-a ???07.12.2007. u 14:31 - pre 198 meseci
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!!!
Arduino Control Center
 
Odgovor na temu

vortex77

Član broj: 91694
Poruke: 124
*.adsl-1.sezampro.yu.



+1 Profil

icon Re: Spajanje dva TRichEdit-a ???07.12.2007. u 15:30 - pre 198 meseci
Sjajno, to je to!!!

Hvala vam na super resenjima :))
 
Odgovor na temu

lan-mi
Lukic Milan
Zrenjanin

Član broj: 156359
Poruke: 140
*.dynamic.sbb.co.yu.

Sajt: https://lanmisoft.com


+1 Profil

icon Re: Spajanje dva TRichEdit-a ???07.12.2007. u 15:40 - pre 198 meseci
Nema na cemu. I ti si laf pa pomazes..
Arduino Control Center
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Spajanje dva TRichEdit-a ???

[ Pregleda: 2284 | Odgovora: 9 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.