获取程序所在目录
摘要:procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(ExtractFilePath(ParamStr(0))); //获取程序所在目录 ShowMessage(ExtractFilePath(Application.ExeName)); //获取程序所在目录 ShowMessage(G...
阅读全文
posted @
2007-11-30 22:03
万一
阅读(6280)
推荐(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
万一
阅读(3987)
推荐(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
万一
阅读(4643)
推荐(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
万一
阅读(5408)
推荐(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
万一
阅读(4765)
推荐(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
万一
阅读(3291)
推荐(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
万一
阅读(3607)
推荐(0) 编辑
类型转换
摘要:Chr //将一个有序数据转换为一个 ANSI 字符 Ord //将一个有序类型值转换为它的序号 Round //转换一个实型值为四舍五入后的整型值 Trunc //转换一个实型值为小数截断后的整型值 Int //返回浮点数的整数部分 IntToStr //将数值转换为字符串 IntToHex //将数值转换为十六进制数字符串 StrToInt //将字符串转换为一个整型数,如字符串不是一个合法...
阅读全文
posted @
2007-11-30 14:11
万一
阅读(4951)
推荐(0) 编辑
常用时间函数列表
摘要:函数 功能 Now 返回当前日期及时间 Date 返回当前日期 Time 返回当前时间 DateTimeToStr 按缺省格式将日期和时间值转换为字符串;特定格式转换可用 FormatDateTime函数 DateTimeToSt...
阅读全文
posted @
2007-11-30 14:05
万一
阅读(6143)
推荐(0) 编辑
System 提供的编译期函数
摘要:Dec //将例程中的参数值递减1或一个特定的值,其中特定值可在第二个可选参数中定义 Inc //将例程中的参数值增加1或一个特定的值 Odd //如果参数为奇数返回真 Pred //根据参数在其数据类型定义中的序列,返回参数值的前驱值 Succ //返回参数值的后继值 Ord //返回参数值在其数据类型值集合中的序号 Chr //取得 AscII 码对应的字符 Low //返回参数对应的有序数...
阅读全文
posted @
2007-11-30 13:59
万一
阅读(4818)
推荐(1) 编辑
注册系统级热键
摘要: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
万一
阅读(9026)
推荐(0) 编辑
判断不是 IE 浏览器
摘要:if(navigator.appVersion.indexOf("MSIE")==-1){alert("非IE浏览器")}
阅读全文
posted @
2007-11-29 01:35
万一
阅读(2282)
推荐(2) 编辑
刷新网页
摘要:location.reload(); 或者 document.location.reload();
阅读全文
posted @
2007-11-28 16:47
万一
阅读(2441)
推荐(0) 编辑
把字符串复制到剪贴板
摘要:uses Clipbrd;Clipboard.AsText := str; //or Clipboard.SetTextBuf(PChar(str));
阅读全文
posted @
2007-11-28 13:25
万一
阅读(7406)
推荐(0) 编辑
标记汉语拼音
摘要:这是万一的博客Zhe Shi Wan Yi De Bo Ke//代码(只在IE下有效):这是万一的博客Zhe Shi Wan Yi De Bo Ke
阅读全文
posted @
2007-11-27 16:27
万一
阅读(2364)
推荐(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
万一
阅读(3106)
推荐(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
万一
阅读(4354)
推荐(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
万一
阅读(6569)
推荐(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
万一
阅读(3923)
推荐(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
万一
阅读(5004)
推荐(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
万一
阅读(5432)
推荐(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
万一
阅读(3501)
推荐(0) 编辑
JavaScript 的类型
摘要:基本类型:数字Number,字符串String,布尔值Boolean; 复合类型:对象Object,数组Array; 工具类型:全局对象Global,日期Date,数学对象Math,正则表达式RegExp,错误对象Error; 特殊类型:函数Function。
阅读全文
posted @
2007-11-26 13:17
万一
阅读(2382)
推荐(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
万一
阅读(4597)
推荐(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
万一
阅读(7005)
推荐(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
万一
阅读(3174)
推荐(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
万一
阅读(6809)
推荐(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
万一
阅读(6369)
推荐(0) 编辑
窗体相关操作
摘要://包含控件数: var num: Integer; begin num := Self.ControlCount; ShowMessage('窗体上共有控件: ' + IntToStr(num)); //没有包括不可视控件和panl内的控件 //ShowMessage('Panel1上共有控件: ' + IntToStr(Panel1.ControlCount)); end; ...
阅读全文
posted @
2007-11-23 18:10
万一
阅读(3914)
推荐(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
万一
阅读(4603)
推荐(0) 编辑
PDF 中的对象
摘要:对象 功能 ADBC Acrobat Database Connectivity(ADBC)是一个跨平台的外挂程序。可以在Adobe PDF中以Acrobat JavaScript连接同时以SQL语法控管资料库。虽然ADBC可以对资料库进行存取的动作,但是ADBC必须透过系统的ODBC、JDBC的协助才能连结资料库。所以,ADBC仅适合对单机的资料库进行存取,而网路资料库则由...
阅读全文
posted @
2007-11-22 21:00
万一
阅读(4679)
推荐(0) 编辑
Pascal 语言中的关键字及保留字
摘要:absolute //指令(变量) abstract //指令(方法) and //运算符(布尔) array //类型 as //运算符(RTTI) asm //语句 assembler //向后兼容(汇编) at //语句(异常处理) automated //访问类别符(类) begin //块标记 case //语句 cdecl //函数调用协定 class //类型 c...
阅读全文
posted @
2007-11-22 17:14
万一
阅读(10728)
推荐(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
万一
阅读(5221)
推荐(0) 编辑
显示简单图形
摘要:program Project1; {$APPTYPE CONSOLE} begin Writeln(' | | '); Writeln(' x| | '); Writeln('---|---|---'); Writeln(' | 0 |x '); Writeln('---|---|---'); Writeln(' | 0 | ');...
阅读全文
posted @
2007-11-22 16:21
万一
阅读(6330)
推荐(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
万一
阅读(10454)
推荐(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
万一
阅读(8871)
推荐(1) 编辑
关于运算符
摘要:运算符包括: @ not ^ * / div mod and shl shr as + - or xor = > = in is 其中 @ not ^ 是一元运算符; + - 有时是一元,有时是二元; 其他都是二元运算符. 一元运算符在运算数的前面, ^ 例外,也可以在后面,如: P^; 二元运算符在运算数中间. 运算符的行为随运算数的类型...
阅读全文
posted @
2007-11-22 15:07
万一
阅读(4891)
推荐(0) 编辑
语言字符集
摘要:Object Pascal 使用ASCII 字符集,包括A-Z、a-z、0-9、以及其它标准字符,字母是大小写无关. 单字符特殊符号: # $ & ' ( ) * + , - . / : ; @ [ ] ^ { } 组合字符特殊符号: (* *) (. .) .. // := = 其中:‘[]’相当于‘(..)’; ‘(**)’相当于...
阅读全文
posted @
2007-11-22 15:02
万一
阅读(5952)
推荐(1) 编辑
关于注释
摘要:{...} (*...*) //... 相同的注释不能嵌套. 若 $ 符紧跟在 { 或 (* 之后,则注释是编译器指示字。例如 {$WARNINGS OFF} 就是告诉编译器别产生警告信息。
阅读全文
posted @
2007-11-22 14:56
万一
阅读(5557)
推荐(0) 编辑
单元文件结构
摘要:unit Unit1; interface {接口部分开始} uses {引用单元列表,这是可选的,如果包含必须紧跟interface关键字} {接口部分声明常量/类型/变量/过程和函数,这些声明对引用单元就像自己的声明一样} {在接口部分声明的过程和函数,就像使用了forward关键字} {接口部分结束} implementation {实现部分} uses ...
阅读全文
posted @
2007-11-22 14:54
万一
阅读(8389)
推荐(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
万一
阅读(5630)
推荐(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
万一
阅读(4956)
推荐(0) 编辑
遍历指定目录下指定类型文件的函数
摘要:// ================================================================ // 遍历某个文件夹下某种文件, // 使用说明 // _GetFileList(ListBox1.Items,'c:\*.doc'); // _GetFileList(MyTStringList,'c:\*.exe'); /...
阅读全文
posted @
2007-11-21 13:42
万一
阅读(6080)
推荐(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
万一
阅读(7152)
推荐(1) 编辑
TMainMenu - 隐藏与显示菜单
摘要://隐藏与显示菜单 Self.Menu := nil; {隐藏菜单} Self.Menu := MainMenu1; {显示菜单}
阅读全文
posted @
2007-11-21 13:08
万一
阅读(6777)
推荐(2) 编辑
控制台读写
摘要:program Project1; {$APPTYPE CONSOLE} var str: string; begin Writeln('请输入:'); Readln(str); Writeln('你输入的是:' + str); Readln; end.
阅读全文
posted @
2007-11-21 13:05
万一
阅读(6899)
推荐(1) 编辑
最简单的Delphi程序(Windows)
摘要:program Project1; uses Windows; begin MessageBox(0,PChar('Ok!'),PChar('Title'),0); end.
阅读全文
posted @
2007-11-21 13:02
万一
阅读(8473)
推荐(0) 编辑
最简单的Delphi程序(控制台)
摘要:program Project1; {$APPTYPE CONSOLE} //uses // SysUtils; {这两行,在本程序中无用,如果带着程序大小是:44.5k; 注释掉程序是19k} begin Writeln('ok'); Readln; end.
阅读全文
posted @
2007-11-21 13:01
万一
阅读(12129)
推荐(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
万一
阅读(4548)
推荐(0) 编辑