使用泛型 - 随笔分类 - 万一

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

摘要：一、使用泛型类: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<T> = class class procedure ArrayAdd(var Arr: T... 阅读全文

posted @ 2011-12-24 11:57 万一阅读(10218) 评论(19) 推荐(2) 编辑

善用泛型数组

摘要：用了一周的时间解决了一个难题; 同时第一次真正开始使用泛型数组, 感觉太好了.如用 TArray<Word> 代替 array of Word, 还可以使用 TArray 类提供的算法(就是少了点).uses Generics.Collections, Generics.Defaults;{测试 TArray 的 Sort 方法}procedure TForm1.Button1Click(Sender: TObject);var arr: TArray<string>; //同 array of string s: string;begin SetLength(arr, 阅读全文

posted @ 2011-05-27 18:38 万一阅读(11825) 评论(16) 推荐(2) 编辑

测试字符串读取类: TStringReader

摘要：TStringReader 比 TStringWriter 的方法少得多, 分别可按: 字符、行或全部读取; 读取字符时得到的是字符编码, 全部或按行读取得到是字符串, 也可读取到字符数组.unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dia... 阅读全文

posted @ 2009-10-12 17:04 万一阅读(5338) 评论(0) 推荐(0) 编辑

详测 Generics Collections: TObjectList、TObjectQueue、TObjectStack

摘要：TObjectList<T、TObjectQueue<T、TObjectStack<T 分别继承自:TList<T、TQueue<T、TStack<T;它们是专门用于对象的列表, 都增加了一个 OwnsObjects 布尔属性, 决定对象会不会自动释放(这也通过 Create 的参数来决定)其他基本同它们的父类, 仅给 TObjectList<... 阅读全文

posted @ 2009-10-12 00:42 万一阅读(4460) 评论(5) 推荐(0) 编辑

详测 Generics Collections TDictionary(5): 多种 Create 手段

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton... 阅读全文

posted @ 2009-10-11 22:38 万一阅读(4385) 评论(1) 推荐(0) 编辑

详测 Generics Collections TDictionary(4): OnKeyNotify、OnValueNotify

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Generics.Collections;type TForm1 = class(TForm) Button1: TButton; procedure Bu... 阅读全文

posted @ 2009-10-11 18:29 万一阅读(2629) 评论(0) 推荐(0) 编辑

详测 Generics Collections TDictionary(3): TPairEnumerator、TKeyEnumerator、TValueEnumerator、ExtractPair

摘要：//这组功能没有多少实用价值unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Cli... 阅读全文

posted @ 2009-10-11 18:16 万一阅读(3198) 评论(0) 推荐(0) 编辑

详测 Generics Collections TDictionary(2): ContainsKey、ContainsValue、AddOrSetValue、TryGetValue

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TOb... 阅读全文

posted @ 2009-10-11 17:13 万一阅读(4245) 评论(1) 推荐(0) 编辑

详测 Generics Collections TDictionary(1): Add、Items、Keys、Values、Remove

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TOb... 阅读全文

posted @ 2009-10-11 16:44 万一阅读(5118) 评论(1) 推荐(0) 编辑

详测 Generics Collections TStack(1): Push、Pop、Peek - 其他功能同 TQueue

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TOb... 阅读全文

posted @ 2009-10-11 15:44 万一阅读(3965) 评论(0) 推荐(0) 编辑

详测 Generics Collections TQueue (3): OnNotify、Extract

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Generics.Collections;type TForm1 = class(TForm) Button1: TButton; procedure Bu... 阅读全文

posted @ 2009-10-11 14:47 万一阅读(2142) 评论(0) 推荐(0) 编辑

详测 Generics Collections TQueue (2): Create、Count、Clear、TrimExcess

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TOb... 阅读全文

posted @ 2009-10-11 14:36 万一阅读(2114) 评论(0) 推荐(0) 编辑

详测 Generics Collections TQueue (1): Enqueue、Dequeue、Peek

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TOb... 阅读全文

posted @ 2009-10-11 14:21 万一阅读(2652) 评论(0) 推荐(0) 编辑

详测 Generics Collections TList (11): Create

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton... 阅读全文

posted @ 2009-10-11 12:59 万一阅读(2006) 评论(0) 推荐(0) 编辑

详测 Generics Collections TList (10): OnNotify 事件

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Generics.Collections;type TForm1 = class(TForm) Button1: TButton; procedure Bu... 阅读全文

posted @ 2009-10-11 02:21 万一阅读(2096) 评论(0) 推荐(0) 编辑

详测 Generics Collections TList (9): BinarySearch

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TOb... 阅读全文

posted @ 2009-10-11 01:58 万一阅读(1945) 评论(0) 推荐(0) 编辑

详测 Generics Collections TList (8): Sort

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TOb... 阅读全文

posted @ 2009-10-11 01:34 万一阅读(2112) 评论(0) 推荐(0) 编辑

详测 Generics Collections TList (7): Items、Contains

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TOb... 阅读全文

posted @ 2009-10-11 01:19 万一阅读(1927) 评论(2) 推荐(0) 编辑

详测 Generics Collections TList (6): Reverse、TrimExcess

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TOb... 阅读全文

posted @ 2009-10-11 01:12 万一阅读(1731) 评论(0) 推荐(0) 编辑

详测 Generics Collections TList (5): Move、Exchange

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TOb... 阅读全文

posted @ 2009-10-11 01:02 万一阅读(1649) 评论(0) 推荐(0) 编辑

随笔分类 - 使用泛型