本文整理自网络,侵删。
一段简单的代码就可以看明白它的用法:
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;
相关阅读 >>
Delphi tstringlist 保存txt文本文件最后一行不留空行
Delphi xe 使用savestate保存firemonkey状态的示例
Delphi tdirectory.tfilterpredicate
更多相关阅读请进入《Delphi》频道 >>