2009年10月10日 星期六

详测 Generics Collections TList (1): Add、Clear、Count、Capacity

万一| 万一的 Delphi 博客 |22:21:00

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: TF...

泛型排序器 TComparer

万一| 万一的 Delphi 博客 |16:53:00

测试代码文件:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; Memo2: TMemo; Button1: TButton; Button2: TButto...