先是定义了这样一个记录,和一个记录的指针结构
RProduct = record
SDeInfoID :integer;
KeyId :integer;
SDeInfoAdd:string;
end;
TPRProduct = ^RProduct;这样使用 pProduct:TPRProduct;
pRProduct:RProduct;
List:TStringList; for i:=0 to 10 do
begin
GetMem(pProduct, SizeOf(RProduct));
pRProduct:= pProduct^;
pRProduct.SDeInfoAdd:='AAAAA'; ////这句经常会报错,不知道是为什么
List.Add(pProduct);
end;请教一下高人
RProduct = record
SDeInfoID :integer;
KeyId :integer;
SDeInfoAdd:string;
end;
TPRProduct = ^RProduct;这样使用 pProduct:TPRProduct;
pRProduct:RProduct;
List:TStringList; for i:=0 to 10 do
begin
GetMem(pProduct, SizeOf(RProduct));
pRProduct:= pProduct^;
pRProduct.SDeInfoAdd:='AAAAA'; ////这句经常会报错,不知道是为什么
List.Add(pProduct);
end;请教一下高人
解决方案 »
- 如何在dxdbgrid的脚注处显示记录条数?
- 利用RAS传输数据的问题
- 用过reportmachine的请进,郁闷问题搞得头大了
- 求救,十万火急!在线等答案!!!
- 谁知道 delphi+Winsock 和windows目录共享那个在LAN里的传输速度快.
- 麻烦各位介绍一下使用ADO组件进行数据库开发的好的资料\书籍\电子书.谢谢
- 各位高手,救命!!!!!!!!!!!!!!
- 我尝试使用Delphi6中的ActionMainMenuBar控件,但在运行期间ActionMainMenuBar上的菜单项却看不见
- 有关data module
- 怎样在一个Unit中引用另一个Unit里的FORM的procedure?
- 关于备份失败
- SQLITE数据库管理器ZLITE V1.2新版本发布了
另外GetMen用FreeMem释放,那New后应该怎样去释放啊?
new会为一个指针变量分配内存,会自动计算指针所指数据结构需要空的空间大小。实际上看new的源程序,其中用到了getmem,同时执行了一些初始化的操作。new以后用dispose释放
SDeInfoID :integer;
KeyId :integer;
SDeInfoAdd:string;
end;使用 GetmMem,
SDeInfoAdd:string; 要改成 SDeInfoAdd:string[255]; 这样的
new会为一个指针变量分配内存,会自动计算指针所指数据结构需要空的空间大小GetMem(prec)之後FillChar(prec^, SizeOf(prec^), 0);
http://topic.csdn.net/u/20100817/08/7619229d-2bce-466b-a08a-56fc29c1aa72.html