我怎样动态来改变别名所指数据库的路径哪？

Question

ADir:=ExtractFileDir(application.ExeName);
    if ADir[length(ADir)]<>'\' then
        ADir:=ADir+'\';
    ADir:=ADir+'Data';
数据集.DataBaseName:=ADir

Answer 1

var
    AParams :TStringList ;
    szNewPath :String ;
begin
    if not session.IsAlias('别名') then
    begin
        Showmessage('该别名不存在') ;
        Exit ;
    end ;
    szNewPath := '新路径' ;
    AParams :TStringList.create ;
    try
       session.GetAliasParams('别名' ,AParams) ;
       AParams.Clear ;
       AParams.Add('PATH='+szNewPath) ;
       session.ModifyAlias('别名' ,AParams);
       Session.SaveConfigFile ;
    finally
        AParams.free ;
    end ;
end ;