2008 年 8月随笔档案 - 万一

实现无标题栏但有边框的窗口

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

posted @ 2008-08-29 14:45 万一阅读(7213) 评论(22) 推荐(1) 编辑

Delphi 2009 新增单元 Character[2]: IsLetter、IsUpper、IsLower、IsDigit、IsNumber

摘要：IsLetter: {是否是个字母; 范围 A..Z 与 a..z} IsUpper: {是否是个大写字母; 范围 A..Z} IsLower: {是否是个小写字母; 范围 a..z} IsDigit: {是否是个十进制数字; 范围 0..9} IsNumber: {是否是个数字符号; 范围包括 0..9, 还有 ASCII 码中的 178、179、185、188、189、190 等} ... 阅读全文

posted @ 2008-08-28 01:31 万一阅读(5798) 评论(10) 推荐(0) 编辑

ASCII 码新表 - 包含 Delphi 2009 的 TUnicodeCategory 分类

摘要：看旧表 ID Hex 显示类别备注 0$0ucControl 1$1ucControl 2$2ucControl 3$3ucControl 4$4ucControl 5$5ucControl 6$6ucControl 7$7ucControl 8$8ucControl 9$9ucControl 10$A ucControl 11$B ucCon... 阅读全文

posted @ 2008-08-26 11:54 万一阅读(5615) 评论(0) 推荐(0) 编辑

Delphi 2009 新增单元 Character[1]: ToUpper、ToLower - 字符与字符串的大小写转换

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

posted @ 2008-08-26 10:10 万一阅读(4080) 评论(2) 推荐(0) 编辑

复杂的结构化存取(三) : 存取函数

摘要：今天写了四个小函数, 拿来与大家共享: Dir2Doc: 把文件夹下的所有文件(不包括子文件夹)保存成一个复合文件; Doc2Dir: Dir2Doc 的反操作; ZipDir2Doc: 同 Dir2Doc, 只是同时执行了压缩; UnZipDoc2Dir: ZipDir2Doc 的反操作. 函数及测试代码(分别在 Delphi 2007 和 Delphi 2009 下测试通过): ... 阅读全文

posted @ 2008-08-25 22:44 万一阅读(6094) 评论(7) 推荐(0) 编辑

Delphi 2009 新增的 Class Explorer

摘要：阅读全文

posted @ 2008-08-24 11:06 万一阅读(8415) 评论(18) 推荐(0) 编辑

使用 TRegistry 类[4]: 文件打开与文件图标的关联

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

posted @ 2008-08-24 00:17 万一阅读(4348) 评论(26) 推荐(0) 编辑

使用 TRegistry 类[3]: 创建与删除

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

posted @ 2008-08-23 22:56 万一阅读(5339) 评论(3) 推荐(1) 编辑

使用 TRegistry 类[2]: 读取 IE 浏览器的 Start Page

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

posted @ 2008-08-23 22:18 万一阅读(3243) 评论(2) 推荐(0) 编辑

使用 TRegistry 类[1]: 显示各主键下的项

摘要：{XP 注册表中的主键} HKEY_CLASSES_ROOT {文件类型信息} HKEY_CURRENT_USER {当前用户信息} HKEY_LOCAL_MACHINE {软硬件信息} HKEY_USERS {所有用户信息} HKEY_CURRENT_CONFIG {当前配置信息} {Delphi 定义的常量} HKEY_CLASSES_ROOT ... 阅读全文

posted @ 2008-08-23 21:51 万一阅读(5604) 评论(10) 推荐(0) 编辑

Delphi 2009 中的资源文件编辑器

摘要：阅读全文

posted @ 2008-08-23 10:51 万一阅读(11282) 评论(8) 推荐(1) 编辑

用多媒体库 Bass.dll 播放 mp3 [16] - 小节

摘要：Bass.dll 功能非常强大, 做了上面 15 个例子, 已经够我的程序用了; 利用 Bass 还可以录音、下载并播放网上的音乐等等, 没时间继续学习了. 另外: 1、如果喜欢动态引入函数, 可以使用其中的 \delphi\dynamic\Dynamic_Bass.pas 单元; 2、建议使用 \mp3-free\bass.dll, 这是免费的; 3、有不少的音乐播放器使用了不同版本的 Ba... 阅读全文

posted @ 2008-08-22 23:17 万一阅读(5298) 评论(15) 推荐(0) 编辑

用多媒体库 Bass.dll 播放 mp3 [15] - 设置与获取播放速度

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

posted @ 2008-08-22 23:04 万一阅读(4237) 评论(5) 推荐(0) 编辑

用多媒体库 Bass.dll 播放 mp3 [14] - 频率均衡器

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

posted @ 2008-08-22 19:50 万一阅读(4221) 评论(4) 推荐(0) 编辑

用多媒体库 Bass.dll 播放 mp3 [13] - 混响(Reverb)效果

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

posted @ 2008-08-22 16:04 万一阅读(3754) 评论(0) 推荐(0) 编辑

关于子类与父类的转换, 还有多态的说明 - 回复 "靳承柱" 和 "志成" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/08/22/1002959.html#1294593 //关于父类与子类的类型转换: procedure TForm1.FormCreate(Sender: TObject); var List1: TStrings; List2: TStringList; {TStringList 是 TSt... 阅读全文

posted @ 2008-08-22 11:48 万一阅读(2977) 评论(2) 推荐(1) 编辑

用多媒体库 Bass.dll 播放 mp3 [12] - 绘制动态频谱 FFT

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

posted @ 2008-08-22 10:51 万一阅读(6525) 评论(11) 推荐(0) 编辑

用多媒体库 Bass.dll 播放 mp3 [11] - 使用回调函数设置反复

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

posted @ 2008-08-21 16:36 万一阅读(4534) 评论(6) 推荐(0) 编辑

用多媒体库 Bass.dll 播放 mp3 [10] - 使用回调函数

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

posted @ 2008-08-21 13:14 万一阅读(4577) 评论(0) 推荐(0) 编辑

用多媒体库 Bass.dll 播放 mp3 [9] - 绘制波形图

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

posted @ 2008-08-20 00:55 万一阅读(6785) 评论(13) 推荐(1) 编辑

用多媒体库 Bass.dll 播放 mp3 [8] - 实时显示左右声道的峰值

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

posted @ 2008-08-19 15:48 万一阅读(4515) 评论(4) 推荐(1) 编辑

用多媒体库 Bass.dll 播放 mp3 [7] - 获取当前的播放状态

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

posted @ 2008-08-19 13:55 万一阅读(4077) 评论(0) 推荐(0) 编辑

用多媒体库 Bass.dll 播放 mp3 [6] - 是否循环播放

摘要：本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1 = class(TForm) OpenDialog1: TOpenDialog; Button1: TButton; Button2: TButton; Button3: TButton; CheckBox1: TCheckBox; procedure FormCreate(Sender: TOb 阅读全文

posted @ 2008-08-19 00:53 万一阅读(3926) 评论(0) 推荐(0) 编辑

用多媒体库 Bass.dll 播放 mp3 [5] - 设置与获取音量、相位

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

posted @ 2008-08-18 22:03 万一阅读(5787) 评论(12) 推荐(0) 编辑

用多媒体库 Bass.dll 播放 mp3 [4] - 显示与设置播放进度

摘要：//获取文件流的长度, 单位是字节 function BASS_ChannelGetLength( handle: DWORD; {流句柄} mode: DWORD {获取模式; 有两种选择, 但对 HSTREAM 流只能使用 BASS_POS_BYTE} ): QWORD; stdcall; external bassdll; //获取流的当前指针位置, 单位是字节 funct... 阅读全文

posted @ 2008-08-17 23:25 万一阅读(6507) 评论(6) 推荐(0) 编辑

用多媒体库 Bass.dll 播放 mp3 [3] - 打开、播放、暂停、停止

摘要：//播放前先要用 BASS_Init 函数进行播放设备初始化function BASS_Init( device: Integer; {指定输出设备, 第一个是 1、第二个是 2; -1 表示使用当前设备} freq: DWORD; {采样率, 一般是 44100} flags: DWORD; {是 BASS_DEVICE_MONO 等常量的组合值, 是效果参数; 0 是默认值} win: HWND; {指定窗口句柄; 0 表示当前窗口} clsid: PGUID {指定一个 GUID, 用以初始化 DirectSound; nil 表示使用默认}): BOOL; stdcall; exter 阅读全文

posted @ 2008-08-17 23:23 万一阅读(8452) 评论(18) 推荐(1) 编辑

用多媒体库 Bass.dll 播放 mp3 [2] - BASS_GetDeviceInfo: 获取当前音频输出设备列表

摘要：Delphi 2009 中使用需要修改一下 Bass.pas 中 BASS_DEVICEINFO 结构的定义, 不然会乱码: //把 BASS_DEVICEINFO = record name: PChar; // description driver: PChar; // driver flags: DWORD; end; //改为 BASS_DEVICE... 阅读全文

posted @ 2008-08-17 21:22 万一阅读(7193) 评论(0) 推荐(0) 编辑

用多媒体库 Bass.dll 播放 mp3 [1] - 安装调试

摘要：最近要写个小程序, 用到 mp3 播放; 因为需要非常复杂的控制与功能, 想到了 Bass.dll. 以前我曾以为 Bass.dll 是 Windows 系统自带的库, 后来才知道原来是第三方的: http://www.un4seen.com/. Bass.dll 一直在更新, 现在最新版本是 2.411, 下载地址: http://us2.un4seen.com/files/bass24.zip... 阅读全文

posted @ 2008-08-17 20:42 万一阅读(15780) 评论(8) 推荐(0) 编辑

Delphi 2009 中 TStrings 与 TStream 的增强

摘要：在 Delphi 2009 中, TStrings 类(包括 TStringList 和包含 TStrings 属性的所有组件, 譬如 Memo.lines 属性、ListBox.Items 属性)、 TStream 类系列(包括 TFileStream、TMemoryStream 等) 的存取方法, 譬如: LoadFromFile、SaveToFile、LoadFromStream、Save... 阅读全文

posted @ 2008-08-17 01:13 万一阅读(14296) 评论(12) 推荐(0) 编辑

Delphi 2009 中 string 与 Char 的改变

摘要：在 Delphi 2009 中: string = UnicodeString; (同样: PString = PUnicodeString;) Char = WideChar; (同样: PChar = PWideChar;) 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Varia... 阅读全文

posted @ 2008-08-16 23:53 万一阅读(11792) 评论(13) 推荐(0) 编辑

执行数学公式的函数 - 回复 "heyongan" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/08/16/1268786.html#1289015 本例在 Delphi 2007 和 Delphi 2009 中均调试通过, 运行效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Cl... 阅读全文

posted @ 2008-08-16 19:24 万一阅读(3394) 评论(6) 推荐(0) 编辑

Delphi 2009 的反射单元(ObjAuto):

摘要：ObjAuto 单元应该算是对 TypInfo 单元的功能扩展吧? 它提供了 5 个方法: GetMethods、GetMethodInfo、CreateMethodPointer、ReleaseMethodPointer、ObjectInvoke 通过 GetMethods、GetMethodInfo 可以获取类公用成员的详细信息. 通过 TypInfo 只能获取 published 区中成员... 阅读全文

posted @ 2008-08-16 14:28 万一阅读(7995) 评论(1) 推荐(1) 编辑

Delphi 2009 泛型容器单元(Generics.Collections)[5]: TObject...<T> 系列

摘要：已经有了: TList、TQueue、TStack、TDictionary 为什么还有: TObjectList、TObjectQueue、TObjectStack、TObjectDictionary ? 还记得 Classes.TList 和 Contnrs.TObjectList 的主要区别吗? 如果元素是对象, Contnrs.TObjectList 在删除元素时会同时释放对象, 而 Cl... 阅读全文

posted @ 2008-08-16 12:07 万一阅读(8962) 评论(8) 推荐(0) 编辑

Delphi 2009 泛型容器单元(Generics.Collections)[4]: TDictionary<T>

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

posted @ 2008-08-15 22:40 万一阅读(14708) 评论(22) 推荐(1) 编辑

Delphi 2009 泛型容器单元(Generics.Collections)[3]: TStack<T>

摘要：TQueue 和 TStack, 一个是队列列表, 一个是堆栈列表; 一个是先进先出, 一个是先进后出. TStack 主要有三个方法、一个属性: Push(压栈)、Pop(出栈)、Peek(查看下一个要出栈的元素); Count(元素总数). 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils,... 阅读全文

posted @ 2008-08-15 22:20 万一阅读(5501) 评论(3) 推荐(0) 编辑

Delphi 2009 泛型容器单元(Generics.Collections)[2]: TQueue<T>

摘要：TQueue 和 TStack, 一个是队列列表, 一个是堆栈列表; 一个是先进先出, 一个是先进后出. TQueue 主要有三个方法、一个属性: Enqueue(入列)、Dequeue(出列)、Peek(查看下一个要出列的元素); Count(元素总数). 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, Sy... 阅读全文

posted @ 2008-08-15 22:15 万一阅读(8806) 评论(2) 推荐(0) 编辑

Delphi 2009 泛型容器单元(Generics.Collections)[1]: TList<T>

摘要：Delphi 2009 新增了泛型容器单元: Generics.Collections, 同时还有一个 Generics.Defaults 单元做支持. Generics.Collections 包含了以下实用类: TList TQueue TStack TDictionary TObjectList TObjectQueue TObjectStack TObjectDictionary 有... 阅读全文

posted @ 2008-08-15 16:16 万一阅读(17080) 评论(16) 推荐(0) 编辑

Delphi 2009 中的匿名方法(reference to)

摘要：之前我们可以定义方法类型, 然后通过方法类型的变量来使用方法, 譬如: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure F... 阅读全文

posted @ 2008-08-15 01:29 万一阅读(10940) 评论(13) 推荐(0) 编辑

Delphi 2009 中的泛型

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

posted @ 2008-08-14 23:27 万一阅读(18317) 评论(6) 推荐(0) 编辑

Delphi 2009 之 TEdit 加强的功能

摘要：1、终于添加了 Alignment 属性(taLeftJustify, taRightJustify, taCenter), 可以方便控制文本对齐了; 2、增加了 NumbersOnly 属性(True, False), 控制是否只接受数字; 3、增加了 TextHint 属性, 可以让 TEdit 携带一个辅助文本串(好像是在无焦点时显示的, 但现在有问题). 阅读全文

posted @ 2008-08-14 17:15 万一阅读(8700) 评论(18) 推荐(0) 编辑

Delphi 2009 之 TBalloonHint

摘要：让控件的 CustomHint 属性指向一个 TBalloonHint 对象后, Hint 效果好多了. 阅读全文

posted @ 2008-08-14 14:36 万一阅读(7524) 评论(19) 推荐(0) 编辑

Delphi 2009 官方视频

摘要：再来一个: http://windemo1.codegear.com/Tiburon/DataSnapMultiTierAndThinClientSolutions_English.zip 这是新的: http://windemo1.codegear.com/Tiburon/2008-08-13-WhatsNewInDelphi2009.zip VCL 增强: http://video.co... 阅读全文

posted @ 2008-08-14 13:26 万一阅读(4110) 评论(7) 推荐(1) 编辑

Delphi 2009 之 TCategoryPanelGroup[5]: HeaderStyle

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

posted @ 2008-08-14 12:18 万一阅读(3583) 评论(1) 推荐(0) 编辑

Delphi 2009 之 TCategoryPanelGroup[4]: Height

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

posted @ 2008-08-14 10:49 万一阅读(3833) 评论(1) 推荐(0) 编辑

Delphi 2009 之 TCategoryPanelGroup[3]: Color

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

posted @ 2008-08-14 10:15 万一阅读(4157) 评论(0) 推荐(0) 编辑

Delphi 2009 之 TCategoryPanelGroup[2]: HeaderAlignment、GradientDirection

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

posted @ 2008-08-14 00:36 万一阅读(3210) 评论(0) 推荐(0) 编辑

Delphi 2009 之 TCategoryPanelGroup[1]: ChevronAlignment 等

摘要：制作过程: 先添加一个 TCategoryPanelGroup, 再从其右键菜单 -> New Panel, 反复添加三个 TCategoryPanel. 本例测试了: TCategoryPanelGroup 的 ChevronAlignment 属性、CollapseAll 和 ExpandAll 方法; 还有 TCategoryPanel 的 Collapsed 属性. 本例效果图: ... 阅读全文

posted @ 2008-08-13 23:57 万一阅读(4559) 评论(2) 推荐(0) 编辑

Delphi 2009 之 TLinkLabel

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

posted @ 2008-08-13 17:40 万一阅读(6973) 评论(15) 推荐(0) 编辑

Delphi 2009 之 TButtonedEdit

摘要：TButtonedEdit 比 TEdit 多出了左右两个图标 Button; 左右两个 Button 分别对应两个事件: OnLeftButtonClick、OnRightButtonClick; 每个 Button 可有四种图标显示效果: HotImageIndex、ImageIndex、PressedImageIndex、DisabledImageIndex. 阅读全文

posted @ 2008-08-13 16:33 万一阅读(5815) 评论(3) 推荐(0) 编辑

Delphi 2009 之 TStringBuilder 类[7]: ToString

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

posted @ 2008-08-13 15:30 万一阅读(3709) 评论(1) 推荐(0) 编辑

Delphi 2009 之 TStringBuilder 类[6]: Equals

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

posted @ 2008-08-13 14:49 万一阅读(2601) 评论(0) 推荐(0) 编辑

Delphi 2009 之 TStringBuilder 类[5]: Chars[] 属性与 CopyTo 方法

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

posted @ 2008-08-13 14:25 万一阅读(2701) 评论(2) 推荐(0) 编辑

Delphi 2009 之 TStringBuilder 类[4]: Insert 与 Remove

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

posted @ 2008-08-13 13:53 万一阅读(2438) 评论(3) 推荐(0) 编辑

Delphi 2009 之 TStringBuilder 类[3]: Replace

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

posted @ 2008-08-13 13:41 万一阅读(2968) 评论(2) 推荐(0) 编辑

Delphi 2009 之 TStringBuilder 类[2]: Append 与 AppendFormat

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

posted @ 2008-08-13 12:40 万一阅读(3823) 评论(1) 推荐(0) 编辑

Delphi 2009 之 TStringBuilder 类[1]: Create

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

posted @ 2008-08-13 12:09 万一阅读(4989) 评论(7) 推荐(0) 编辑

查看所有 Unicode 字符 [Delphi 2009]

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

posted @ 2008-08-13 01:13 万一阅读(7780) 评论(15) 推荐(0) 编辑

试试带参数的 Exit

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

posted @ 2008-08-12 23:47 万一阅读(4028) 评论(6) 推荐(0) 编辑

开始换用 Delphi 2009

摘要：试用的第一个版本是: v12.0.3128.15596 安装很快也很顺利, 就是不喜欢哪个 Start Page; 以前是用 Delphi Distiller 去掉的, 不过现在还没有相应的版本; 那就修改启动参数吧. 从 Delphi 2009 启动菜单上点右键 -> 查看属性: "C:\Program Files\CodeGear\RAD Studio\6.0\bin\bds.exe" ... 阅读全文

posted @ 2008-08-12 21:54 万一阅读(15468) 评论(48) 推荐(0) 编辑

对比两个文件是否相同的函数

摘要：function CompFile(const f1,f2: string): Boolean; var ms1,ms2: TMemoryStream; i,p: Integer; b1,b2: Byte; begin Result := False; if not (FileExists(f1) and FileExists(f2)) then Exit; ms1 :... 阅读全文

posted @ 2008-08-12 14:56 万一阅读(4614) 评论(9) 推荐(0) 编辑

把指定文本输出到图片 - 回复 "徐一凡" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/08/10/1071357.html#1282779 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Di... 阅读全文

posted @ 2008-08-11 14:03 万一阅读(3488) 评论(2) 推荐(0) 编辑

预习 Delphi 2009 中的新功能 - JSON (二) : 如何在 Delphi 中使用 json

摘要：在 Delphi 中使用 json, http://www.json.org/ 已经给出了几种方案, 但 Delphi 2009 使用的 json.pas 又另有不同. //试了一下感觉不太完善, 等正式版出来再说吧. 阅读全文

posted @ 2008-08-06 03:53 万一阅读(9555) 评论(4) 推荐(0) 编辑

预习 Delphi 2009 中的新功能 - JSON (一) : 什么是 JSON?

摘要：JSON(JavaScript Object Notation) 类似与 XML; 虽始于 JavaScript, 但被多种语言支持, 它也成了 Delphi 2009 的新功能之一.假如有一段 XML:2张三99用 json 可以表示为:{"id":2, "name":"张三", "age":99}json 在 JavaScript 中使用异常方便, 譬如://例1:Data = {"id":2... 阅读全文

posted @ 2008-08-06 02:12 万一阅读(26589) 评论(13) 推荐(0) 编辑

在 Delphi 中调用 JavaScript(2)

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

posted @ 2008-08-06 01:59 万一阅读(22890) 评论(8) 推荐(0) 编辑

关于 Delphi 中流的使用(10): 压缩与解压缩进度 - 回复 "ilst" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/08/02/1022539.html#1275599 本例是在这个例子的基础上修改的: http://www.cnblogs.com/del/archive/2008/01/01/1022539.html 本例效果图: 代码文件: unit Unit1; interface uses Win... 阅读全文

posted @ 2008-08-02 17:20 万一阅读(5714) 评论(5) 推荐(0) 编辑