FastReport6.3 是中文官网下载的,想看看demo里面的例子,运行的时候一直报错;都是相同的错误;求高手解答下,是不是fastreport没装好?
1、你用的是试用版,可能有限制。
2、信息提示最后一行,说明FRXML.pas 有问题
3、代码窗口{$ifdef}处得知,你上面的DEMO是DELPHI 4.0的,而你现在的用 是DLPHI XE 10.3 还比Delphi 10.2 Tokyo 32 VER320 新,由此可推断全部是由于字符串字符类型发生了变化。 Delphi xe10, 支持AnsiChar和WideChar两种基本的字符类型.,你DEMO中的字符串改为ANSICHAR试试

错误提示比较明显,一个一个查吧,好多都更新了旧函数,比如第一个应该是SysUtils单元里面用CharInSet函数,你可能使用了key in []。
把 报错Error的两行的函数按照他的提示换一下。 或者google一下
frmxl.pas单元引用错误,应该是找不到这个文件,自己增加lib可以搜索的路径,然后就应该可以运行demo的例子了。
procedure TfrxXMLDocument.CreateTempFile;
var
{$IFDEF FPC}
Path: String;
{$ELSE}
{$IFDEF Delphi12}
Path: WideString;
FileName: WideString;
{$ELSE}
Path: String[64];
FileName: String[255];
{$ENDIF}
{$ENDIF}
begin
if FTempFileCreated then Exit;
{$IFDEF FPC}
Path := FTempDir;
if (Path = '') or not DirectoryExistsUTF8(Path) then
Path := GetTempDir;
FTempFile := GetTempFilename(Path,'');
FileCreate(FTempFile);
{$ELSE}
{$IFDEF Delphi12}
SetLength(FileName, 255);
Path := FTempDir;
if (Path = '') or not DirectoryExists(String(Path)) then
begin
SetLength(Path, 255);
SetLength(Path, GetTempPath(255, @Path[1]));
end
else
{$ELSE}
Path := FTempDir;
if (Path = '') or not DirectoryExists(Path) then
Path[0] := Chr(GetTempPath(64, @Path[1])) else
{$ENDIF}
Path := Path + #0;
if (Path <> '') and (Path[Length(Path)] <> '\') then
Path := Path + '\';
GetTempFileName(@Path[1], PChar('fr'), 0, @FileName[1]);
{$IFDEF Delphi12}
FTempFile := StrPas(PWideChar(@FileName[1]));
{$ELSE}
FTempFile := StrPas(@FileName[1]);
{$ENDIF}
{$ENDIF}
FTempStream := TFileStream.Create(FTempFile, fmOpenReadWrite);
FTempFileCreated := True;
end;
这是6.5.5版本的代码,建议你换一个版本使用,不要用你这6.3了。