文档章节

使用泛型, 写一个为任意类型的动态数组添加元素的方法

涂孟超
 涂孟超
发布于 2014/09/26 15:33
字数 588
阅读 9
收藏 0

一、使用泛型类:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  end;

  TArr<T> = class
    class procedure ArrayAdd(var Arr: TArray<T>; const item: T);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TArr<T> }

class procedure TArr<T>.ArrayAdd(var Arr: TArray<T>; const item: T);
begin
  SetLength(Arr, Length(Arr)+1);
  Arr[High(Arr)] := item;
end;

//测试
procedure TForm1.FormCreate(Sender: TObject);
var
  arr1: TArray<string>;
  arr2: TArray<Integer>;
begin
  TArr<string>.ArrayAdd(arr1, 'abc');
  TArr<Integer>.ArrayAdd(arr2, 123);
  ShowMessageFmt('%s,%d', [arr1[0], arr2[0]]); //abc,123
end;

end.


二、使用泛型结构:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  end;

  TArr<T> = record //record
    class procedure ArrayAdd(var Arr: TArray<T>; const item: T); static; //结构中的 class 方法必须是 static 的
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TArr<T> }

class procedure TArr<T>.ArrayAdd(var Arr: TArray<T>; const item: T);
begin
  SetLength(Arr, Length(Arr)+1);
  Arr[High(Arr)] := item;
end;

//测试
procedure TForm1.FormCreate(Sender: TObject);
var
  arr1: TArray<string>;
  arr2: TArray<Integer>;
begin
  TArr<string>.ArrayAdd(arr1, 'abc');
  TArr<Integer>.ArrayAdd(arr2, 123);
  ShowMessageFmt('%s,%d', [arr1[0], arr2[0]]); //abc,123
end;

end.


三、在类或结构中建立泛型方法:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  end;

  TArr = record
    class procedure ArrayAdd<T>(var Arr: TArray<T>; const item: T); static;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TArr }

class procedure TArr.ArrayAdd<T>(var Arr: TArray<T>; const item: T);
begin
  SetLength(Arr, Length(Arr)+1);
  Arr[High(Arr)] := item;
end;

//测试
procedure TForm1.FormCreate(Sender: TObject);
var
  arr1: TArray<string>;
  arr2: TArray<Integer>;
begin
  TArr.ArrayAdd<string>(arr1, 'abc');
  TArr.ArrayAdd<Integer>(arr2, 123);
  ShowMessageFmt('%s,%d', [arr1[0], arr2[0]]); //abc,123
end;

end.


四、扩充 System.Generics.Collections 单元中的 TArray 类:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, System.Generics.Collections;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  end;

  Txxx = class helper for TArray
    class procedure ArrayAdd<T>(var Arr: TArray<T>; const item: T); static;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ Txxx }

class procedure Txxx.ArrayAdd<T>(var Arr: TArray<T>; const item: T);
begin
  SetLength(Arr, Length(Arr)+1);
  Arr[High(Arr)] := item;
end;

//测试
procedure TForm1.FormCreate(Sender: TObject);
var
  arr1: TArray<string>;
  arr2: TArray<Integer>;
begin
  TArray.ArrayAdd<string>(arr1, 'abc');
  TArray.ArrayAdd<Integer>(arr2, 123);
  ShowMessageFmt('%s,%d', [arr1[0], arr2[0]]); //abc,123
end;

end.


总结:

1、Delphi 的泛型方法只能属于一个类或结构, 这是好事, 也应该是 Delphi 所提倡的; 这便于管理、也便于快速输入.

2、稍稍扩充一下就可让动态数组和其它强大的列表类比拼一下了.

3、这也像是 C++ 中的算法了, 按这个思路应该可以把许多 C++ 中的算法移植过来.

本文转载自:http://www.cnblogs.com/del/archive/2011/12/24/2300240.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
Java图书管理系统练习程序(四)

Java图书管理系统练习程序(四) 本部分主要介绍List的基本操作与Java中泛型的使用。 一、Java中泛型的使用 泛型,即“参数化类型”。一提到参数,最熟悉的就是定义方法时有形参,然后调用此...

AzureMonkey
2018/11/02
0
0
Java核心技术卷1: 泛型程序设计

为什么要使用泛型程序设计 泛型程序设计意味着编写的代码可以被很多不同类型的对象所重用. 在Java中增加泛型类之前, 泛型程序设计是用继承实现的. 例如ArrayList类只维护一个Object引用的数组...

fzyz_sb
2016/07/09
67
0
《Kotlin 极简教程 》第6章 泛型

第6章 泛型 《Kotlin极简教程》正式上架: 点击这里 > 去京东商城购买阅读 点击这里 > 去天猫商城购买阅读 非常感谢您亲爱的读者,大家请多支持!!!有任何问题,欢迎随时与我交流~ 6.1 泛型...

程序员诗人
2017/06/16
0
0
编写高质量代码:改善Java程序的151个建议 --[98~105]

建议的采用顺序是List中泛型顺序依次为T、?、Object (1)、List是确定的某一个类型   List表示的是List集合中的元素都为T类型,具体类型在运行期决定;List<?>表示的是任意类型,与List类似...

西北野狼
2018/08/13
0
0
-1-3 java集合框架基础 java集合体系结构 Collection 常用java集合框架 如何选择集合 迭代器 泛型 通配符概念 Properties 集合 迭代器

集合又称之为容器存储对象的一种方式 •数组虽然也可以存储对象,但长度是固定的;显然需要可变长度的容器 基本框架 Collection |--List |--ArrayList |--Vector |--LinkedList |--Set |--Ha...

noteless
2018/07/03
0
0

没有更多内容

加载失败,请刷新页面

加载更多

导出表格

https://blog.csdn.net/hhzzcc_/article/details/80419396

Js_Mei
15分钟前
0
0
Ubuntu中安装Elasticsearch

1.安装jre elasticsearch是使用java开发的搜索引擎,因此其运行依赖于java runtime environment,我们在这里不使用Oracel的官方jre,改为使用open-jre。 运行环境: ubuntu:18.04 jre:openj...

cloes
32分钟前
0
0
nginx rails 详细站点配置入门教程

Ruby on Rails 是一个用于开发数据库驱动的网络应用程序的完整框架。Rails基于MVC(模型- 视图- 控制器)设计模式。从视图中的Ajax应用,到控制器中的访问请求和反馈,到封装数据库的模型,R...

xiangyunyan
今天
4
0
Shiro

Shiro是Apache的一个开源框架,是一个权限管理的框架,实现用户认证、用户授权等。 只要有用户参与一般都要有权限管理,权限管理实现对用户访问系统的控制,按照安全规则或者安全策略控制用户...

嘿嘿嘿IT
今天
1
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部