万一 - 博客园

2009年10月11日

详测 Generics Collections TList (3): Insert、Delete、Remove、Extract

摘要： 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 00:37 万一阅读(2561) 评论(0) 推荐(0) 编辑

2009年10月10日

详测 Generics Collections TList (2): First、Last、IndexOf、LastIndexOf

摘要： 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-10 23:35 万一阅读(2747) 评论(0) 推荐(0) 编辑

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

摘要： 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-10 22:21 万一阅读(2918) 评论(2) 推荐(0) 编辑

泛型排序器 TComparer

摘要：测试代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; Memo2: TMemo; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; Button6: TButton; Button7: TBu 阅读全文

posted @ 2009-10-10 16:53 万一阅读(5197) 评论(5) 推荐(0) 编辑

2009年10月9日

使用泛型的 TArray 从动态数组中查找指定元素

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

posted @ 2009-10-09 22:26 万一阅读(5099) 评论(4) 推荐(0) 编辑

使用泛型的 TArray 为动态数组排序

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

posted @ 2009-10-09 21:29 万一阅读(5458) 评论(3) 推荐(0) 编辑

SendTextMessage 等方便的消息发送函数

摘要：突然发现 Message 单元的最后给提供了几个方便的消息发送函数:SendTextMessage、SendStructMessage、SendGetStructMessage、SendGetIntMessage虽然函数实现的很简单, 但用他们发送文本、结构和整数, 的确方便了不少; 下面仅就 SendTextMessage 举例://例子是通过发送消息的方法给 Edit 赋值:unit Unit... 阅读全文

posted @ 2009-10-09 13:49 万一阅读(8341) 评论(10) 推荐(0) 编辑

WindowsAPI: MulDiv

摘要： MulDiv(a, b, c) 中的 a、b、c 是三个 Integer, 同时返回一个 Integer.其计算方式类似于: a * b / c 或 a * b div c, 但也有区别.//例一: 相同处var a,b,c,n1,n2: Integer;begin a := 4; b := 3; c := 2; n1 := a * b div c; n2 := MulDiv(a, b... 阅读全文

posted @ 2009-10-09 11:51 万一阅读(9262) 评论(8) 推荐(0) 编辑

2009年10月8日

使用 InputBox、InputQuery 的启发

摘要：看了 InputBox、InputQuery 函数实现的源码, 有些收获与心得...通过 InputBox 可获取用户输入的字符串:procedure TForm1.Button1Click(Sender: TObject);var str: string;begin str := InputBox('输入窗口标题', '输入提示', '默认输入内容'); ShowMessage(str);... 阅读全文

posted @ 2009-10-08 17:21 万一阅读(7206) 评论(8) 推荐(1) 编辑

2009年9月30日

近况汇报

摘要：几个月没来打理博客了, 这段时间先期带部分弟子参加了两个省级比赛、一个全国比赛, 近期排练并登台指挥了四个大合唱. 至此都结束了!一种责任感, 让我不得不全力以赴、以对得起和我共同合作的每一个人... 这期间我们建立了深厚的友谊, 同时也算是为新中国60华诞尽了一份心.希望自己尽快收收心, 回到心爱的 Delphi 的怀抱中, 和大家一起学习、进步...最后深深感谢这期间合作的每位成员, 你们的激... 阅读全文

posted @ 2009-09-30 22:02 万一阅读(2165) 评论(22) 推荐(0) 编辑