Extract text of limited line length

keagle10

I am using a TDBWPRichText component to access some RTF in a database. I want to extract lines of plain text from this, but want each line length to be no more than 80 characters. So I set WordWrap to False in the component, and set PageWidth in the Header property to 80. Then I use this code to get the text out of the editor: TextString:=RichTextEditor.AsAnsiString('ANSI', false, false); When I search TextString for CRLF combinations I can extract the separate plain text lines. This works, but it returns some lines of greater than 80 characters length, that is, there can be more than 80 characters of text between the CRLF combinations. Is there an easy way to extract the text in strings no greater than 80 characters in length? Thanks much for any help with this!

support

There is no direct way to save the soft line breaks when extracting the text.

But you can use code like this:

Code

var par : TParagraph;
    i : Integer;
    s : TStringList;
begin
  WPRichText1.RTFData.MaxParLength := 10;
  WPRichText1.ReformatAll(false,false);
  par := WPRichText1.FirstPar;
  s := TStringList.Create;
  while par<>nil do
  begin
     for i := 0 to par.LineCount-1 do
     begin
         s.Append(  par.GetSubText(par.LineOffset(i),par.LineLength(i),true) );
     end;
     par := par.Next;
  end;


  ShowMessage(s.Text);
  s.Free;

Alles anzeigen