EvalPtr:=ValList[9,0]-FeaturePos[0]+FeaturePos[2];
^Hor2Ptr2:=Hor2Ptr1[Index1];
Eval:=ValPtr[Index1];
^Hor2Ptr2:=Hor2Ptr1[Index1];
Eval:=ValPtr[Index1];
解决方案 »
- delphi xe2连接加密SQLite
- TreeView1.Selected.Item[0].Expand(true)这个是什么意思
- timer过程内的idhttp.get第二次运行时,取不到数据???
- 小问一下:当CSDN版主有工资的吗?
- 高分求教Win2003如何配置DCOM?
- delphi有米有类型转换啊?(30分钟后结帖)
- 安装Shell Controls and Automation 的错误!
- 请教,这是为什么,我在delphi7的Ttreeview中加入几个节点,可出现的是一堆乱字!
- 软件会自动退出,如何查看在什么地方出错而导致会自动退出。
- 高手请指点!!!!!
- 求教怎么保存数据表,200分求教
- 文件时间转换
^Hor2Ptr2: = ^Hor2Ptr1[Index1];
Eval: = ValPtr[Index1];
type
PHOR2_INFO=^HOR2_INFO;
HOR2_INFO = record
XSequares:integer;
Corner1:Shortint;
Corner2:Shortint;
end;
pSChar=^schar;
schar=char;
var
EvalPtr:pSChar;
ValList:Array[0..60,0..9] of pSChar;
FeaturePos:Array[0..9] of integer;
Hor2Ptr1,Hor2Ptr2:PHOR2_INFO;
Eval,Index1:integer;
ValPtr:pSChar;EvalPtr:=ValList[9,0]-FeaturePos[0]+FeaturePos[2];
Hor2Ptr2:=Hor2Ptr1[index1];
Eval:=ValPtr[Index1];