FastReport 2.5*为何不能打开以前版本中所创建的frf文件？-FastReport中文网

FastReport 2.5*为何不能打开以前版本中所创建的frf文件？

作者：zhuhm 来源：FastReport中文网浏览：Loading... 日期：2012-07-31

问题描述：比如说，我现在使用的是FastReport 2.4版本，然而在FastReport 2.4版本中却不能打开以前在FastReport 2.2版中所创建的.frf 文件，这是为何？

解决方法：将报表文件中的第一个字节改为16h，在源代码中做如下修改。修改后，加载并保存报表。最后，返回原来的代码。

FR_Class:

function ReadString(Stream: TStream): String;
begin
{ if frVersion >= 23 then}
Result := frReadString(Stream) {else
Result := frReadString22(Stream);}
end;

procedure ReadMemo(Stream: TStream; Memo: TStrings);
begin
{ if frVersion >= 23 then}
frReadMemo(Stream, Memo){ else
frReadMemo22(Stream, Memo);}
end;

FR_Utils:

procedure frReadMemo(Stream: TStream; l: TStrings);
var
s: String;
b: Byte;
n: Word;
begin
l.Clear;
l.Text := frReadString(Stream); exit;
Stream.Read(n, 2);
if n > 0 then
repeat
Stream.Read(n, 2);
SetLength(s, n);
Stream.Read(s[1], n);
l.Add(s);
Stream.Read(b, 1);
until b = 0
else
Stream.Read(b, 1);
end;

function frReadString(Stream: TStream): String;
var
s: String;
n: Integer;
b: Byte;
begin
Stream.Read(n, 4);
SetLength(s, n);
Stream.Read(s[1], n);
// Stream.Read(b, 1);
Result := s;
end;

常见问题

最受欢迎的文章

最新文章

文章存档

热门Tag标签

FastReport 2.5*为何不能打开以前版本中所创建的frf文件？