文档章节

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

涂孟超
 涂孟超
发布于 2014/09/26 15:35
字数 156
阅读 25
收藏 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

涂孟超
粉丝 13
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
加载中

评论(0)

Delphi 2010 中的泛型

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

vga
2016/08/09
206
0
看看Delphi中的列表(List)和泛型

前言 最开始学习数据结构的时候,链表,堆栈,队列,数组,似乎只是一堆概念,随着使用中慢慢接触,其对应的模型,功能,一个个跃到眼前,变成了复杂模型数据处理中的最重要的部分。---By M...

osc_x4h57ch8
2018/04/25
2
0
09 mongoDB基础(进阶)

mongoDB基础 阶段一、认识mongodb 1、mongodb 组织数据的基本形式 MongoDB————》数据库————》集合————》文档 mysql:表:行和列:字段 运用场景:如 送外卖骑手的实时信息、日志...

osc_1sn2561n
2018/07/06
0
0
MyBatis的Mapper配置文件的parameterType用法

在MyBatis的select、insert、update、delete这些元素中都提到了parameterType这个属性。MyBatis现在可以使用的parameterType有基本数据类型和JAVA复杂数据类型 基本数据类型:包含int,Strin...

osc_q2cisxou
2018/02/26
4
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
2018/01/03
0
0

没有更多内容

加载失败,请刷新页面

加载更多

Go Gin 简明教程

https://geektutu.com/post/quick-go-gin.html

Java搬砖工程师
34分钟前
13
0
中台建设-中台概述

一,什么是中台 ①,中台是能力的共享和沉淀, ②,中台是为前台服务的,有了中台,可快速构建前台应用. 二,为什么建设中台 ①,能力共享和沉淀,避免烟囱似建设 ②,快速搭建前台. 3,怎么建设中台...

Original123
36分钟前
15
0
如何更改远程Git存储库的URI(URL)? - How to change the URI (URL) for a remote Git repository?

问题: I have a repo (origin) on a USB key that I cloned on my hard drive (local). 我在硬盘驱动器(本地)上克隆的USB密钥上有一个回购(来源)。 I moved "origin" to a NAS and succ......

技术盛宴
49分钟前
26
0
连接热点的电脑能注册到开热点电脑的注册中心,但是网关不能路由到服务实例

类似问题描述 1.连接热点的电脑能注册到开热点电脑的注册中心,但是网关不能路由到服务实例。2.微服务注册到到Eureka注册中心的ip不正确,导致网关路由不到具体为服务实例。3.Eureka注册...

LoSingSang
53分钟前
14
0
利用flask部署keras模型报错

利用flask部署keras模型时报错: Tensor("dense_2/Softmax:0", shape=(?, 26), dtype=float32) is not an element of this graph. 解决方法 import tensorflow as tfgraph = tf.get_default......

hc321
今天
21
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部