RichView 基本用法说明(7)

RVData.GetItemTextR(i)));

end else if not UnicodeFrom and ThisUnicodeTo then begin

RVData.GetItem(i).ItemOptions:=RVData.GetItem(i).ItemOptions+[rvioUn

icode];

RVData.SetItemTextR(i,RVU_AnsiToUnicode(RVData.GetStyleCodePage(0), RVData.GetItemTextR(i))); end; end; end; end; end; begin

HypertextStyleNo := 0; if KeepLinks then

for i := 0 to RVData.GetRVStyle.TextStyles.Count-1 do if RVData.GetRVStyle.TextStyles[i].Jump then begin HypertextStyleNo := i; break; end;

UnicodeTo := RVData.GetRVStyle.TextStyles[0].Unicode;

UnicodeHTo := RVData.GetRVStyle.TextStyles[HypertextStyleNo].Unicode; DoRemoveFormatting(RVData); end;

上面是主要实现方法，如果要在文档中正式使用此方法，调用下面的代码即可。

RemoveFormatting(RichViewEdit1.RVData, True, True);

NormalizeRichView(RichViewEdit1.RVData);//还原编辑器原始状态，这步很重要，主要起修复作用，可以理解为格式化

RichViewEdit1.DeleteUnusedStyles(True, True, True); RichViewEdit1.ClearUndo; RichViewEdit1.Format;