trichview.support
Re: Parse TRichViewEdit content |
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