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;