【容器+结构体】注意事项二

最新推荐文章于 2020-03-19 15:31:30 发布

liangpei2008

最新推荐文章于 2020-03-19 15:31:30 发布

阅读量1k

点赞数

分类专栏：语言与基础算法文章标签： destructor string constructor integer class

本文链接：https://blog.csdn.net/liangpei2008/article/details/4134543

版权

语言与基础算法专栏收录该内容

18 篇文章 0 订阅

订阅专栏

用无类型指针释放结构体，要特别注意！

unit Unit2; interface uses Classes,SysUtils,Dialogs; type PStudent = ^TStudent; TStudent = packed record Name: String;//这里以String为例,众所周知，String为一个指针，不用GetMem来显式申请内存，并且其内有计数，由RTL来管理生命周期 Age: Integer; end; TStudentExample=class private FStudentList:TList ; procedure ClearStuInfo; public constructor Create; destructor destroy;override; procedure AddStuInfo; procedure DisplayStuInfo; end; implementation constructor TStudentExample.Create; begin inherited; FStudentList:=TList.Create; end; destructor TStudentExample.destroy; begin ClearStuInfo; FStudentList.free; inherited; end; procedure TStudentExample.AddStuInfo; var PStu:PStudent; FIndex:Integer; begin for FIndex:=0 to 3 do begin New(PStu); PStu^.Name:='lp'+Inttostr(FIndex); PStu^.Age:=FIndex; FStudentList.Add(PStu); end; end; procedure TStudentExample.ClearStuInfo; var FIndex:Integer; begin for FIndex:=0 to 3 do begin //Dispose(FStudentList.Items[FIndex]); //这时如果用无类型指针释放FStudentList内的结构体时，不能对其内的String进行释放，也就是无法对String进行引用减1，从而导致在释放结构体时释放不完整！下面的代码是正确的！对于为什么会这样，大家看一下__Finalize(p, typeinfo)的VCL代码 Dispose(PStudent(FStudentList.Items[FIndex])); end; end; procedure TStudentExample.DisplayStuInfo; var FIndex:Integer; begin for FIndex:=0 to 3 do begin ShowMessage('name='+PStudent(FStudentList.Items[FIndex]).Name); ShowMessage('age='+Inttostr(PStudent(FStudentList.Items[FIndex]).age)) ; end; end; end.