Re: Delete Lines

Return to index

Author

Message

Sergey Tkachenko

Posted: 10/22/2003 21:17:06

May be you can select the second part of the document and copy it to the

second editor:

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

  if rve1.PageBreaksBeforeItems[i] then begin

    rve1.SetSelectionBounds(i, rve1.GetOffsBeforeItem(i),

      rve1.ItemCount-1, rve1.GetOffsAfterItem(rve1.ItemCount-1));

    Stream := TMemoryStream.Create;

    rve1.SaveRVFToStream(Stream, True);

    Stream.Position := 0;

    rve2.LoadRVFFromStream(Stream);

    rve2.Format;

    rve2.PageBreaksBeforeItems[0] := False;

    Stream.Free;

    rve1.DeleteSelection;

  end;

> I will reformulate my question, because I was trying to get an information

> from you that would help me on my problem. Now I gonna tell you exactly

what

> I want:

>

> I have a document in TRichViewEdit, separated by an

> "PageBreaksBeforeItems[i]", witch I need to break into two diferent

> documents and put that 2 new docs into 2 different ppRichViews. The

> delimeter of the break will be the "PageBreaksBeforeItems[i]"

>