Trouble mixing .Text and .AsString

psswp

In a mailmerge routine, I need to delete full lines of text if besides a special code the line contains only spaces and tab characters, so I use the following routine.

Code

var
  iBegin, iFrom, iTo: Integer;
  sCh: String;
  sCod: String;


begin
  sCod := 'P_E002G11S01';
  iBegin := Pos(sCod, WPRtf1.Text);


  // Go further until end of line
  iTo := iBegin+1;
  sCh := MidStr(WPRtf1.Text, iTo, 1);
  while sCh <> #10 do
  begin
    sCh := MidStr(WPRtf1.Text, iTo, 1);
    if (sCh = #13) or (sCh = #10) then break;
    if (sCh <> ' ') and (sCh <> #9) then
    begin
      sCh := 'X';
     break;
    end;
    iTo := iTo+1;
  end;
  // Other chars in the line, delete line is not possible
  if sCh = 'X' then Exit;


  // Delete the line, CrLf included
  if iTo - iFrom > 1 then
    WPRtf1.text := LeftStr(WPRtf1.text, iFrom-1) + MidStr(WPRtf1.text, iTo+2, 9999999999);


  WPRtf1.ReformatAll(true, false);
end;

Alles anzeigen

The problem is that although WPRtf1.Text is working as expected, it seems that after this routine, the RTF formatting is lost when rendering on screen (text color, bold, underline, etc).
If I use WPRtf1.AsString, I can see all the RTF code plus my text, but that formatting is not rendered on screen, even if I am using ReformatAll to synchronize.

support

You cannot mix Text and AsString.

But you can access the paragraphs in WPTools directly.

Use
WPRichText.Finder.Next( sCod ) to find the start text.

You can read a := WPRichText.Finder..FoundPosition;

Now you can find the end code.

Get the position b and use SetSelPosLen( a, b-a )

and call ClearSelection to delete the selection.

If the text is inside only one paragraph or you just need marked paragraphs use

par := FirstPar;
while par<>nil do
begin
if par.HasText( sCod ) then
par := par.DeleteParagraph
else par : par.next;
end;

psswp

Thank you for your information, you gave me the idea.
As what I need is to delete the whole paragraph if certain conditions are met, I use .Text only for reading, and then, as you suggested, I use the par loop and par.DeleteParagraph

support

Zitat von psswp

Thank you for your information, you gave me the idea.
As what I need is to delete the whole paragraph if certain conditions are met, I use .Text only for reading, and then, as you suggested, I use the par loop and par.DeleteParagraph

Please check out the method DeleteParWithCondition:

Code

function TForm1.Cond(Sender: TObject; par: TParagraph) : Boolean;
begin
  Result := par.IsEmpty(true,[],[]);
end;


procedure TForm1.Button10Click(Sender: TObject);
begin
  WPRichText1.DeleteParWithCondition(Cond);
  WPRichText1.ReformatAll(false, true);
end;

Alles anzeigen