Tlist_Demo

原创 2013年12月04日 23:19:24
type
  TSmt = record
    SName: string[16];
    Feeder: Integer;
    Dushu: Real;
  end;

  Psmt = ^TSmt;

var
  List: TList;  //List:Tlist<Psmt>;  泛型指针Tlist  uses Generics.Collections;


procedure TForm2.Button1Click(Sender: TObject);
var
  buf: Psmt;
  i: Integer;
begin
  if not Assigned(list) then
  begin
    List := TList.Create;   //List:=Tlist<Psmt>.create;
    for i := 0 to 10 do
    begin
      New(buf); // 这里用指针比直接用Tsmt方便,不用申明多个Tsmt变量
      buf.SName := '第' + Inttostr(i) + '个链表!';
      List.Add(buf);
      ShowMessage((Psmt(List.Items[i])^).SName);
    end;
  end
  else
  ShowMessage('无须重复');
end;

procedure TForm2.Button2Click(Sender: TObject);
var
  i: Integer;
begin
  if (Assigned(List)) and (List.Count > 0) then
  begin
    for i := List.Count - 1 downto 0 do
    begin
      if  Assigned(List.Items[i]) then
      begin
        ShowMessage((Psmt(List.Items[i])^).SName);
        Dispose(List.Items[i]);
        List.Delete(i);
      end;
    end;
    FreeAndNil(List);
  end
  else
    ShowMessage('链表为空或未创建对象实例');
end;

Delphi中的TList演示实例

  • 2010年06月17日 10:03
  • 173KB
  • 下载

查看进程工具tlist.exe

  • 2015年11月03日 13:37
  • 7KB
  • 下载

delphi中Tlist的使用。

我在上面的BLOG中写到了使用指针的方法。在DELPHI中指针最常见的就是和类TLIST结合起来使用。下面是一个很简单的例子,希望对这个例子的分析能让大家对使用TLIST类有一个简单的认识。 代...

TList查询,查找!

  • 2013年01月04日 19:47
  • 503KB
  • 下载

ctags、vim、Tlist的使用

ctags、vim、Tlist的使用:首先安装ctags和Tlist:http://linux.chinaunix.net/techdoc/desktop/2009/01/05/1056779.sht...
  • dedlous
  • dedlous
  • 2011年07月20日 18:44
  • 4134

linux命令Tlist的安装

TagList插件,是一款基于ctags,在vim代码窗口旁以分隔窗口形式显示当前文件的代码结构概览,增加代码浏览的便利程度的Vim插件。官方网址:Tag List,当前最新可用版本为v4.5. 1...

TList对象的缺点与改进

在C++ Builder中,VCL库包含一个TList类,用于管理指针列表。然而,TList类含有许多缺点,其中最严重的缺点是TList缺乏类型的安全性及内存空间的自动释放。本文将探讨TList类的缺...

Delphi容器类之---TList、TObjectList、TComponentList、TClassList的使用

从Delphi5开始VCL中增加了新的Contnrs单元,单元中定义了8个新的类,全部都是基于标准的TList类。 TList                          TList类实际上就是...

控制TList的限量多选

大家知道TWaver Java总的TList继承自Swing的JList,所以我们可以很容易控制其选择,例如单选、多选等。但是本文介绍如何控制按指定数量进行选择。 人生就是一个不停选择的过程。所以,...

TList 使用

TList包含对象指针列表。 Tlist用于存储和维护对象列表。TList引入属隆和方法以执行以下操作: (1)在列表中增加或删除对象。 (2)在列表中重排对象。 (3)在列表中定位和获得对象...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Tlist_Demo
举报原因:
原因补充:

(最多只允许输入30个字)