首页 / DELPHI / delphi下TList的用法

delphi下TList的用法

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了delphi下TList的用法，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含822字，纯文字阅读大概需要2分钟。

内容图文

            unit
             Unit1;


            interface
            uses
            
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;


            type
            
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private{ Private declarations }public{ Public declarations }end;
type
  TMyRec = record
  Id: Integer;
  Name : String;
  Age : Integer;
  end;
 PTMyRec = ^TMyRec;
var
  Form1: TForm1;

implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
  PsnInfo:PTMyRec;
  PsnList:TList;
begin
  PsnList:=TList.Create;
  new(PsnInfo);
  PsnInfo^.Id:= 1;
  PsnInfo^.Name:= ‘ShenBin‘;
  PsnInfo^.Age:= 28;
  PsnList.Add(PsnInfo);
  PsnList.Add(PsnInfo);
  ShowMessage(IntToStr(PsnList.Count));
  PsnInfo:=PsnList.Items[1];
  ShowMessage(PsnInfo^.Name);
  Dispose(PsnInfo);
end;

end.

原文：http://www.cnblogs.com/China3S/p/3531858.html

内容总结

以上是互联网集市为您收集整理的delphi下TList的用法全部内容，希望文章能够帮你解决delphi下TList的用法所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

扫描二维码推送至手机访问。

本文链接：https://qyyshop.com/info/1274777.html

来源：【匿名】