问与答 - 随笔分类(第5页) - 万一

字符串转换到指定格式的宽字符 - 回复 "厨师" 的问题

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

posted @ 2008-12-13 09:16 万一阅读(3988) 评论(15) 推荐(0) 编辑

给 TStringGrid 添加鼠标拖动功能 - 回复 "dxx" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/12/11/1091310.html#1398793 本例效果图(这个例子还有问题, 拖动和移动的距离单位不一样): 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphi... 阅读全文

posted @ 2008-12-11 19:16 万一阅读(7222) 评论(22) 推荐(0) 编辑

获取一个窗口的所有子窗口(包括嵌套) - 回复 "asian" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/12/10/1345752.html#1397451 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls... 阅读全文

posted @ 2008-12-11 09:42 万一阅读(6432) 评论(8) 推荐(0) 编辑

给定 ComboBox 的默认值 - 回复 "彩虹芭比" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/12/09/1286648.html#1395694 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls... 阅读全文

posted @ 2008-12-09 14:53 万一阅读(3198) 评论(5) 推荐(0) 编辑

用 MapFileAndCheckSum 函数检测 exe 或 dll 是否被修改 - 回复 "Joe Lo" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/12/08/1350440.html#1395177 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls... 阅读全文

posted @ 2008-12-09 09:50 万一阅读(3932) 评论(12) 推荐(0) 编辑

存取 ListBox 列表 - 回复 "徐强" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/12/05/1022130.html#1392641 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,... 阅读全文

posted @ 2008-12-05 21:12 万一阅读(2929) 评论(10) 推荐(0) 编辑

带进度的文件复制 - 回复 "冷风无泪" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/12/02/1066817.html#1389078本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtr... 阅读全文

posted @ 2008-12-02 22:18 万一阅读(5370) 评论(13) 推荐(1) 编辑

如何把一个程序中 Edit 中的文本赋给另一个程序的 Edit ? - 回复 "Disk_" 的问题

摘要：本例效果图: 首先应该知道要接受文本的 Edit 的句柄, 这个有很多办法, 本例用了最简单的自我获取的办法. 程序1: 准备接受文本的程序 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls... 阅读全文

posted @ 2008-12-02 13:58 万一阅读(4132) 评论(6) 推荐(0) 编辑

重写一个字符串分割函数 - 回复 "tomzw" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/11/27/967440.html#1384363 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;... 阅读全文

posted @ 2008-11-27 21:11 万一阅读(6186) 评论(13) 推荐(0) 编辑

两个结构体可以直接赋值吗? - 回复 "JohnsonAnother" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/11/26/1031787.html#1382525 两个结构体可以直接赋值!, 测试如下: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,... 阅读全文

posted @ 2008-11-26 15:46 万一阅读(5172) 评论(8) 推荐(1) 编辑

如何实现一张图片覆盖窗体 - 回复 "客栈老人" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/11/25/1339604.html#1381839 方法1: 用 TImage unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dia... 阅读全文

posted @ 2008-11-25 21:42 万一阅读(1800) 评论(1) 推荐(0) 编辑

Byte 数组转字符串 - 回复 "不知道" 问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/11/23/1339323.html#1379150 var bs: array[0..25] of Byte; s: string; i: Integer; begin for i := 0 to Length(bs) - 1 do bs[i] := 65+i; s := strin... 阅读全文

posted @ 2008-11-23 22:57 万一阅读(5056) 评论(22) 推荐(0) 编辑

汉字与多字节编码的转换 - 回复 "不知道" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/11/22/1284923.html#1378410 Delphi 2009 默认的编码是多字节编码(MBCS), Delphi 这样表示它: TEncoding.Default. 下面是多字节编码与汉字之间转换的例子: unit Unit1; interface uses Windows, ... 阅读全文

posted @ 2008-11-23 12:31 万一阅读(6245) 评论(19) 推荐(0) 编辑

设置屏幕分辨率的函数 - 回复 "董勇" 的问题

摘要：{函数} function SetScreen(x,y: Word): Boolean; var DevMode: TDeviceMode; begin Result := EnumDisplaySettings(nil, 0, DevMode); if Result then begin DevMode.dmFields := DM_PELSWIDTH or DM_P... 阅读全文

posted @ 2008-11-19 17:14 万一阅读(2987) 评论(24) 推荐(0) 编辑

一个可以显示多边形的 TMyShape 类 - 回复 "董勇" 的问题

摘要：测试效果图: 自定义的 MyShape 单元: unit MyShape; interface uses Windows, Classes, Graphics, Controls; type TMyShapeType = (stRectangle, stSquare, stRoundRect, stRoundSquare, stEllipse, stCircle, st... 阅读全文

posted @ 2008-11-18 13:13 万一阅读(1886) 评论(0) 推荐(0) 编辑

Delphi 中的 IfThen 函数 - 回复 "深挖洞、广积粮" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/11/14/1120015.html#1370413 StrUtils 单元和 Math 单元分别有一个 IfThen 函数, 举例: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Grap... 阅读全文

posted @ 2008-11-14 15:23 万一阅读(9809) 评论(4) 推荐(0) 编辑

在 Delphi 2009 中, for in 循环都能用在什么地方?

摘要：一、遍历 TStrings var List: TStrings; s: string; begin List := TStringList.Create; List.CommaText := 'aaa,bbb,ccc'; for s in List do ShowMessage(s); List.Free; end; 二、遍历数组 var A... 阅读全文

posted @ 2008-11-12 13:43 万一阅读(11319) 评论(9) 推荐(0) 编辑

获取汉字编码的几种方法 - 回复"外来天客"的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/11/06/1327312.html#1362524 var n1,n2,n3,n4,n5: Word; begin n1 := Ord('万'); n2 := Cardinal('万'); n3 := Integer('万'); n4 := Word('万'); n5 := L... 阅读全文

posted @ 2008-11-06 16:35 万一阅读(2282) 评论(4) 推荐(0) 编辑

一个字符串到数组的例子 - 回复"成红"的问题, 对其他朋友参考价值不大

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/11/04/1209070.html#1360634 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, St... 阅读全文

posted @ 2008-11-04 13:23 万一阅读(1637) 评论(0) 推荐(0) 编辑

合并两个 Wav 文件流的函数 - 回复 "刘文强" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/10/25/1069523.html#1351197 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;... 阅读全文

posted @ 2008-10-25 22:07 万一阅读(3050) 评论(1) 推荐(0) 编辑

随笔分类 - 问与答