冀公网安备 13098202000212号 2009年10月11日 星期日
详测 Generics Collections TQueue (3): OnNotify、Extract
万一| 万一的 Delphi 博客 |14:47:00
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Generics.Collections; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); ...
详测 Generics Collections TQueue (2): Create、Count、Clear、TrimExcess
万一| 万一的 Delphi 博客 |14:36: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...
Enhanced jpeg implementation
CodeGear| CodeGear-CodeCentral Delphi |05:37:21
Gabriel CorneanuThis unit contains a new jpeg implementation (based on Delphi original)-fixed bug accessing one pixel height picture-added lossless transformation support for jpeg images (based on Thomas G. Lane C library - visit jpegclub.org/jpe...
详测 Generics Collections TList (10): OnNotify 事件
万一| 万一的 Delphi 博客 |02:21:00
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Generics.Collections; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); ...
详测 Generics Collections TList (9): BinarySearch
万一| 万一的 Delphi 博客 |01:58: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...
详测 Generics Collections TList (8): Sort
万一| 万一的 Delphi 博客 |01:34: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...
详测 Generics Collections TList (7): Items、Contains
万一| 万一的 Delphi 博客 |01:19: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...
详测 Generics Collections TList (6): Reverse、TrimExcess
万一| 万一的 Delphi 博客 |01:12: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...
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...
2009年10月9日 星期五
使用泛型的 TArray 从动态数组中查找指定元素
万一| 万一的 Delphi 博客 |22:26:00
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); ...
使用泛型的 TArray 为动态数组排序
万一| 万一的 Delphi 博客 |21:29:00
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; Button2: TButton; procedure Button1Click(S...
Random Thoughts on the Passing Scene #131
Nick Hodges| Nick Hodges |18:56:51
We are looking for folks to submit their Unicode migration stories to the Unicode Migration Best Practices Cookbook.  If you have a tip or two, or a good story to tell, please let us know and help out the Delphi community.  Looks like yo...
SendTextMessage 等方便的消息发送函数
万一| 万一的 Delphi 博客 |13:49:00
突然发现 Message 单元的最后给提供了几个方便的消息发送函数:SendTextMessage、SendStructMessage、SendGetStructMessage、SendGetIntMessage虽然函数实现的很简单, 但用他们发送文本、结构和整数, 的确方便了不少; 下面仅就 SendTextMessage 举例://例子是通过发送...
TEnum<T> Simple generics Enum example
CodeGear| CodeGear-CodeCentral Delphi |13:03:40
I'm a long time lover of Enumarated types, in this example code I use a generic record to wrap up the dirty details of a enumorated type.Small sample from the DPR:type TJim = (jjHigh,jjLow);var J: TEnum<TJim>; S: String; I: INteg...