2009 年 3月随笔档案 - 万一

敬告

摘要：几天没打理博客, 快荒了... 抱歉的是手头的活还没干完, 分不出神了... 快好了! 2009.4.2 阅读全文

posted @ 2009-03-23 19:40 万一阅读(2378) 评论(14) 推荐(0) 编辑

摘要：问题来源: http://www.cnblogs.com/del/archive/2009/03/21/1410030.html#1483614 {转换 TBytes 到 Integer} procedure TForm1.Button1Click(Sender: TObject); var bs: TBytes; {TBytes 就是 Byte 的动态数组} i: Integer; ... 阅读全文

posted @ 2009-03-21 22:16 万一阅读(5320) 评论(23) 推荐(0) 编辑

博客导读(09.3.21)

posted @ 2009-03-21 11:38 万一阅读(4871) 评论(118) 推荐(0) 编辑

使 SaveDialog 对话框的文件名选择变灰 - 回复 "delphan" 的问题

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

posted @ 2009-03-18 23:01 万一阅读(4736) 评论(13) 推荐(0) 编辑

TWebBrowser 与 MSHTML(5): document 对象的属性、方法、事件纵览

摘要：{IHTMLDocument2 方法:} write //写入 writeln //写入并换行 open //打开一个流，以收集 document.write 或 document.writeln 的输出 close //关闭并输出用 document.open 方法打... 阅读全文

posted @ 2009-03-16 17:17 万一阅读(8912) 评论(16) 推荐(3) 编辑

TWebBrowser 与 MSHTML(4): location、history、screen、navigator 对象的属性与方法纵览

摘要：{location 对象:} reload //重新加载当前文档 replace //用新的文档替换当前文档 assign //加载新文档 href //设置或返回完整的 URL protocol //设置或返回当前 URL 的协议 host //设置或返回 # 号开始的 URL(锚) hostname //设置或返回当前 URL 的主机名 port //设置或... 阅读全文

posted @ 2009-03-16 16:54 万一阅读(4224) 评论(0) 推荐(0) 编辑

显示 jpg、png、gif 图片及 gif 动画 - 回复 "格兰特" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2009/03/15/1412384.html#1477470 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls... 阅读全文

posted @ 2009-03-15 23:00 万一阅读(4651) 评论(16) 推荐(0) 编辑

如何获取图片中第一个像素的颜色值? - 回复 "格兰特" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2009/03/15/1410030.html#1477217 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrl... 阅读全文

posted @ 2009-03-15 12:43 万一阅读(4037) 评论(7) 推荐(0) 编辑

TWebBrowser 与 MSHTML(3): window 对象的属性、方法、事件纵览

摘要：这还不是 TWebBrowser 控件的属性、方法、事件; 这和浏览器中 JavaScript 的 window 对象是基本一致的. window 对象是网页脚本中的顶层对象, 它代表网页的窗口、或一个框架. {IHTMLWindow2 属性:} frames //返回窗口中的框架数组 location //返回窗口的 location 对象 h... 阅读全文

posted @ 2009-03-13 17:25 万一阅读(6530) 评论(6) 推荐(0) 编辑

TWebBrowser 与 MSHTML(2): 获取 window 对象的时机

摘要：这是在页面下载完毕后即刻获取: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls, SHDocVw, StdCtrls; type TForm1 = class(TForm) We... 阅读全文

posted @ 2009-03-13 17:20 万一阅读(4672) 评论(7) 推荐(0) 编辑

如何比较两个二维数组是否相等 - 回复 "阿拉丁" 的问题

摘要：一句话: 用 CompareMem 对比内存即可. {对比静态数组} procedure TForm1.Button1Click(Sender: TObject); var arr1: array[0..3] of AnsiChar; arr2: array[0..3] of Byte; begin arr1[0] := 'A'; arr1[1] := 'B'; arr1[2] ... 阅读全文

posted @ 2009-03-13 11:15 万一阅读(5607) 评论(9) 推荐(0) 编辑

博客导读

posted @ 2009-03-12 22:54 万一阅读(5027) 评论(126) 推荐(0) 编辑

制作放两个小图片的按钮 - 回复 "xhui" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2009/03/12/1409708.html#1475240 本例效果图: 自定义的类(TMyButton): unit Unit2; interface uses Windows, Messages, Classes, Graphics, StdCtrls; type TMyButton ... 阅读全文

posted @ 2009-03-12 18:27 万一阅读(3706) 评论(7) 推荐(0) 编辑

分别使用静态数组与动态数组建立一个区域 - 回复 "老A123" 的问题

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

posted @ 2009-03-12 15:47 万一阅读(3294) 评论(6) 推荐(0) 编辑

TWebBrowser 与 MSHTML(1): 从 TWebBrowser 获取 DOM 中的 window 对象

摘要：借助 TWebBrowser 可以把软件做的更漂亮、更灵活, 很多软件已经或者早就这样做了. 尽管 HTML DOM 内容繁杂(涉及到 HTML、JavaScript、CSS), 但也都属于 TWebBrowser 的功能范围. 使用 TWebBrowser 时, 如果配合上 MSHTML, 将会有很好的代码提示; 不然也可以, 就是写代码困难. HTML DOM 中的一切都是源于一个叫... 阅读全文

posted @ 2009-03-12 00:20 万一阅读(8124) 评论(5) 推荐(0) 编辑

ParamCount、ParamStr

摘要：//获取程序参数 //可从 Project -> Options -> Debugger -> Parameters 中输入模拟参数, 多个参数可用空格隔开 procedure TForm1.FormCreate(Sender: TObject); var i: Integer; begin for i := 1 to ParamCount do begin ListBox... 阅读全文

posted @ 2009-03-11 20:38 万一阅读(3569) 评论(2) 推荐(0) 编辑

读十六进制文本到 Btye 数组的函数 - 回复 "峰哥！！！" 的问题

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

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

最大公约数与最小公倍数

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

posted @ 2009-03-10 10:26 万一阅读(3271) 评论(0) 推荐(0) 编辑

读文件到十六进制的函数(Delphi 7 下可用) - 回复 "峰哥！！！" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2009/03/09/1284244.html#1472084 {函数} function ReadFileToHex(FileName: string): string; var b: Byte; begin Result := ''; if not FileExists(FileName) the... 阅读全文

posted @ 2009-03-09 18:18 万一阅读(4160) 评论(9) 推荐(1) 编辑

写一个可拖动的 TShape - 回复 "韦韦" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2009/03/09/1234066.html#1471535 本例效果图: 自定义类(TMyShape)单元 : unit Unit2; interface uses Classes, Controls, ExtCtrls; type TMyShape = class(TShape) pr... 阅读全文

posted @ 2009-03-09 11:15 万一阅读(3396) 评论(2) 推荐(0) 编辑

一句话获取本机 IP

摘要：//添加 TIdIPWatch 控件: IdIPWatch1 procedure TForm1.Button1Click(Sender: TObject); var ip: string; begin ip := IdIPWatch1.LocalIP; ShowMessage(ip); end; 阅读全文

posted @ 2009-03-08 22:45 万一阅读(3056) 评论(5) 推荐(0) 编辑

一句话判断网络是否联通

摘要：uses WinInet; procedure TForm1.Button1Click(Sender: TObject); begin if InternetGetConnectedState(nil, 0) then ShowMessage('已连接'); end; 阅读全文

posted @ 2009-03-08 22:39 万一阅读(8701) 评论(17) 推荐(0) 编辑

UniCode 速查表

摘要：最近经常需要查看 UniCode 全表(0000-FFFF), 用 js 写了一个. 阅读全文

posted @ 2009-03-06 22:04 万一阅读(22665) 评论(9) 推荐(3) 编辑

理顺 JavaScript (20) - String 中的正则表达式函数

摘要：search : 找到返回位置; 找不到返回 -1 var str, p, n; str = '1:abc;2:Abc;3:aBc;4:abC;5:ABc;6:aBC;7:AbC;8:ABC'; p = /abc/i; n = str.search(p); alert(n); //2 p = /abcde/i; n = str.search(p); alert(n); //-1 //这个... 阅读全文

posted @ 2009-03-05 21:20 万一阅读(2020) 评论(1) 推荐(0) 编辑

理顺 JavaScript (19) - 正则表达式对象 RegExp

摘要：建立正则表达式的方法 var p1 = new RegExp("abc", "igm"); var p2 = RegExp("abc", "igm"); var p3 = /abc/igm; //判断是否是正则表达式对象 alert(p1 instanceof RegExp); //true alert(p2 instanceof RegExp); //true alert(p3 insta... 阅读全文

posted @ 2009-03-05 17:05 万一阅读(2275) 评论(0) 推荐(1) 编辑

给 Edit 两个可选值 - 回复 "delphi学习中" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2009/03/05/1345752.html#1468654 procedure TForm1.Edit1Click(Sender: TObject); const arr: array[-1..0] of string = ('man', 'woman'); begin Edit1.Tag := n... 阅读全文

posted @ 2009-03-05 16:23 万一阅读(2482) 评论(8) 推荐(0) 编辑

理顺 JavaScript (18) - 语句及运算符

摘要：if (..) { ... } else if (..) { ... } else { ... } switch (..) { case A: ... break; case B: ... break; case C: ... break; default: ... break; } while (..) { ... } do ... while (... 阅读全文

posted @ 2009-03-04 21:42 万一阅读(1619) 评论(0) 推荐(0) 编辑

理顺 JavaScript (17) - 函数

摘要：函数的名称function fun() { alert(123);}fun(); //123f = function() { alert(123);}f(); //123msg = alert;msg(123); //123函数的返回值function fun() { var num = 1; return num; //函数可以没有 return; 如果有之后的代码不会被执行 num++; return num;}var r = fun();alert(r); //1函数的既定参数和实际参数/* 预定参数的个数 */function fun(a... 阅读全文

posted @ 2009-03-04 16:58 万一阅读(1832) 评论(0) 推荐(0) 编辑

理顺 JavaScript (16) - 使用 prototype

摘要：给对象增减方法 function Rect(w, h) { this.width = w; this.height = h; } var r = new Rect(2, 3); /* 给 r 对象增加一个计算面积的方法 area() */ r.area = function() {return this.width * this.height}; alert(r.width); ... 阅读全文

posted @ 2009-03-04 12:21 万一阅读(1641) 评论(2) 推荐(0) 编辑

理顺 JavaScript (15) - 类的继承手段: prototype

摘要：prototype(原型) 是 JavaScript 中类的继承手段;一个类也不过是一组属性和方法的集合, 所谓继承就是继承属性或方法;属性是个值, 方法是个函数, JavaScript 喜欢把它们都叫成属性, 我们喜欢把它们叫做成员;JavaScript 默认让每个函数都拥有一个 prototype 对象, 它可以指向一个对象或函数(函数也是对象, 一回事);绕来绕去, 最终是四通八达...类成员与对象成员function Rect(w, h) { Rect.name = "My Rect"; //静态成员属于类, 不会被对象继承; 须冠类名调用 this.width = 阅读全文

posted @ 2009-03-04 11:45 万一阅读(1672) 评论(0) 推荐(0) 编辑

理顺 JavaScript (14) - constructor 与 instanceof

摘要：重看前面的例子: 明明是个函数, 怎么就成了对象? function MyObj(a, b) { this.x = a; this.y = b; } var obj = new MyObj(11, 22); alert(obj.x); //11 alert(obj.y); //22 alert(typeof obj); //object //一个对象的建立要通... 阅读全文

posted @ 2009-03-03 21:28 万一阅读(1756) 评论(4) 推荐(0) 编辑

理顺 JavaScript (13) - 对象及 json

摘要：和 Delphi/C# 类似, JavaScript 中所有对象的祖先是 Object, 虽然并不是全部面向对象的, 好像也是基于对象的. 譬如一个字符串类型(string)变量, 可以使用字符串对象(String)的属性和方法, 那是在调用的一瞬间转换成了对象. 建立原始空对象的两种方法 var obj1, obj2; obj1 = new Object(); obj2 = {}; al... 阅读全文

posted @ 2009-03-02 20:48 万一阅读(2200) 评论(0) 推荐(0) 编辑

再说变体结构 - 回复 "彬" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2009/03/01/1032376.html#1464477 假如有这样三种结构, 分别来描述: 直线、圆与三角形: type {描述直线的结构} TLine = packed record ID: Integer; {编号} x1,y1: Integer; {第一点} x... 阅读全文

posted @ 2009-03-02 13:21 万一阅读(4732) 评论(15) 推荐(1) 编辑