文档章节

详测 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
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.5K
1
关于ogg同步失败之WARNING OGG-01008 Discarding bad record

今天在ogg环境中,发现在extract参数中增加了where过滤,导致update操作同步不过去, 有大量的discard(WARNING OGG-01008 Discarding bad record ),但是insert和delete同步没问题, 按照以下...

hawk682808
2015/02/11
0
0

没有更多内容

加载失败,请刷新页面

加载更多

我的Linux系统九阴真经

在今天,互联网的迅猛发展,科技技术也日新月异,各种编程技术也如雨后春笋一样,冒出尖来了。各种创业公司也百花齐放百家争鸣,特别是针对服务行业,新型互联网服务行业,共享经济等概念的公...

linux-tao
今天
17
0
MySQL: Starting MySQL….. ERROR! The server quit without updating PID file

前段时间打包了一个数据库镜像,但是启动容器之后发现报错 ··· ··· MySQL: Starting MySQL….. ERROR! The server quit without updating PID file 查了网络上的解决方案比较全,遂转帖...

blackfoxya
今天
4
0
C4C销售订单行项目价格维护方法

需求很简单,能够创建销售订单,在行项目里添加产品,带出价格来,同时把总价显示在销售订单抬头区域。 如下图所示: 下面是具体配置。 Business Configuration里,点击Sales Order的配置: ...

JerryWang_SAP
今天
14
0
deepin中配置robot framework环境

本文永久更新地址:https://my.oschina.net/bysu/blog/2989005 【若要到岸,请摇船:开源中国 不最醉不龟归】 1.在终端中输入pip,回车,如果提示没有该命令,则先安转pip sudo apt-get inst...

不最醉不龟归
今天
16
0
OSChina 周日乱弹 —— 钱不还,我就当你人不在了

Osc乱弹歌单(2018)请戳(这里) 【今日歌曲】 @莱布妮子 :分享Bigleaf的单曲《小鹿》 《小鹿》- Bigleaf 手机党少年们想听歌,请使劲儿戳(这里) 周日在家做什么? 做手工呀, @poorfis...

小小编辑
今天
318
6

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部