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

最新推荐文章于 2024-04-29 16:08:59 发布

原创最新推荐文章于 2024-04-29 16:08:59 发布 · 1.5k 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#list #destructor #constructor #integer #class

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

18 篇文章

订阅专栏

本文介绍使用Delphi实现学生信息管理的例子，通过定义结构体并利用List容器存储及操作数据。具体包括创建、添加、清除及显示学生信息。

//这里的List是一种容器，是一种泛指，可以是List、StringList、ThreadList、ObjectList等！

//现以List为例做一个例子！

unit StudentExample; interface uses Classes,SysUtils,Dialogs; type //定义结构体及其指针，定义指针目的在于把指针放到List容器中 PStudent = ^TStudent; TStudent = packed record Name: PChar;//这里以指针数据为例(简单数据类型太简单，没什么可注意的) Age: Integer; end; TStudentExample=class private FStudentList:TList ;//容器List procedure ClearStuInfo; public constructor Create; destructor destroy;override; procedure AddStuInfo;//生成结构体，并把指针添加信息至List procedure DisplayStuInfo;//显示List内结构体 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); GetMem(PStu^.Name,10);//对结构体内的PChar指针进行分配内存 StrPCopy(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 //注意1： //用GetMem进行申请的内存须用FreeMem来释放！ //如果不释放这里会出现内存泄露 FreeMem(PStudent(FStudentList.Items[FIndex]).Name); //注意2： //用New申请的内存须用Dispose来释放 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.