2009 年 4月随笔档案 - 万一

摘要：在 XP 系统下不能建立叫 con 的文件! 不知其他朋友也是这样? 阅读全文

posted @ 2009-04-26 22:08 万一阅读(2992) 评论(18) 推荐(0)

博客导读(09.4.25)

posted @ 2009-04-25 20:37 万一阅读(2582) 评论(78) 推荐(0)

很意外地获了个奖励

摘要：刚刚收到一份来自博客园的邮件: 您好！万一！恭喜您获得博问大赛热心园友奖，请尽快选出你想要的奖品，详请查看：博客园 “图灵微软名著杯博问大赛” 比赛结果。感谢您对博客园的支持。得到了一本书的奖励, 还是很高兴的. 阅读全文

posted @ 2009-04-23 11:20 万一阅读(2134) 评论(13) 推荐(0)

使用 TWebBrowser 编辑网页

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls, SHDocVw, StdCtrls, ExtCtrls; type TForm1 = class(TForm... 阅读全文

posted @ 2009-04-17 13:04 万一阅读(10424) 评论(15) 推荐(0)

用一个 Byte 数表示 8 个复选框的选择状态

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, CheckLst; type TForm1 = class(TForm) CheckListBox1... 阅读全文

posted @ 2009-04-16 17:38 万一阅读(4830) 评论(20) 推荐(1)

把 Integer 数组保存到文件、并读取

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

posted @ 2009-04-14 20:40 万一阅读(4582) 评论(7) 推荐(0)

从字符串中提取单词、从字符串中提取汉字的函数

摘要：{从字符串中提取单词的函数} procedure StrToWordList(str: string; var List: TStringList); var p: PChar; i: Integer; begin if List = nil then List := TStringList.Create; List.Clear; {去除重复} List.Sorted ... 阅读全文

posted @ 2009-04-14 15:55 万一阅读(6890) 评论(9) 推荐(0)