2007 年 11月随笔档案 - 万一

获取程序所在目录

摘要：procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(ExtractFilePath(ParamStr(0))); //获取程序所在目录 ShowMessage(ExtractFilePath(Application.ExeName)); //获取程序所在目录 ShowMessage(G... 阅读全文

posted @ 2007-11-30 22:03 万一阅读(6290) 评论(3) 推荐(0) 编辑

指针的运算

摘要：//指针的运算仅对 PChar 类型 procedure TForm1.Button1Click(Sender: TObject); var p: PChar; begin p := 'China'; Inc(p); p := p + 1; ShowMessage(p); //返回：ina Dec(p); p := p - 1; ShowMessage(p);... 阅读全文

posted @ 2007-11-30 21:19 万一阅读(3999) 评论(4) 推荐(1) 编辑

is 与 as 运算符举例

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

posted @ 2007-11-30 20:59 万一阅读(4654) 评论(0) 推荐(0) 编辑

集合

摘要：//定义 type Uppercase = 'A'..'Z'; Letters = set of Uppercase; //基于子界定义 TBorderIcon = (biSystemMenu, biMinimize, biMaximize, biHelp); TBorderIcons = set of TBorderIcon; //基于枚举定义 //应用 type ... 阅读全文

posted @ 2007-11-30 18:05 万一阅读(5423) 评论(7) 推荐(0) 编辑

枚举

摘要：//定义type Colors = (Red, Yellow, Green, Cyan, Blue, Violet); Suit = (Club, Diamond, Heart, Spade);//举例：type Colors = (Red, Yellow, Green, Cyan, Blue, Violet);var C: Colors;begin C := Red; ShowMes... 阅读全文

posted @ 2007-11-30 18:00 万一阅读(4782) 评论(6) 推荐(0) 编辑

子界

摘要：//定义 type Ten = 1..10; OverHundred = 100..1000; Uppercase = 'A'..'Z'; //TMonth = Jan..Dec; //应用 var UppLetter: UpperCase; begin UppLetter := 'F'; //判断是否属于子界范围 var i: Integer; begin ... 阅读全文

posted @ 2007-11-30 18:00 万一阅读(3300) 评论(6) 推荐(0) 编辑

有序类型的大小及最大、最小值

摘要：procedure TForm1.Button1Click(Sender: TObject); var b: Byte; w: Word; i: Integer; c: Cardinal; begin ShowMessage(IntToStr(SizeOf(b))); //Byte大小：1 ShowMessage(IntToStr(High(b))); //Byt... 阅读全文

posted @ 2007-11-30 17:32 万一阅读(3615) 评论(2) 推荐(0) 编辑

类型转换

摘要：Chr //将一个有序数据转换为一个 ANSI 字符 Ord //将一个有序类型值转换为它的序号 Round //转换一个实型值为四舍五入后的整型值 Trunc //转换一个实型值为小数截断后的整型值 Int //返回浮点数的整数部分 IntToStr //将数值转换为字符串 IntToHex //将数值转换为十六进制数字符串 StrToInt //将字符串转换为一个整型数，如字符串不是一个合法... 阅读全文

posted @ 2007-11-30 14:11 万一阅读(4964) 评论(1) 推荐(0) 编辑

常用时间函数列表

摘要：函数功能 Now 返回当前日期及时间 Date 返回当前日期 Time 返回当前时间 DateTimeToStr 按缺省格式将日期和时间值转换为字符串；特定格式转换可用 FormatDateTime函数 DateTimeToSt... 阅读全文

posted @ 2007-11-30 14:05 万一阅读(6158) 评论(7) 推荐(0) 编辑

System 提供的编译期函数

摘要：Dec //将例程中的参数值递减1或一个特定的值，其中特定值可在第二个可选参数中定义 Inc //将例程中的参数值增加1或一个特定的值 Odd //如果参数为奇数返回真 Pred //根据参数在其数据类型定义中的序列，返回参数值的前驱值 Succ //返回参数值的后继值 Ord //返回参数值在其数据类型值集合中的序号 Chr //取得 AscII 码对应的字符 Low //返回参数对应的有序数... 阅读全文

posted @ 2007-11-30 13:59 万一阅读(4826) 评论(2) 推荐(1) 编辑

定义资源字符串

摘要：resourcestring 阅读全文

posted @ 2007-11-30 13:51 万一阅读(2983) 评论(1) 推荐(0) 编辑

注册系统级热键

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

posted @ 2007-11-29 13:20 万一阅读(9038) 评论(38) 推荐(0) 编辑

判断不是 IE 浏览器

摘要：if(navigator.appVersion.indexOf("MSIE")==-1){alert("非IE浏览器")} 阅读全文

posted @ 2007-11-29 01:35 万一阅读(2286) 评论(0) 推荐(2) 编辑

JavaScript for 循环

摘要：//代码：阅读全文

posted @ 2007-11-29 01:29 万一阅读(2189) 评论(0) 推荐(0) 编辑

刷新网页

摘要：location.reload(); 或者 document.location.reload(); 阅读全文

posted @ 2007-11-28 16:47 万一阅读(2447) 评论(0) 推荐(0) 编辑

把字符串复制到剪贴板

摘要：uses Clipbrd;Clipboard.AsText := str; //or Clipboard.SetTextBuf(PChar(str)); 阅读全文

posted @ 2007-11-28 13:25 万一阅读(7416) 评论(2) 推荐(0) 编辑

如果一个对象不存在

摘要：阅读全文

posted @ 2007-11-28 01:14 万一阅读(2376) 评论(0) 推荐(1) 编辑

标记汉语拼音

摘要：这是万一的博客Zhe Shi Wan Yi De Bo Ke//代码(只在IE下有效)：这是万一的博客Zhe Shi Wan Yi De Bo Ke 阅读全文

posted @ 2007-11-27 16:27 万一阅读(2372) 评论(0) 推荐(0) 编辑

常用的表格效果

摘要：1 2 3 4 5 6 //代码如下： 1 2 3 4 5 6 //也可以用样式表控制： #table1{ background-color:#000000;//表格整体背景黑色，也就是缝隙间的颜色 width:500px; ... 阅读全文

posted @ 2007-11-27 16:21 万一阅读(3114) 评论(1) 推荐(0) 编辑

SHTML 文件显示当前时间

摘要：阅读全文

posted @ 2007-11-27 16:09 万一阅读(2714) 评论(1) 推荐(0) 编辑

时间的运算

摘要：procedure TForm1.Button1Click(Sender: TObject); var i: Real; begin i := StrToDate('2008-1-1') - StrToDate('2007-1-1'); ShowMessage(FloatToStr(i)); //返回的结果是365天 i := StrToDate('2009-1-1') - ... 阅读全文

posted @ 2007-11-27 15:35 万一阅读(4367) 评论(9) 推荐(0) 编辑

打开网页

摘要：uses ShellAPI; procedure TForm1.Button1Click(Sender: TObject); begin //用IE打开 ShellExecute(Handle, 'open', 'IExplore.EXE', 'about:blank', nil, SW_SHOWNORMAL); //用火狐打开 ShellExecute(Handle, 'ope... 阅读全文

posted @ 2007-11-27 12:57 万一阅读(6582) 评论(19) 推荐(1) 编辑

清除 Windows 系统垃圾的 bat

摘要：@echo off echo 正在清除系统垃圾文件，请稍等...... del /f /s /q %systemdrive%\*.tmp del /f /s /q %systemdrive%\*._mp del /f /s /q %systemdrive%\*.log del /f /s /q %systemdrive%\*.gid del /f /s /q %systemdrive%\*.chk... 阅读全文

posted @ 2007-11-27 10:02 万一阅读(3932) 评论(1) 推荐(0) 编辑

@ 与 ^ 运算符

摘要：//例1： procedure TForm1.Button1Click(Sender: TObject); var str: string; p: Pointer; begin p := @str; //变量 str 的地址 p := @Form1; //变量 Form1 的地址 p := @TForm1.Button1Click; //过程 TForm1.Butt... 阅读全文

posted @ 2007-11-26 23:27 万一阅读(5013) 评论(2) 推荐(0) 编辑

goto 语句

摘要：procedure TForm1.Button1Click(Sender: TObject); var x: Integer; label n1,n2,n3,4; //goto的标签可以是标识符, 也可以是0..9999的数字 begin x := 0; goto n3; n1: x := x+1; n2: x := x+2; n3: x := x+3; 4: ... 阅读全文

posted @ 2007-11-26 22:55 万一阅读(5440) 评论(6) 推荐(0) 编辑

not 与整数

摘要：//Byte procedure TForm1.Button1Click(Sender: TObject); var x,y: Byte; begin x := MAXBYTE; //MAXBYTE是常数255 y := not x; //y 的值是 0 x := 5; y := not x; //y 的值是 250 ShowMessage(IntToStr(y)... 阅读全文

posted @ 2007-11-26 22:40 万一阅读(3511) 评论(10) 推荐(0) 编辑

JavaScript 的类型

摘要：基本类型：数字Number，字符串String，布尔值Boolean；复合类型：对象Object，数组Array；工具类型：全局对象Global，日期Date，数学对象Math，正则表达式RegExp，错误对象Error；特殊类型：函数Function。阅读全文

posted @ 2007-11-26 13:17 万一阅读(2387) 评论(4) 推荐(1) 编辑

字符串常识

摘要：'BORLAND' { BORLAND } 'You''ll see' { You'll see } '''' { ' } '' { 空串 } ' ' { 空格 } #89#111#117 { You } #89'Y'#89 { YYY } #89 + 'Y' + #89 { YYY } #13#10 { 换行 } 阅读全文

posted @ 2007-11-26 11:58 万一阅读(4607) 评论(2) 推荐(0) 编辑

uses 子句的写法

摘要：//uses 子句一般这样写 uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; //这样写更清晰，因为Delphi忽略换行 uses Windows, Messages, SysUtils, Variants, Classes, Graph... 阅读全文

posted @ 2007-11-26 11:50 万一阅读(7013) 评论(1) 推荐(0) 编辑

批量删除同类文件的函数

摘要：procedure DelFiles(f: string); var SearchRec: TSearchRec; begin ChDir(ExtractFilePath(f)); //进入文件路径 FindFirst(f, faAnyFile, SearchRec); repeat if FileExists(SearchRec.Name) then begi... 阅读全文

posted @ 2007-11-24 23:43 万一阅读(3180) 评论(2) 推荐(0) 编辑

Memo 的当前行、当前列与当前字符

摘要：procedure TForm1.Memo1Click(Sender: TObject); begin Text := Format('当前列:%d, 当前行:%d', [Memo1.CaretPos.X, Memo1.CaretPos.Y]); end; //用 API 实现 procedure TForm1.Memo1Click(Sender: TObject); var Line... 阅读全文

posted @ 2007-11-24 23:04 万一阅读(6824) 评论(11) 推荐(0) 编辑

Edit 的使用

摘要：//让 Edit 只接受数字 //方法1： procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (Key in ['0'..'9']) then Key := Chr(0); end; //方法2： procedure TForm1.Edit1KeyPress(Sender: T... 阅读全文

posted @ 2007-11-24 11:48 万一阅读(6379) 评论(20) 推荐(0) 编辑

窗体相关操作

摘要：//包含控件数: var num: Integer; begin num := Self.ControlCount; ShowMessage('窗体上共有控件: ' + IntToStr(num)); //没有包括不可视控件和panl内的控件 //ShowMessage('Panel1上共有控件: ' + IntToStr(Panel1.ControlCount)); end; ... 阅读全文

posted @ 2007-11-23 18:10 万一阅读(3922) 评论(6) 推荐(0) 编辑

PDF分页的JavaScript 脚本

摘要：arr = new Array( //这里加入页号------------- 1,3,5,7,9 //------------------------- ); //var re = /.*\/|\.pdf$/ig; //var filename = this.path.replace(re,""); var re = /\.pdf$/ig; var filepath = this.path.... 阅读全文

posted @ 2007-11-23 12:01 万一阅读(4611) 评论(11) 推荐(0) 编辑

PDF 中的对象

摘要：对象功能 ADBC Acrobat Database Connectivity(ADBC)是一个跨平台的外挂程序。可以在Adobe PDF中以Acrobat JavaScript连接同时以SQL语法控管资料库。虽然ADBC可以对资料库进行存取的动作，但是ADBC必须透过系统的ODBC、JDBC的协助才能连结资料库。所以，ADBC仅适合对单机的资料库进行存取，而网路资料库则由... 阅读全文

posted @ 2007-11-22 21:00 万一阅读(4690) 评论(1) 推荐(0) 编辑

Pascal 语言中的关键字及保留字

摘要：absolute //指令(变量) abstract //指令(方法) and //运算符(布尔) array //类型 as //运算符(RTTI) asm //语句 assembler //向后兼容(汇编) at //语句(异常处理) automated //访问类别符(类) begin //块标记 case //语句 cdecl //函数调用协定 class //类型 c... 阅读全文

posted @ 2007-11-22 17:14 万一阅读(10743) 评论(4) 推荐(0) 编辑

将汉字翻译成拼音缩写的函数

摘要：function GetPyChar(const HZ: AnsiString): string; const HZCode: array[0..25, 0..1] of Integer = ((1601, 1636), (1637, 1832), (1833, 2077), (2078, 2273), (2274, 2301), (2302, 2432), (2433, 2593)... 阅读全文

posted @ 2007-11-22 16:53 万一阅读(5234) 评论(10) 推荐(0) 编辑

显示简单图形

摘要：program Project1; {$APPTYPE CONSOLE} begin Writeln(' | | '); Writeln(' x| | '); Writeln('---|---|---'); Writeln(' | 0 |x '); Writeln('---|---|---'); Writeln(' | 0 | ');... 阅读全文

posted @ 2007-11-22 16:21 万一阅读(6339) 评论(1) 推荐(0) 编辑

10 进制转 2 进制、16 进制

摘要：function IntToBin(Value: LongInt; Size: Integer): String; var i: Integer; begin Result:=''; for i:=Size-1 downto 0 do begin if Value and (1 shl i)0 then Result:=Result+'1' else ... 阅读全文

posted @ 2007-11-22 16:18 万一阅读(10520) 评论(4) 推荐(0) 编辑

TColor 与 RGB 的转换函数

摘要：function RGB2TColor(const R, G, B: Byte): Integer; begin // convert hexa-decimal values to RGB Result := R + G shl 8 + B shl 16; end; procedure TColor2RGB(const Color: TColor; var R, G, B: Byte... 阅读全文

posted @ 2007-11-22 15:38 万一阅读(8886) 评论(3) 推荐(1) 编辑

关于运算符

摘要：运算符包括： @ not ^ * / div mod and shl shr as + - or xor = > = in is 其中 @ not ^ 是一元运算符; + - 有时是一元,有时是二元; 其他都是二元运算符. 一元运算符在运算数的前面, ^ 例外,也可以在后面,如: P^; 二元运算符在运算数中间. 运算符的行为随运算数的类型... 阅读全文

posted @ 2007-11-22 15:07 万一阅读(4901) 评论(2) 推荐(0) 编辑

语言字符集

摘要：Object Pascal 使用ASCII 字符集，包括A-Z、a-z、0-9、以及其它标准字符，字母是大小写无关. 单字符特殊符号： # $ & ' ( ) * + , - . / : ; @ [ ] ^ { } 组合字符特殊符号： (* *) (. .) .. // := = 其中:‘[]’相当于‘(..)’; ‘(**)’相当于... 阅读全文

posted @ 2007-11-22 15:02 万一阅读(5969) 评论(1) 推荐(1) 编辑

关于注释

摘要：{...} (*...*) //... 相同的注释不能嵌套. 若 $ 符紧跟在 { 或 (* 之后，则注释是编译器指示字。例如 {$WARNINGS OFF} 就是告诉编译器别产生警告信息。阅读全文

posted @ 2007-11-22 14:56 万一阅读(5567) 评论(3) 推荐(0) 编辑

单元文件结构

摘要：unit Unit1; interface {接口部分开始} uses {引用单元列表,这是可选的,如果包含必须紧跟interface关键字} {接口部分声明常量/类型/变量/过程和函数,这些声明对引用单元就像自己的声明一样} {在接口部分声明的过程和函数,就像使用了forward关键字} {接口部分结束} implementation {实现部分} uses ... 阅读全文

posted @ 2007-11-22 14:54 万一阅读(8404) 评论(4) 推荐(4) 编辑

字符串分割函数

摘要：推荐使用 Classes.ExtractStrings 函数. function Split(ss,s:string): TStringList; begin Result := TStringList.Create; while Pos(s,ss)>0 do begin Result.Add(Copy(ss,1,Pos(s,ss)-1)); Delete(ss,... 阅读全文

posted @ 2007-11-21 16:35 万一阅读(5643) 评论(11) 推荐(0) 编辑

判断文件大小的函数

摘要：function GetFileSize(const FileName: String): LongInt; var SearchRec: TSearchRec; begin if FindFirst(ExpandFileName(FileName), faAnyFile, SearchRec) = 0 then Result := SearchRec.Size else R... 阅读全文

posted @ 2007-11-21 16:28 万一阅读(4963) 评论(5) 推荐(0) 编辑

遍历指定目录下指定类型文件的函数

摘要：// ================================================================ // 遍历某个文件夹下某种文件, // 使用说明 //  _GetFileList(ListBox1.Items,'c:\*.doc'); // _GetFileList(MyTStringList,'c:\*.exe'); /... 阅读全文

posted @ 2007-11-21 13:42 万一阅读(6096) 评论(13) 推荐(1) 编辑

防止程序重复执行的单元

摘要：//工程引用此单元就能防止同时出现多个实例unit MultInst;interfaceuses Windows ,Messages, SysUtils, Classes, Forms;implementationconst STR_UNIQUE = '{2BE6D96E-827F-4BF9-B33E-8740412CDE96}'; MI_ACTIVEAPP = 1; {激活应用程序} MI_... 阅读全文

posted @ 2007-11-21 13:38 万一阅读(7175) 评论(15) 推荐(1) 编辑

TMainMenu - 隐藏与显示菜单

摘要：//隐藏与显示菜单 Self.Menu := nil; {隐藏菜单} Self.Menu := MainMenu1; {显示菜单} 阅读全文

posted @ 2007-11-21 13:08 万一阅读(6787) 评论(9) 推荐(2) 编辑

控制台读写

摘要：program Project1; {$APPTYPE CONSOLE} var str: string; begin Writeln('请输入：'); Readln(str); Writeln('你输入的是：' + str); Readln; end. 阅读全文

posted @ 2007-11-21 13:05 万一阅读(6908) 评论(5) 推荐(1) 编辑

最简单的Delphi程序(Windows)

摘要：program Project1; uses Windows; begin MessageBox(0,PChar('Ok!'),PChar('Title'),0); end. 阅读全文

posted @ 2007-11-21 13:02 万一阅读(8484) 评论(7) 推荐(0) 编辑

最简单的Delphi程序(控制台)

摘要：program Project1; {$APPTYPE CONSOLE} //uses // SysUtils; {这两行,在本程序中无用,如果带着程序大小是:44.5k; 注释掉程序是19k} begin Writeln('ok'); Readln; end. 阅读全文

posted @ 2007-11-21 13:01 万一阅读(12141) 评论(10) 推荐(1) 编辑

测试代码

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

posted @ 2007-11-12 17:49 万一阅读(4560) 评论(9) 推荐(0) 编辑

祝贺我的博客开通！

摘要：非常满意 cnblogs.com 的博客！阅读全文

posted @ 2007-11-12 13:40 万一阅读(10810) 评论(39) 推荐(0) 编辑