RichEdit 2.0使用单个CR字符作为linebreak抛出SelStart计算(Delp

我们做一个“邮件合并”类型的事情,我们有模板,合并代码被解析并由外部数据源替换.

使用RichText.SelStart的pos(mystring,RichEdit.Text)和RichEdit文本中的定位索引之间的索引不匹配打破了我们的合并.

我没有一个很好的答案,但我想出了一个解决方法.这是一个有点麻烦(不满意！),但直到一个更好的解决方案来了…

解决方法是使用隐藏的TMemo并将RichEdit文本复制到其中,并将CR / LF对更改为CR.然后使用TMemo使用pos(string,TMemo)找到正确的定位,并使用它来获取在TRichEdit中使用的启动位置.

这真的很糟糕,但希望这个解决方法会帮助别人在我们的情况下,或者可能引发一些比我更聪明的人来提出一个更好的解决方案.

我会显示一些示例代码…

由于我们使用seltext替换文本,所以我们需要在BOTH中替换文本,RichEdit控件和TMemo控件以保持两者同步.

StartToken和EndToken是合并代码分隔符,是一个常量.

function TEditForm.ParseTest: boolean;
var TagLength: integer;
var ValueLength: integer;
var ParseStart: integer;
var ParseEnd: integer;
var ParseValue: string;
var Memo: TMemo;
begin
  Result := True;//Default
  Memo := TMemo.Create(nil);
  try
    Memo.Parent := self;
    Memo.Visible := False;
    try
      Memo.Lines.Clear;
      Memo.Lines.AddStrings(RichEditor.Lines);
      Memo.Text := stringreplace(Memo.Text,#13#10,#13,[rfReplaceAll]);//strip CR/LF pairs and replace with CR

      while (Pos(StartToken,Memo.Text) > 0) and (Pos(EndToken,Memo.Text) > 0) do begin
        ParseStart := Pos(StartToken,Memo.SelText);
        ParseEnd := Pos(EndToken,Memo.SelText) + Length(EndToken);
        if ParseStart >= ParseEnd then begin//oops,something's wrong - bail out
          Result := true;
          myEditor.SelStart := 0;
          exit;
        end;
        TagLength := ParseEnd - ParseStart;
        ValueLength := (TagLength - Length(StartToken)) - Length(EndToken);
        ParseValue := Copy(Memo.SelText,(ParseStart + Length(StartToken)),ValueLength);
        Memo.selstart := ParseStart - 1; //since the .text is zero based,but pos is 1 based we subtract 1
        Memo.sellength := TagLength;
        RichEditor.selstart := ParseStart - 1; //since the .text is zero based,but pos is 1 based we subtract 1
        RichEditor.sellength := TagLength;

        TempText := GetValue(ParseValue);
        Memo.SelText := TempText;
        RichEditor.SelText := TempText;
      end;

    except
       on e: exception do
          begin
          MessageDlg(e.message,mtInformation,[mbOK],0);
          result := false;
          end;
       end;//try..except
  finally
    FreeAndNil(Memo);
  end;
end;