- 人气:
- 放大
- 缩小
- 二维码
- 赞赏
delphi结构体指针的使用
一段简单的代码就可以看明白它的用法:
type
rSMS = record //定义结构体
iSMSStore: integer;
iSMSIndex: integer;
end;
PSMS = ^rSMS; //定义结构体指针
...省略
var
SMSPointer: PSMS;
begin
New(SMSPointer);//申请
SMSPointer^.iSMSStore := 12;//赋值,Delphi允许省略^
SMSPointer^.iSMSIndex := 12;
//..对结构体指针的应用
Dispose(SMSPointer);//释放
end;