使用泛型, 写一个为任意类型的动态数组添加元素的方法
摘要:一、使用泛型类: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
万一
阅读(10272)
推荐(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
万一
阅读(11916)
推荐(2) 编辑
测试字符串读取类: TStringReader
摘要:TStringReader 比 TStringWriter 的方法少得多, 分别可按: 字符、行或全部读取; 读取字符时得到的是字符编码, 全部或按行读取得到是字符串, 也可读取到字符数组.unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dia...
阅读全文
posted @
2009-10-12 17:04
万一
阅读(5363)
推荐(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
万一
阅读(4503)
推荐(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
万一
阅读(4414)
推荐(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
万一
阅读(2640)
推荐(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
万一
阅读(3220)
推荐(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
万一
阅读(4276)
推荐(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
万一
阅读(5231)
推荐(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
万一
阅读(3975)
推荐(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
万一
阅读(2149)
推荐(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
万一
阅读(2122)
推荐(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
万一
阅读(2681)
推荐(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
万一
阅读(2020)
推荐(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
万一
阅读(2105)
推荐(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
万一
阅读(1961)
推荐(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
万一
阅读(2119)
推荐(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
万一
阅读(1938)
推荐(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
万一
阅读(1743)
推荐(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
万一
阅读(1659)
推荐(0) 编辑