文档章节

测试 TList

涂孟超
 涂孟超
发布于 2014/09/26 15:34
字数 650
阅读 1
收藏 0
// Add、Count、Items[n]
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);                  {添加到列表}

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

  frmRed.Free;
  List.Free;
end;

 
 
 
 
 

 

 

  
// 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;
// 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;
//定义排序函数 function MySort(p1, p2: Pointer): Integer; begin Result := AnsiStrComp(p1,p2); end; procedure TForm1.Button1Click(Sender: TObject); var List: TList; frmRed,frmGreen,frmBlue: TForm; i: Integer; begin List := TList.Create; {建立绿、红、蓝三个窗体, 并添加到 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.Sort(MySort); for i := 0 to List.Count - 1 do ShowMessage(TForm(List[i]).Caption); {将分别显示: Blue Green Red} // FreeAndNil(frmBlue); // List.Pack; {这个没有测试成功! Pack 应该是清除所有已是 nil 的对象} {释放所有对象} for i := 0 to List.Count - 1 do TForm(List[i]).Free; List.Free; end;

本文转载自:http://www.cnblogs.com/del/archive/2007/12/29/1019566.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
vim for php IDE 我的打造过程

vim是一个很强的神器,对于我只用到其中的一小部分内容,接下来是我打造 php IDE的全过程,希望有兄弟能指点我其中的不足,要学习的兄弟能跟我一起努力学习。 第一步:配_vimrc,配成自己喜欢...

路边拾草人
2011/04/16
9.7K
21
FastJSON配合Redis存取处理map数据

伪代码如下:

Alexdevlin
2017/07/26
12
0
新手搞不懂是哪里出来差错

import itchat import re import jieba import matplotlib.pyplot as plt from wordcloud import WordCloud import PIL.Image as Image itchat.login() friends = itchat.get_friends(update......

jackytheguo
2017/05/14
64
0
深入解析windows XP/2003:查看进程树

在windows调试工具箱中使用tilist.exe的/t开关,显示进程树。 Microsoft Windows XP [版本 5.1.2600] (C) 版权所有 1985-2001 Microsoft Corp. C:/Program Files/Debugging Tools for Windo......

晨曦之光
2012/03/09
0
0
VIM编辑器支持Python开发环境(Vim+Ctags+Taglist)

在Linux下用VI编辑器进行Python开发,有必要对VI编辑器进行一些配置,使其具备以下特性: 1、加强的 Python 语法高亮显示; 2、对脚本、项目生成 ctag 序列; 3、在 vim 中显示 ctag 序列列表...

庄小寒
2014/02/26
0
0

没有更多内容

加载失败,请刷新页面

加载更多

redis 系列一 -- 简介及安装

1.简介 redis -- remote dictionary server 远程字典服务 使用 C 语言编写; 高性能的 key-value数据库; 内存数据库,支持数据持久化。 Redis 是一个开源(BSD许可)的,内存中的数据结构存...

imbiao
34分钟前
1
0
nginx log记录请求响应时间

有时为了方便分析接口性能等,需要记录请求的时长,通过修改nginx的日志格式可以做到,如 添加一个新的log_format log_format timed_combined '$remote_addr - $remote_user [$time_local] "...

swingcoder
58分钟前
2
0
Spring MVC之RequestMappingHandlerMapping匹配

对于RequestMappingHandlerMapping,使用Spring的同学基本都不会陌生,该类的作用有两个: 通过request查找对应的HandlerMethod,即当前request具体是由Controller中的哪个方法进行处理; 查...

爱宝贝丶
今天
2
0
Java Web--增删改查之二界面后台java代码(转载参考)

/** *  *//** * @author Administrator * */package dao; import java.sql.*;public class DBConn {/** * 链接数据库 * @return */  ...

小橙子的曼曼
今天
4
0
Redis源码阅读笔记-对象及其类型和编码

总结之《Redis设计与实现》 对象 Redis中是使用对象来便是数据库中的键和值。 结构 // server.h...#define LRU_BITS 24...typedef struct redisObject { unsigned type:4; ...

Jian_Ming
今天
2
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部