如何通过Session在程序中动态设置BDE别名？

[Qcj]

[CJ]

procedure AddAlias(const Name, Driver: String; List: TStrings);

var
st:Tstringlist;
ss:tsession;
begin
st := TStringList.Create;
ss := tsession.Create(Application);
try
ss.AutoSessionName := true;
st.Add('PATH = C:\YOURPATH');
ss.AddAlias('NewAlias','STANDARD',ss);
finally
ss.free;
st.free;
end;
end;

[zxghl]

不知道你的用途，其实你在程序中添加一个 TDataBase 控件，在数据表单
的create事件中添加：
with TDataBase1 do
begin
Connected := False;
Params.Clear;
Params.Add('PATH=' + 'c:\yourpath');
Connected := True;
end;
和 CJ 不同的是，这样创建的别名是全程的。
注意：这个例子创建 Pardox 别名，如果使用其它数据库，请看 TDataBase 的帮助。