文档章节

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

涂孟超
 涂孟超
发布于 2014/09/26 15:35
字数 156
阅读 6
收藏 0
点赞 0
评论 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
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
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
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
关于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
rt-thread线程调度器获取当前最高优先级线程算法过程分析

上一章大概分析了rt-thread操作系统的线程调度器的源码,此文具体来讲讲rt-thread在调试时,是如何获取获得当前最高优先级线程的算法过程。 之前已提到过,rt-thread采用了一个位图来实现此过...

长平狐
2013/03/19
406
0
史上最全eclispe快捷键

最全eclispe快捷键,常用快捷键已标红,记住常用快捷键大大提升开发效率 自定义快捷键:window -> preference ->General -> keys Run/Debug Step Into Selection Ctrl+F5 Debugging Run/Debu......

大道至精
2016/05/27
231
0
ArcGIS Runtime支持的GP工具列表

目前ArcGIS Runtime有两个版本 Basic版本和Standard版本,而Basic版本不支持Geoprocessing(这里指的是本地的Geoprocessing),对于Geoprocessing的支持是在Standard版本中,在Standard版本中又可...

长平狐
2012/11/28
416
0
Database User Roles

Database User Roles Every database includes the following client roles: read Provides the ability to read data on all non-system collections and on the following system collecti......

imhaha
2015/09/21
19
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

实现异步有哪些方法

有哪些方法可以实现异步呢? 方式一:java 线程池 示例: @Test public final void test_ThreadPool() throws InterruptedException { ScheduledThreadPoolExecutor scheduledThre......

黄威
今天
0
0
linux服务器修改mtu值优化cpu

一、jumbo frames 相关 1、什么是jumbo frames Jumbo frames 是指比标准Ethernet Frames长的frame,即比1518/1522 bit大的frames,Jumbo frame的大小是每个设备厂商规定的,不属于IEEE标准;...

六库科技
今天
0
0
牛客网刷题

1. 二维数组中的查找(难度:易) 题目描述 在一个二维数组中(每个一维数组的长度相同),每一行都按照从左到右递增的顺序排序,每一列都按照从上到下递增的顺序排序。请完成一个函数,输入...

大不了敲一辈子代码
今天
0
0
linux系统的任务计划、服务管理

linux任务计划cron 在linux下,有时候要在我们不在的时候执行一项命令,或启动一个脚本,可以使用任务计划cron功能。 任务计划要用crontab命令完成 选项: -u 指定某个用户,不加-u表示当前用...

黄昏残影
昨天
0
0
设计模式:单例模式

单例模式的定义是确保某个类在任何情况下都只有一个实例,并且需要提供一个全局的访问点供调用者访问该实例的一种模式。 实现以上模式基于以下必须遵守的两点: 1.构造方法私有化 2.提供一个...

人觉非常君
昨天
0
0
《Linux Perf Master》Edition 0.4 发布

在线阅读:https://riboseyim.gitbook.io/perf 在线阅读:https://www.gitbook.com/book/riboseyim/linux-perf-master/details 百度网盘【pdf、mobi、ePub】:https://pan.baidu.com/s/1C20T......

RiboseYim
昨天
1
0
conda 换源

https://mirrors.tuna.tsinghua.edu.cn/help/anaconda/ conda config --add channels https://mirrors.tuna.tsinghua.edu.cn/anaconda/pkgs/free/conda config --add channels https://mir......

阿豪boy
昨天
1
0
Confluence 6 安装补丁类文件

Atlassian 支持或者 Atlassian 缺陷修复小组可能针对有一些关键问题会提供补丁来解决这些问题,但是这些问题还没有放到下一个更新版本中。这些问题将会使用 Class 类文件同时在官方 Jira bug...

honeymose
昨天
0
0
非常实用的IDEA插件之总结

1、Alibaba Java Coding Guidelines 经过247天的持续研发,阿里巴巴于10月14日在杭州云栖大会上,正式发布众所期待的《阿里巴巴Java开发规约》扫描插件!该插件由阿里巴巴P3C项目组研发。P3C...

Gibbons
昨天
1
0
Tomcat介绍,安装jdk,安装tomcat,配置Tomcat监听80端口

Tomcat介绍 Tomcat是Apache软件基金会(Apache Software Foundation)的Jakarta项目中的一个核心项目,由Apache、Sun和其他一些公司及个人共同开发而成。 java程序写的网站用tomcat+jdk来运行...

TaoXu
昨天
0
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部