function readFromFile:string; var s,s2:string; F:TextFile; begin OpenDialog1.FileName:=''''''''; OpenDialog1.Filter:=''''*.XML|*.xml''''; s:=''''''''; result:=''''''''; if not OpenDialog1.Execute then exit; assignfile(F,OpenDialog1.FileName); try Re...

2008-04-09 04:25:00

================= 选择一个网路邻居 ===================== function SelectComputerName(handle: hwnd; var ComputerName: string): boolean; var BrowseInfo: TBrowseInfo; ItemIDList: PItemIDList; cName: array[0..MAX_PATH] of Char; Title: string; WindowList...

2008-04-09 04:24:58

Delphi中，用interbase控件访问InterBase数据库，并设置Dialect 3模式访问时，SQL语句中引用的 字符型字段 需要放在单引号('''')内，如要在Delphi的IBQuery中实现该操作： select * from MyTable where name=''''zmxjh'''' 可以这样做： SQL := ''''select * from MyTa...

2008-04-09 04:24:56

译者按： 这篇文章来自于www.techinsite.com.au ，是有关DELPHI如何建立对象持久层的一篇文章，本人英文很烂，翻译出来只为自己研究用，请勿见笑。 介绍 众所周知，Delphi可以快速开发一个数据库应用程序，然而，因为数据连接组件拖曳到应用程序中，使得你更接近组件的...

2008-04-09 04:24:55

在: DFM文件与XML文件互转 中,用到的dfm文件必须为文本格式, 如果是二进制格式, 处理就会出错. 但是在处理中如何判断dfm是二进制文件, 而且再将二进制文件转为文本格式呢. --- dfm文件二进制格式时, 其文件会加一个文件头, 其中前3个字节来标识其为二进制, 这三个字节...

2008-04-09 04:24:54

program GenBig5Code;{$APPTYPE CONSOLE}uses SysUtils;Var i, j: byte; mBig5File: textfile;begin AssignFile(mBig5File, ''''c:Big5Code.bin''''); Rewrite(mBig5File); //BIG5字符集范围: 高位$A1~$FE, 低位分为两段:$40~$7E, $A1~$FE for i := $A1 to $FE do beg...

2008-04-09 04:24:53

前几天应客户要求写这个东西,其实用VB,VC可能更快些,不过,我还是喜欢用DELPHI 首先 uses ActiveX,ComObj,StdCtrls,ShlObj,FileCtrl; 在指定文件夹建立当前应用程序才的快捷方式 procedure Tform1.MakeLink(Foldername: string ;proName, lnkName, Description: string...

2008-04-09 04:24:53

标题：Delphi 对象模型学习笔记 关键词：Delphi 对象模型 作者：dREAMtHEATER 难度：普通[] 中等[x] 高级[] http://dREAMtHEATER.yeah.net E-Mail:NoteXPad@163.com 完成日期：2004年08月21日 摘要 Borland Object Pascal 对象模型（现在已经正是命名为 Delphi 语言）...

2008-04-09 04:24:51

经历了 Delphi8 的失败后， 可以看成是一个试验品。 Borland 在 .Net 平台上已经落后微软很多很多了，那么说来如果今年推出 D9 的话，他的功能最多也就相当于 VS2003 了，而微软已经推出了 VS2005 测试版了，明年推出正式版的时候， Borland 在什么地方呢，马上推出 D1...

2008-04-09 04:24:50

在编写组件中，常常有一些事件，其控件是在组件内，而其中的某一事件的代码要在组件外写。以一个按钮的OnClick事件为例： 在类中设置如下代码： private FOnClick: TNotifyEvent ; procedure ClickTransfer (Sender: TObject); { TNotifyEvent } publish property OnCl...

2008-04-09 04:24:50