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;

版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

ListView动态获取文件图标

uses ShellAPI; procedure TForm1.btn1Click(Sender: TObject); //大图标视图 var LgImg: THandle; sf...

Delphi中的TList演示实例

  • 2010-06-17 10:03
  • 173KB
  • 下载

实用tlist.exe

  • 2017-06-27 20:04
  • 13KB
  • 下载

ctags、vim、Tlist的使用

ctags、vim、Tlist的使用:首先安装ctags和Tlist:http://linux.chinaunix.net/techdoc/desktop/2009/01/05/1056779.sht...

查看进程工具tlist.exe

TList查询,查找!

  • 2013-01-04 19:47
  • 503KB
  • 下载

delphi中Tlist的使用。

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

控制TList的限量多选

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

Delphi 小谈之TList 篇(转)

转至:http://blog.csdn.net/jqandjq/article/details/5429137 看了这里标题,大家可能以为我会谈TListBox控件,那就错了。我要谈的是Delp...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

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