文档章节

详测 Generics Collections TList (3): Insert、Delete、Remove、Extract

涂孟超
 涂孟超
发布于 2014/09/26 15:35
字数 156
阅读 6
收藏 0
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses Generics.Collections;

procedure TForm1.Button1Click(Sender: TObject);
var
  List: TList<Integer>;
  i: Integer;
  str: string;
begin
  List := TList<Integer>.Create();
  List.Add(111);
  List.Add(222);
  List.Add(333);

  List.Insert(0, 444);
  List.Insert(2, 555);

  str := '';
  for i in List do str := str + UIntToStr(i) + ' '; {444 111 555 222 333 }
  ShowMessage(str);

  List.Delete(0);
  List.Delete(List.Count-1);

  str := '';
  for i in List do str := str + UIntToStr(i) + ' '; {111 555 222 }
  ShowMessage(str);

  List.Remove(555); {删除指定元素}

  str := '';
  for i in List do str := str + UIntToStr(i) + ' '; {111 222 }
  ShowMessage(str);

  List.Extract(222); {提取指定元素}

  str := '';
  for i in List do str := str + UIntToStr(i) + ' '; {111 }
  ShowMessage(str);
  
  List.Free;
end;

end.

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2009/10/11/1580697.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
Delphi 2010 中的泛型

Delphi 2010 中的泛型日期:2010年5月31日 作者: 人气:10504 查看:[大字体 中字体 小字体]2010已发布很长时间了,口碑还不错,准备用它开发下一项目,但对泛型等新东西的认识还不够,就搜了...

vga
2016/08/09
19
0
BeanUtils 1.9.0 发布, JavaBean 工具包

BeanUtils 1.9.0 版本包括一些bug修复和改进。最明显的改进是新版本现在要求 JDK5.0 版本以上,语言特性引入了Java 5(主要是泛型),同时还支持自定义 bean introspection。 修复的bugs ==...

唐伟
2013/12/13
1K
0
mysql JSON Function

|Name| Description|| ------------- |:-------------:||JSON_APPEND()| Append data to JSON document||JSON_ARRAY()| Create JSON array||JSONARRAYAPPEND()| Append data to JSON documen......

HashTable
2016/09/10
31
0
mysql5.7新特性JSON数据类型解析

废话不多说,直接上实例。 一、json结构 创建测试表 CREATE TABLE ( int(11) unsigned NOT NULL AUTO_INCREMENT, json NOT NULL, json NOT NULL, PRIMARY KEY ()) ENGINE=InnoDB AUTO_INCREM......

hgditren
01/03
0
0
python模块介绍- collections(3)-deque双向队列

python模块介绍- collections(3)-deque双向队列 2013-04-17 磁针石 #承接软件自动化实施与培训等gtalk:ouyangchongwu#gmail.com qq 37391319 博客:http://blog.csdn.net/oychw #版权所有,转...

长平狐
2013/12/25
5.4K
1

没有更多内容

加载失败,请刷新页面

加载更多

用Golang做了一个命令行贪吃蛇游戏

用Golang做了一个命令行贪吃蛇游戏 项目介绍 项目链接:https://gitee.com/lwow2025/snake-go 最近看了一本做几个小项目的书,突然就想用Golang做一个命令行贪吃蛇,也没啥特殊原因。 软件架...

Mediv
16分钟前
0
0
storm的利用并行度提高处理速度的经验

在storm的流计算框架中,在数据量非常大或者计算逻辑比较复杂的情况下,可能会造成处理速度变慢的情况,最后反而不满足了系统的处理要求,因此这里讨论一下。本文的内容是我在storm的使用过程...

飓风2000
26分钟前
0
0
课程推荐|深入浅出区块链博主:全栈区块链开发者的4堂必修课(线上优惠)

Tiny熊从2017年开始更新“深入浅出区块链”博客,在第一篇文章中,关于如何系统学习区块链技术,他这样描述:“从事区块链开发也有很多方向,如:区块链应用开发人员、区块链架构师、底层核心...

HiBlock
37分钟前
0
0
激活win10 亲测有效

1.首先,我们先查看一下Win10正式专业版系统的激活状态: 点击桌面左下角的“Windows”按钮,从打开的扩展面板中依次点击“设置”-“更新和安全”,并切换到“激活”选项卡,在此就可以查看到...

可达鸭眉头一皱
39分钟前
0
0
SpringWind180926

SpringWind SpringWind项目代码学习笔记 /SpringWind/src/main/webapp/WEB-INF/views/login.html 第15行action="#springUrl('/account/login.html')"【为什么是#springUrl】 第4行<a class=......

颖伙虫
52分钟前
1
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部