Re: get first line from TRVE

Return to index

Author

Message

Sergey Tkachenko

Posted: 01/20/2005 17:04:52

s := '';

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

begin

  if (i>0) and rve.IsFromNewLine(i) then

    break;

  if rve.GetItemStyle(i)>=0 then

    s := s+rve.GetItemTextA(i)

  else if rve.GetItemStyle(i)=rvsTab then

    s := s+#9;

end;

> > Hi,

> >

> > Do you mean lines (lines depend on the control's window width because of

> > word wrapping) or paragraphs?

>

> First paragraph will be enought.