实现无标题栏但有边框的窗口
摘要:本例效果图: 代码文件: 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
万一
阅读(7204)
推荐(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
万一
阅读(5782)
推荐(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
万一
阅读(5606)
推荐(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
万一
阅读(4075)
推荐(0) 编辑
复杂的结构化存取(三) : 存取函数
摘要:今天写了四个小函数, 拿来与大家共享: Dir2Doc: 把文件夹下的所有文件(不包括子文件夹)保存成一个复合文件; Doc2Dir: Dir2Doc 的反操作; ZipDir2Doc: 同 Dir2Doc, 只是同时执行了压缩; UnZipDoc2Dir: ZipDir2Doc 的反操作. 函数及测试代码(分别在 Delphi 2007 和 Delphi 2009 下测试通过): ...
阅读全文
posted @
2008-08-25 22:44
万一
阅读(6088)
推荐(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
万一
阅读(4343)
推荐(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
万一
阅读(5333)
推荐(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
万一
阅读(3237)
推荐(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
万一
阅读(5595)
推荐(0) 编辑
用多媒体库 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
万一
阅读(5285)
推荐(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
万一
阅读(4224)
推荐(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
万一
阅读(4212)
推荐(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
万一
阅读(3748)
推荐(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
万一
阅读(2972)
推荐(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
万一
阅读(6514)
推荐(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
万一
阅读(4524)
推荐(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
万一
阅读(4567)
推荐(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
万一
阅读(6764)
推荐(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
万一
阅读(4502)
推荐(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
万一
阅读(4068)
推荐(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
万一
阅读(3916)
推荐(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
万一
阅读(5767)
推荐(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
万一
阅读(6481)
推荐(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
万一
阅读(8396)
推荐(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
万一
阅读(7163)
推荐(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
万一
阅读(15742)
推荐(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
万一
阅读(14260)
推荐(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
万一
阅读(11779)
推荐(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
万一
阅读(3389)
推荐(0) 编辑
Delphi 2009 的反射单元(ObjAuto):
摘要:ObjAuto 单元应该算是对 TypInfo 单元的功能扩展吧? 它提供了 5 个方法: GetMethods、GetMethodInfo、CreateMethodPointer、ReleaseMethodPointer、ObjectInvoke 通过 GetMethods、GetMethodInfo 可以获取类公用成员的详细信息. 通过 TypInfo 只能获取 published 区中成员...
阅读全文
posted @
2008-08-16 14:28
万一
阅读(7989)
推荐(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
万一
阅读(8930)
推荐(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
万一
阅读(14678)
推荐(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
万一
阅读(5490)
推荐(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
万一
阅读(8774)
推荐(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
万一
阅读(17031)
推荐(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
万一
阅读(10891)
推荐(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
万一
阅读(18292)
推荐(0) 编辑
Delphi 2009 之 TEdit 加强的功能
摘要:1、终于添加了 Alignment 属性(taLeftJustify, taRightJustify, taCenter), 可以方便控制文本对齐了; 2、增加了 NumbersOnly 属性(True, False), 控制是否只接受数字; 3、增加了 TextHint 属性, 可以让 TEdit 携带一个辅助文本串(好像是在无焦点时显示的, 但现在有问题).
阅读全文
posted @
2008-08-14 17:15
万一
阅读(8688)
推荐(0) 编辑
Delphi 2009 之 TBalloonHint
摘要:让控件的 CustomHint 属性指向一个 TBalloonHint 对象后, Hint 效果好多了.
阅读全文
posted @
2008-08-14 14:36
万一
阅读(7497)
推荐(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
万一
阅读(4105)
推荐(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
万一
阅读(3573)
推荐(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
万一
阅读(3823)
推荐(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
万一
阅读(4149)
推荐(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
万一
阅读(3201)
推荐(0) 编辑
Delphi 2009 之 TCategoryPanelGroup[1]: ChevronAlignment 等
摘要:制作过程: 先添加一个 TCategoryPanelGroup, 再从其右键菜单 -> New Panel, 反复添加三个 TCategoryPanel. 本例测试了: TCategoryPanelGroup 的 ChevronAlignment 属性、CollapseAll 和 ExpandAll 方法; 还有 TCategoryPanel 的 Collapsed 属性. 本例效果图: ...
阅读全文
posted @
2008-08-13 23:57
万一
阅读(4540)
推荐(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
万一
阅读(6953)
推荐(0) 编辑
Delphi 2009 之 TButtonedEdit
摘要:TButtonedEdit 比 TEdit 多出了左右两个图标 Button;
左右两个 Button 分别对应两个事件: OnLeftButtonClick、OnRightButtonClick;
每个 Button 可有四种图标显示效果: HotImageIndex、ImageIndex、PressedImageIndex、DisabledImageIndex.
阅读全文
posted @
2008-08-13 16:33
万一
阅读(5802)
推荐(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
万一
阅读(3696)
推荐(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
万一
阅读(2593)
推荐(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
万一
阅读(2692)
推荐(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
万一
阅读(2429)
推荐(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
万一
阅读(2956)
推荐(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
万一
阅读(3815)
推荐(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
万一
阅读(4977)
推荐(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
万一
阅读(7753)
推荐(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
万一
阅读(4018)
推荐(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
万一
阅读(15458)
推荐(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
万一
阅读(4612)
推荐(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
万一
阅读(3481)
推荐(0) 编辑
预习 Delphi 2009 中的新功能 - JSON (二) : 如何在 Delphi 中使用 json
摘要:在 Delphi 中使用 json, http://www.json.org/ 已经给出了几种方案, 但 Delphi 2009 使用的 json.pas 又另有不同. //试了一下感觉不太完善, 等正式版出来再说吧.
阅读全文
posted @
2008-08-06 03:53
万一
阅读(9545)
推荐(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
万一
阅读(26518)
推荐(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
万一
阅读(22862)
推荐(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
万一
阅读(5703)
推荐(0) 编辑