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

Question

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;

Answer 1

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