J
jlutt-sadan
Unregistered / Unconfirmed
GUEST, unregistred user!
小弟今天使用RichViewEdit中一个文档管理,在查找中文是出现问题了
RichViewEdit的主要设置如下(RichDoc为控件名):
RichDoc.RTFReadProperties.UnicodeMode := rvruMixed;
RichDoc.RTFReadProperties.TextStyleMode:=rvrsAddIfNeeded;
RichDoc.RTFReadProperties.ParaStyleMode:=rvrsAddIfNeeded;
把RichDoc对应的RVStyle的Styles[0]的UniCode设置为false(设置为true是测试过,没有成功)
有文档如下:
国务院关于大力发展职业技术教育的决定……
现在我在文档中查找“国务院”的时候,返回时RichDoc却选中“国务院关于大”;
一般情况下查找纯中文的时候 返回时长度都是查找的两倍 中英文混查时查不到了
下面是我的查找代码:
procedure TFrmDocMain.btnFindTextClick(Sender: TObject);
begin
DlgFind.FindText := RichDoc.GetSelText;
DlgFind.Execute;
end;
procedure TFrmDocMain.DlgFindFind(Sender: TObject);
begin
if not RichDoc.SearchText(DlgFind.FindText,GetRVESearchOptions(DlgFind.Options)) then
Application.MessageBox(PChar(Format(msgNotFount,[DlgFind.FindText])),
PChar(msgFindCompleteTitle),MB_OK or MB_ICONINFORMATION);
end;
请帮帮小弟,谢谢!
RichViewEdit的主要设置如下(RichDoc为控件名):
RichDoc.RTFReadProperties.UnicodeMode := rvruMixed;
RichDoc.RTFReadProperties.TextStyleMode:=rvrsAddIfNeeded;
RichDoc.RTFReadProperties.ParaStyleMode:=rvrsAddIfNeeded;
把RichDoc对应的RVStyle的Styles[0]的UniCode设置为false(设置为true是测试过,没有成功)
有文档如下:
国务院关于大力发展职业技术教育的决定……
现在我在文档中查找“国务院”的时候,返回时RichDoc却选中“国务院关于大”;
一般情况下查找纯中文的时候 返回时长度都是查找的两倍 中英文混查时查不到了
下面是我的查找代码:
procedure TFrmDocMain.btnFindTextClick(Sender: TObject);
begin
DlgFind.FindText := RichDoc.GetSelText;
DlgFind.Execute;
end;
procedure TFrmDocMain.DlgFindFind(Sender: TObject);
begin
if not RichDoc.SearchText(DlgFind.FindText,GetRVESearchOptions(DlgFind.Options)) then
Application.MessageBox(PChar(Format(msgNotFount,[DlgFind.FindText])),
PChar(msgFindCompleteTitle),MB_OK or MB_ICONINFORMATION);
end;
请帮帮小弟,谢谢!