那就不用数据字典
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 -1 do
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;
以上是简体报表转换成繁体报表的例子,我想你看了后应该做做了吧,
无非是修改Memo.Text的内容呀.