我是在盒子里下载的 Asphyre eXtreme v3.10 组件包
链接:http://www.2ccc.com/article.asp?articleid=3671
但是在安装时出现了问题,环境是Delphi6或者Delphi7。
步骤是:首先将 AsphyreConsolePack 文件夹下面的 pas 文件复制到Source
目录下,因为在编译时会提醒缺少这些文件。在 Component 中 Install Conmpnent ;Package File name 里 Browse "source "文件夹下的 AsphyrePackage.dpk ,在 unit file name 里 browse dpk文件所在目录的 所有pas文件这里出现第一个问题:AsphyreFonts-OLD.pas 没有相应的 AsphyreFonts-OLD.dcu。我直接删掉。。
然后编译:TMatrix4 = array[0..3, 0..3] of Single; const
BufMtx: TMatrix4 = ((1.0, 0.0, 0.0, 0.0), (0.0, 1.0, 0.0, 0.0),
(0.0, 0.0, 1.0, 0.0), (0.0, 0.0, 0.0, 1.0));
procedure PBufMatRotateX(Angle: Real);
var c, s: Real;
begin
s := sin(Angle);
c := cos(Angle);
SetIdentityMatrix(@BufMtx);
BufMtx[1, 1]:= c;
BufMtx[1, 2]:= s;
BufMtx[2, 1]:= -s;
BufMtx[2, 2]:= c;
end;AsphyrePackage.dpk编译时,这样的定义下 BufMtx[1, 1]:= c; 出错
" Left side cannot be assigned to"
求高手指点,万分感谢~
链接:http://www.2ccc.com/article.asp?articleid=3671
但是在安装时出现了问题,环境是Delphi6或者Delphi7。
步骤是:首先将 AsphyreConsolePack 文件夹下面的 pas 文件复制到Source
目录下,因为在编译时会提醒缺少这些文件。在 Component 中 Install Conmpnent ;Package File name 里 Browse "source "文件夹下的 AsphyrePackage.dpk ,在 unit file name 里 browse dpk文件所在目录的 所有pas文件这里出现第一个问题:AsphyreFonts-OLD.pas 没有相应的 AsphyreFonts-OLD.dcu。我直接删掉。。
然后编译:TMatrix4 = array[0..3, 0..3] of Single; const
BufMtx: TMatrix4 = ((1.0, 0.0, 0.0, 0.0), (0.0, 1.0, 0.0, 0.0),
(0.0, 0.0, 1.0, 0.0), (0.0, 0.0, 0.0, 1.0));
procedure PBufMatRotateX(Angle: Real);
var c, s: Real;
begin
s := sin(Angle);
c := cos(Angle);
SetIdentityMatrix(@BufMtx);
BufMtx[1, 1]:= c;
BufMtx[1, 2]:= s;
BufMtx[2, 1]:= -s;
BufMtx[2, 2]:= c;
end;AsphyrePackage.dpk编译时,这样的定义下 BufMtx[1, 1]:= c; 出错
" Left side cannot be assigned to"
求高手指点,万分感谢~
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货