其实就是几行代码的事情,我来写一个函数:
procedure ConvertFrfToBig5(SourceF, DestiF : string);
var
p, i: integer;
AReport: TFrReport;
begin
AReport := TfrReport.Create(nil);
AReport.LoadFromFile(SourceF);
for p := 0 to AReport.Pages.Count -1do
for i :=0 to AReport.Pages[p].Objects.Count-1 do
if TObject(AReport.Pages[p].Objects) is TFrView then
with (TFrView(AReport.Pages[p].Objects))do
begin
Memo.Text := CvtStrToBig5(Memo.Text);
end;
AReport.SaveToFile(DestiF);
AReport.Free;
end;
注:/此处CvtStrToBig5函数是一个将字符转为繁体的函数,这种函数网上很多,你自己找找。
我的qq: 229481711,我不经常在这,可以来www.acreport.com找我。