Ładny brzuch

Welcome!

Wyobracie sobie, e na formie mam 3 komponenty opisane w tytule (RichEdity). i tak: w pierwszym, mam pewien tekst. W drugim, tekst z pierwszego, ale zmodyfikowany.

Czy jest mozliwe, aby po kliknieciu na button, w trzecim RichEdit'cie wyswietlila sie roznica miedzy RichEdit1, a 2 ???

Jesli tak, bardzo bym prosil o kodziki...

DJ ProG


Co w tym stylu? :Pprocedure TForm1.Button1Click(Sender: TObject); var a, b:string; i:integer; begin if length(richedit1.Text)>length(richedit2.Text) then begin a:=richedit1.Text; b:=richedit2.Text; end else begin a:=richedit2.Text; b:=richedit1.Text; end; richedit3.Clear; for i:=1 to length(a) do if a[i]<>b[i] then richedit3.SelText:=a[i] else begin richedit3.SelAttributes.Color:=clblack; richedit3.SelAttributes.Style:=[]; richedit3.SelText:=b[i]; richedit3.SelAttributes.Style:=[fsbold]; richedit3.SelAttributes.Color:=clred; end; richedit3.SelAttributes.Color:=clblack; richedit3.SelAttributes.Style:=[]; end;
Uytkownik Cyrkiel edytowa ten post 10 sierpie 2005, 12:49
nie wiem czy dobrze napisalem kod, ale jesli tak, to chyba nie o to mi chodzilo.

przyklad, tego co chcialbym:
richedit1 := 'ala ma kota'; richedit2 := 'ala ma kota i psa'; button1click:= richedit3 := ' i psa';

Chyba dobrze wytlumaczylem..
Uytkownik Bedzio edytowa ten post 20 lipiec 2005, 18:25
to w petli daj if a[i]<>b[i] then richedit3.SelText:=a[i]


ok. all chodzi (w zwiazku z przykladem).
Ale jesli zmodyfikuje tekst w srodku, np. ala ma psa i kota???
dany prog. wywala sie..


ok. all chodzi (w zwiazku z przykladem).
Ale jesli zmodyfikuje tekst w srodku, np. ala ma psa i kota???
dany prog. wywala sie..

ok, ale jak to zrobic. Az tak zaawansowany w Delphi to ja nie jestem :blink:

  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
    •