1。取得程序所在的目录 (s)
2。TDatabase的Params.Add方法加入
3。数据库文件放在 s 下
function Tfm_main.GetExePath:String;(取得程序所在的目录)
var
LastBackSlashPos,Index: Integer;
begin
Result:=Application.ExeName;
for Index:=1 to length(Result)do
if Result[Index]='/' then
LastBackSlashPos:=Index;
Result:=Copy(Result, 1, LastBackSlashPos-1);
end;
procedure Tfm_main.init;
var s:string;
begin
s:=GetExePath;
Database1.Close;
Database1.Params.Clear;
Database1.Params.Add('PATH='+s+'/db');//数据库在当前目录下的 db子目录中。
Database1.Params.Add('DEFAULT DRIVER=PARADOX');
Database1.Params.Add('ENABLE BCD=FALSE');
Database1.Open;
end;
end.