引 言 这篇文章最先发表于2000年07月25日，最后一次修改是在2001年02月07日。这里再次贴出的目的，一是作为前一阶段的完结，所以文章中的错误都不作修改；二是希望作为一个新的起点。我准备整理一下至今所积累的浏览器编程的知识，比较完整地写出来，与网友共勉。 TWeb...

2008-04-09 04:24:35

许多人问我，为什么你会开发TCAD呢？谁给你的点子呢？ 一说起这个问题，往往会让我想起许多在计算机面前的经历，有欢乐也有悲伤，有成功也有失败． TCAD的开发正是来自于我以前开发的软件的失败！也就是说我根本不是为了开发TCAD而开发的，而是开发另一个软件中，需要...

2008-04-09 04:24:34

When you save a file with TQRPrinter.Save, the resulting file is a .QRP file which can only be opened in a QuickReport Preview screen. You can export to other file formats though, using a TQRExportFilter, e.g. (QR2:) QuickRep1.QRPrinter.ExportToFilt...

2008-04-09 04:24:34

正则表达式最早是由数学家Stephen Kleene于1956年提出，他是在对自然语言的递增研究成果的基础上提出来的。具有完整语法的正则表达式使用 在字符的格式匹配方面上，后来被应用到熔融信息技术领域。 正则表达式并非一门专用语言，但它可用于在一个文件或字符里查找和替...

2008-04-09 04:24:33

如果你想要改变Windows的缺省打印机,你必须在Windows的WIN.INI中改变设备键。 发送一条 WM_WININICHANGE 消息： var strIni: array[0..MAX_PATH] of Char; arrWindows: array[0..64] of Char; begin GetWindowsDirectory(strIni, SizeOf(strIni)); StrCat(strIni, ''''...

2008-04-09 04:24:33

program GenGBKCode;{$APPTYPE CONSOLE}uses SysUtils;Var i, j: byte; mFile: textfile;begin AssignFile(mFile, ''''GBKCode.txt''''); Rewrite(mFile);{GBK字符集范围分区 高位 低位----------------------------------------------●GBK/1:GB2312非汉字符号: A1~A9...

2008-04-09 04:24:32

(1)procedure TForm1.Button2Click(Sender: TObject); var xmlDoc:IXMLDocument; aNode:IXMLNode; begin ? xmlDoc := TXMLDocument.Create(nil); ? xmlDoc.Active := True; ? xmlDoc.Version := ''''1.0''''; ? xmlDoc.Encoding :=''''GB2312''''; ? try ??? //加入根...

2008-04-09 04:24:31

优化代码，看看哪个执行速度更快!!! 最近我编写一个小程序，其用一个函数将 A,B 值互换，因为该函数调用频繁，于是对其优化，以下有三个版本，请试试看Rev1, Rev2, Rev3三个函数哪个执行速度更快。 // Delphi 代码如下: unit Unit1; // Created By BHB. 2004-08-31 int...

2008-04-09 04:24:30

无限进制转换 (*// 标题 : 无限进制转换 说明 : 使用于数学领域进制之间相互转换 设计 :Zswang 日期 :2002-01-24 支持 :wjhu111@21cn.com //*) ///////Begin Source const cScaleChar = ''''0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ''''; function IntPower(Base, Expone...

2008-04-09 04:24:29

当前位置：Delphi园地 → 技巧文章 → 编程心得 → Delphi中延时 Delphi中延时 日期：2004年8月31日 作者： procedure Delay(msecs:integer); var FirstTickCount:longint; begin FirstTickCount:=GetTickCount; repeat Application.ProcessMessages; until ((GetTickC...

2008-04-09 04:24:29