8288分类目录 8288分类目录 8288分类目录
  当前位置:海洋目录网 » 站长资讯 » 站长资讯 » 文章详细 订阅RssFeed

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

来源:本站原创 浏览:114次 时间:2021-09-10
使用泛型, 写一个为任意类型的动态数组添加元素的方法    


一、使用泛型类:



unit Unit1;interfaceuses  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= class    class procedure ArrayAdd(var Arr: TArray; const item: T);  end;var  Form1: TForm1;implementation{$R *.dfm}{ TArr}class procedure TArr.ArrayAdd(var Arr: TArray; const item: T);begin  SetLength(Arr, Length(Arr)+1);  Arr[High(Arr)] := item;end;//测试procedure TForm1.FormCreate(Sender: TObject);var  arr1: TArray;  arr2: TArray;begin  TArr.ArrayAdd(arr1, 'abc');  TArr.ArrayAdd(arr2, 123);  ShowMessageFmt('%s,%d', [arr1[0], arr2[0]]); //abc,123end;end.


二、使用泛型结构:



unit Unit1;interfaceuses  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 //record    class procedure ArrayAdd(var Arr: TArray; const item: T); static; //结构中的 class 方法必须是 static 的  end;var  Form1: TForm1;implementation{$R *.dfm}{ TArr}class procedure TArr.ArrayAdd(var Arr: TArray; const item: T);begin  SetLength(Arr, Length(Arr)+1);  Arr[High(Arr)] := item;end;//测试procedure TForm1.FormCreate(Sender: TObject);var  arr1: TArray;  arr2: TArray;begin  TArr.ArrayAdd(arr1, 'abc');  TArr.ArrayAdd(arr2, 123);  ShowMessageFmt('%s,%d', [arr1[0], arr2[0]]); //abc,123end;end.


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



unit Unit1;interfaceuses  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(var Arr: TArray; const item: T); static;  end;var  Form1: TForm1;implementation{$R *.dfm}{ TArr }class procedure TArr.ArrayAdd(var Arr: TArray; const item: T);begin  SetLength(Arr, Length(Arr)+1);  Arr[High(Arr)] := item;end;//测试procedure TForm1.FormCreate(Send���,����er: TObject);var  arr1: TArray;  arr2: TArray;begin  TArr.ArrayAdd(arr1, 'abc');  TArr.ArrayAdd(arr2, 123);  ShowMessageFmt('%s,%d', [arr1[0], arr2[0]]); //abc,123end;end.


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



unit Unit1;interfaceuses  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(var Arr: TArray; const item: T); static;  end;var  Form1: TForm1;implementation{$R *.dfm}{ Txxx }class procedure Txxx.ArrayAdd(var Arr: TArray; const item: T);begin  SetLength(Arr, Length(Arr)+1);  Arr[High(Arr)] := item;end;//测试procedure TForm1.FormCreate(Sender: TObject);var  arr1: TArray;  arr2: TArray;begin  TArray.ArrayAdd(arr1, 'abc');  TArray.ArrayAdd(arr2, 123);  ShowMessageFmt('%s,%d', [arr1[0], arr2[0]]); //abc,123end;end.


总结:

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

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

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




  推荐站点

  • At-lib分类目录At-lib分类目录

    At-lib网站分类目录汇集全国所有高质量网站,是中国权威的中文网站分类目录,给站长提供免费网址目录提交收录和推荐最新最全的优秀网站大全是名站导航之家

    www.at-lib.cn
  • 中国链接目录中国链接目录

    中国链接目录简称链接目录,是收录优秀网站和淘宝网店的网站分类目录,为您提供优质的网址导航服务,也是网店进行收录推广,站长免费推广网站、加快百度收录、增加友情链接和网站外链的平台。

    www.cnlink.org
  • 35目录网35目录网

    35目录免费收录各类优秀网站,全力打造互动式网站目录,提供网站分类目录检索,关键字搜索功能。欢迎您向35目录推荐、提交优秀网站。

    www.35mulu.com
  • 就要爱网站目录就要爱网站目录

    就要爱网站目录,按主题和类别列出网站。所有提交的网站都经过人工审查,确保质量和无垃圾邮件的结果。

    www.912219.com
  • 伍佰目录伍佰目录

    伍佰网站目录免费收录各类优秀网站,全力打造互动式网站目录,提供网站分类目录检索,关键字搜索功能。欢迎您向伍佰目录推荐、提交优秀网站。

    www.wbwb.net