|

楼主 |
发表于 2009-5-14 14:53:06
|
显示全部楼层
我是这样做的
我建了一个 单元
unit PFXbyetointeger;
interface
function ByteTointeger( Abyte :array of Byte ):Integer;
implementation
function ByteTointeger( Abyte :array of Byte ):Integer;
begin
Result:=Integer(@Abyte);
end;
后建了一个PFXPackage.dpk
把那个那个单元加载到这个包里
后在编译路径里找到 PFXPackage.bpl 文件 拷贝到 D:\Program Files\justep\X3 Developer 目录下
后在平台的外部包 里添加 PFXPackage.bpl
后就想在程序使用了
我直接
var
lica: array of Byte;
setlength(lica,9);
lica[0]:=$08;
lica[1]:=$13;
lica[2]:=$49;
lica[3]:=$36;
lica[4]:=$97;
lica[5]:=$77;
lica[6]:=$61;
lica[7]:=$3a;
lica[8]:=$eb;
sss:= ByteTointeger(lica);
出现 [错误]Biz:\YWKJ\CSKJ\PFXTEST111111\FUNC\YWGN3.FUNC.DIR\MainForm.Form.pas(429, 22): Undeclared identifier "ByteTointeger" |
|