你用的是bde吧,对于bde是必须配置的,用ado吧,只要连接字符串是活的,就可以了,而且不用配置。
解决方案 »
- 请教:再行号显示的文本编辑组件
- cuteant接分,谢谢帮我解决问题,剩下的分数给你-3.
- Scoket问题
- 怎么样让button不凸出来?
- 多线程的疑惑!
- 在DELPHI中如何创建一个控件使其继承TTrackBar的属性但添加MOUSEDOWN,MOUSEup,click事件
- Delphi 繁简体多次转换的问题
- 哪里有关于delphi的三层编程的技术资料?
- 为什么报表中的某些线(qrshape),在激光打印机中打印不出来,而在喷墨打印机中确正常???
- 如何用程序调出“文件夹选项”及IE工具栏里的“Internet 选项”??HELP ME!!
- Delphi Debug捕捉OutputDebugString?
- SQL Server2000的简单问题!不够的下次补!
procedure TForm1.FormCreate(Sender: TObject);
var
ap:TStringList; {字符串列表变量}
answer:Integer;
begin
ap:=TStringlist.Create;
Session.GetAliasNames(ap); {取得别名列表}
if (ap.IndexOf('Cntssamp')=-1) then {判断别名是否存在}
beginend;
Session.AddStandardAlias('DataDirectory ','c:\delphi','Paradox');
Session.SaveConfigFile; {BDE配置文件存盘}
end ;
ap.Clear;
end; 关于Exe所在地路径可以用ExtractFilePath(Application.ExeName)取得
procedure TForm1.FormCreate(Sender: TObject);
var
ap:TStringList; {字符串列表变量}
answer:Integer;
begin
ap:=TStringlist.Create;
Session.GetAliasNames(ap); {取得别名列表}
if (ap.IndexOf('Cntssamp')=-1) then {判断别名是否存在}
beginend;
Session.AddStandardAlias('DataDirectory ','c:\delphi','Paradox');
Session.SaveConfigFile; {BDE配置文件存盘}
end ;
ap.Clear;
end; 关于Exe所在地路径可以用ExtractFilePath(Application.ExeName)取得