在Delphi中如何创建和使用udl文件
方法一：
直接弹出UDL对话框:
use
ADOConed;
EditConnectionString(ADOQuery1);
方法二：
⑴、右键---新建---文本文档，重命名为 connSet.udl 。
⑵、双击打开 connSet.udl 按提示操作配置数据库，选择本地或远程数据库，配置好后退出。
⑶、使用Delphi 控件TADOConnection连接代码：
在Form1的OnCreate事件如下
try
ADOC.Connected := false;
ADOC.ConnectionString := '';
ADOC.ConnectionString := 'FILE NAME='+ExtractFilePath(ParamStr(0))+'\connSet.udl';
ADOC.Provider := ExtractFilePath(ParamStr(0))+'\connSet.udl';
ADOC.Connected := true;
except
showmessage('连接失败,请重新配置connSet.udl文件');
EXIT;
end;
⑷、如果你要把应用程序分发到局域网中使用，数据库服务器没有改变，直接复制应用程序就可以了，不用再配置connSet.udl 文件。当在另外一个局域网中安装有不同名的数据库服务器时，右键用记事本打开connSet.udl 文件，会看到：
[oledb]
; Everything after this line is an OLE DB initstring
Provider=SQLOLEDB.1;Persist Security Info=False;User ID=jfgl_sa;Initial Catalog=jfgl;Data Source=192.168.0.117
上面几行文件，这是新建connSet.udl 文件，并配置好数据库后自动生成的代码。我默认的登录用户为jfgl_sa，密码为空，数据库为jfgl，局域网数据库服务器名IP：192.168.0.117，你可按照自己的实际环境进行配置。
⑸、不同的局域网数据库服务器，你只要修改配置connSet.udl连接文件就可以了，不用修改Delphi代码，很方便哦。
⑹、
故障处理：如果运行应用程序时，出现错误提示“无效的授权说明”，是因为前面我们已经新建了connSet.udl
连接，现在只要把Delphi控件TADOConnection的属性ConnectionString值删除为空，这是静态连接数据库的字符串值，所以
删除ConnectionString值后，再重新编译就可以了。
用方法二自测成功，在本地基于oracle 10g开发的程序，放到另外装有oracl
相关文档：
function GetFileSizeString(const pFileName: String):String;
var
iFileSize: Int64;
begin
Result := '0';
iFileSize := FileSizeByName(pFileName);
Result := IntToStr(iFileSize);
end;
function WinExecAndWait(strFileName: string; uCmdShow: UINT): DWORD;
var
cAppName: array ......
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2420610
目录
===============================================================================
⊙
RTTI 简介
⊙ 类(class) 和 VMT 的关系
⊙ 类(class)、类的类(class of class)、类变量(class
variable) 的关系
⊙ TObject.ClassType 和 TObject.ClassInf ......
1、当然是先要卸载以前安装的Ehlib组件了，在菜单的“Component”的“install Packeges”里，选择ehlib XX，选择“Remove”。
2、接下来在库里加入这个控件的引用路径，先新建一个文件夹，比如“D:\Component\Ehlib”（最好把要安装的控件都拷贝到这个Component目录下），然后把 ......
最近做一个项目，要用Delphi，以前从未学过，好是费劲啊，哈哈光是字符串切割这个问题就困扰了几个小时，通过查资料终于解决，在这与大家分享一下
Function split(src: pchar; ch: char):TStringList;
// 分割字符串
var
i: Integer;
tmp : string;
begin
Result:=TStringList.Create;
......
Delphi字符串、PChar与字符数组之间的转换
设有以下三个变量：
var
s:string;
p:pchar;
a:array[1..20] of char;
那么三者之间的转换如下：
1、字符串到PChar
p:=PChar(s);
2、PChar到字符串
s:=p;
3、PChar到字符数组
StrCopy(@a,p);
4、字符数组� ......
