trichview.com

trichview.support




Re: Parse TRichViewEdit content


Return to index


Author

Message

Sergey Tkachenko

Posted: 03/10/2005 22:55:06


Do you want to get a text representation of TRichViewEdit, replacing images

with codes?


Something like this, assuming that there are only pictures and text in the

document:


s := 0;

for i := 0 to rve.ItemCount-1 do

begin

  if rve.IsFromNewLine(i) then

    s := s + #13#10;

  if rve.GetItemStyle(i)>=0 then

    s := s+rve.GetItemTextA(i)

  else if rve.GetItemStyle(i)=rvsPicture then

  begin

    rve.GetPictureInfo(i, ...);

    s := s+':-)';

  end;

end;






Powered by ABC Amber Outlook Express Converter