http://blog.163.com/jiandande3218@126/blog/static/74728469201132721428194/

Delphi中Tlist实例

2011-04-27 14:14:28|  分类: Delphi学习 |  标签:list  frmred  tform  frmblue  frmgreen  |举报|字号 订阅

 
 

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    btn1: TButton;
    btn2: TButton;
    btn3: TButton;
    btn4: TButton;
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);

var
  List: TList;
      {声明 List}
  frmRed: TForm;                     {用于测试的对象, 这里选择了窗体}
begin
  List := TList.Create;              {建立列表}

frmRed := TForm.Create(nil);       {建立 frmRed}
  frmRed.Caption:='red';         {frmRed 标题}
  frmRed.Color := clRed;          {frmRed 颜色}
  
  List.Add(frmRed);                  {添加到列表}

frmRed:=TForm.Create(nil);     {又建立个frmred}
  frmRed.Caption:='bre';         {frmred 标题}
  frmRed.Color :=clBlue;          {frmred 颜色}
  List.Add(frmRed);                  {添加到列表}

ShowMessage(IntToStr(List.Count)); {1; 列表元素总数}
  //TForm(List.Items[0]).ShowModal;  {调用对象}
  TForm(List[0]).ShowModal;         {调用对象, 比上一行的写法简洁, 但是一样的}
  TForm(List[1]).ShowModal;
  frmRed.Free;
  List.Free;
end;

procedure TForm1.btn2Click(Sender: TObject);
// Insert、Remove、Delete、Clear、First、Last
var
  List: TList;                       
  frmRed,frmGreen,frmBlue: TForm;
  i: Integer;
begin
  List := TList.Create;

{建立两个窗体: 红色、绿色}
  frmRed := TForm.Create(nil);
  frmRed.Caption := 'Red';
  frmRed.Color := clRed;

frmGreen := TForm.Create(nil);
  frmGreen.Caption := 'Green';
  frmGreen.Color := clGreen;

{添加到 List}
  List.Add(frmRed);
  List.Add(frmGreen);

{再建立一个蓝色窗体}
  frmBlue := TForm.Create(nil);
  frmBlue.Caption := 'Blue';
  frmBlue.Color := clBlue;

{插入到 List}
  List.Insert(0, frmBlue);

ShowMessage(IntToStr(List.Count)); {3}
  TForm(List.First).ShowModal;       {显示第一个: 蓝色窗体}
  TForm(List.Last).ShowModal;        {显示最后一个: 绿色窗体}

{看看红色窗体是第几个?}
  i := List.IndexOf(frmRed);
  ShowMessage(IntToStr(i));          {1; 是第二个}

{从列表中删除 - 用对象指针}
  List.Remove(frmRed);
  ShowMessage(IntToStr(List.Count)); {2}
  frmRed.ShowModal;                  {frmRed 依然存在, 只是不在列表中了}

{从列表中删除 - 用元素索引}
  List.Delete(0);
  frmBlue.ShowModal;                 {frmBlue 依然存在, 只是不在列表中了}

{清空列表}
  List.Clear;

frmRed.Free;
  frmGreen.Free;
  frmBlue.Free;
  List.Free;
end;

procedure TForm1.btn3Click(Sender: TObject);
// Capacity、Move、Exchange、Extract
var
  List: TList;                       
  frmRed,frmGreen,frmBlue: TForm;
  p: Pointer;
  i: Integer;
begin
  List := TList.Create;

List.Capacity := 3; {让 List 准备好接受 3 个元素}

{建立红、绿、蓝三个窗体, 并添加到 List}
  frmRed := TForm.Create(nil);
  frmRed.Caption := 'Red'; frmRed.Color := clRed;
  frmGreen := TForm.Create(nil);
  frmGreen.Caption := 'Green'; frmGreen.Color := clGreen;
  frmBlue := TForm.Create(nil);
  frmBlue.Caption := 'Blue'; frmBlue.Color := clBlue;
  List.Add(frmRed);
  List.Add(frmGreen);
  List.Add(frmBlue);

{依次显示窗体标题}
  for i := 0 to List.Count - 1 do
    ShowMessage(TForm(List[i]).Caption); {将分别显示: Red Green Blue}

{移动}
  List.Move(2,0); {把第 3 个转移到第 1 个}
  for i := 0 to List.Count - 1 do
    ShowMessage(TForm(List[i]).Caption); {将分别显示: Blue Red Green}

{置换}
  List.Exchange(1,2); {把第 2 个与第 3 个交换}
  for i := 0 to List.Count - 1 do
    ShowMessage(TForm(List[i]).Caption); {将分别显示: Blue Green Red}

{提取指针}
  p := List.Extract(frmGreen);
  ShowMessage(TForm(p).Caption);         {Green}

frmRed.Free;
  frmGreen.Free;
  frmBlue.Free;
  List.Free;
end;

end.

Delphi中Tlist实例的更多相关文章

  1. Delphi中TList类应用

    在DELPHI中指针最常见的就是和类TLIST结合起来使用.下面是一个很简单的例子,希望对这个例子的分析能让大家对使用TLIST类有一个简单的认识. 代码的功能是使用指针和Tlist来生成一个牌串,并 ...

  2. Delphi中线程类TThread实现多线程编程2---事件、临界区、Synchronize、WaitFor……

    接着上文介绍TThread. 现在开始说明 Synchronize和WaitFor 但是在介绍这两个函数之前,需要先介绍另外两个线程同步技术:事件和临界区 事件(Event) 事件(Event)与De ...

  3. Delphi中解析Xml的控件-SimDesign NativeXml

    Delphi中解析Xml的控件-SimDesign NativeXml 正在学习,感觉应用很方便.无源代码的版本还是免费的. SimDesign.NativeXml是一个delphi和bcb的XML控 ...

  4. 转发 Delphi中线程类TThread 实现多线程编程

    Delphi中有一个线程类TThread是用来实现多线程编程的,这个绝大多数Delphi书藉都有说到,但基本上都是对TThread类的几个成员作一简单介绍,再说明一下Execute的实现和Synchr ...

  5. 转:Delphi中使用比较少的一些语法

    http://www.cnblogs.com/Murphieston/p/5577836.html 本文是为了加强记忆而写,这里写的大多数内容都是在编程的日常工作中使用频率不高的东西,但是又十分重要. ...

  6. Delphi中的线程类 - TThread详解

    Delphi中的线程类 - TThread详解 2011年06月27日 星期一 20:28 Delphi中有一个线程类TThread是用来实现多线程编程的,这个绝大多数Delphi书藉都有说到,但基本 ...

  7. Delphi中的线程类(转)

    Delphi中的线程类 (转) Delphi中有一个线程类TThread是用来实现多线程编程的,这个绝大多数Delphi书藉都有说到,但基本上都是对 TThread类的几个成员作一简单介绍,再说明一下 ...

  8. Delphi中使用比较少的一些语法

    本文是为了加强记忆而写,这里写的大多数内容都是在编程的日常工作中使用频率不高的东西,但是又十分重要. ---Murphy 1,构造和析构函数: a,构造函数: 一般基于TComponent组件的派生类 ...

  9. Delphi中的接口和抽象类

    参考:http://blog.csdn.net/xinzheng_wang/article/details/6058643 接口:Interface Delphi中接口中的关键字Interface,但 ...

随机推荐

  1. win10系统Docker和VMware WorkStation共存,远程工具连接Docker

    摘要:win10安装docker进行学习的两种途径: Docker for Windows Installer.exe(地址https://download.docker.com/win/stable ...

  2. String hashCode 这个数字,很多人不知道!

    作者:coolblog segmentfault.com/a/1190000010799123 1. 背景 某天,我在写代码的时候,无意中点开了 String hashCode 方法.然后大致看了一下 ...

  3. JWT详解-(JSON Web Token教程)

    JSON Web Token(缩写 JWT)是目前最流行的跨域认证解决方案,本文介绍它的原理和用法. 一.跨域认证的问题 互联网服务离不开用户认证.一般流程是下面这样. 1.用户向服务器发送用户名和密 ...

  4. Runnable和Thread区别和比较

    在很多博客中用这样一个例子来说明 Runnable更容易实现资源共享,能多个线程同时处理一个资源. 看代码: public static void main(String[] args) { new ...

  5. webpack搭建vue项目开发环境【文档向学习】

    为何有这篇文章 各个社区已经有无数篇帖子介绍如何使用webpack搭建前端项目,但无论是出于学习webpack的目的还是为了解决工作实际需要都面临着一个现实问题,那就是版本更新.别人的帖子可能刚写好版 ...

  6. js中的offsetWidth用法

    offsetWidth  //返回盒模型的宽度(包括width+左右padding+左右border) <style> #div1 { width:200px; height:200px; ...

  7. 解决Vscode编辑器不能打开多标签页问题

    问题描述:编辑代码时,初用vscode,不能打开多个文件:每打开一个文件,都会替换前面一个文件标签,很不方便切换编码: 想要的效果: 解决方式: 方法一: 找到setting.json文件,最外层花括 ...

  8. javascript中的对象字面量为啥这么酷

    原文链接 : Why object literals in JavaScript are cool 原文作者 : Dmitri Pavlutin 译者 : neal1991 个人主页:http://n ...

  9. C# WinForm定时触发事件

    using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; usin ...

  10. "不能将值 NULL 插入列 'ID',表 列不允许有 Null 值."

    问题: "不能将值 NULL 插入列 'ID',表 列不允许有 Null 值." 原因: 在进行表创建的时候没有将主键自增字段添加标识. 在使用navicat进行表创建的时候一定要 ...