我是delphi初学者，对数据库别名有一点疑问

可以动态的创建数据库别名，配置数据库路径，动态的创建表，
或者Copy表到目录下，不就行了。下面供参考：
procedure TForm1.Button1Click(Sender: TObject);
var
ap:TStringList; {字符串列表变量}
DataDir : String;
begin
DataDir := 'C:\';
ap:=TStringlist.Create;
Session.GetAliasNames(ap); {取得别名列表}
if (ap.IndexOf('YourDataBase') = -1) then {判断别名是否存在}
begin
Session.AddStandardAlias('YourDataBase',DataDir,'Paradox');
Session.SaveConfigFile; {BDE配置文件存盘}
end ;
ap.Clear; {取得别名YourDataBase中的所有表格名称列表}
Session.GetTableNames('YourDataBase','',False,False,ap);
if (ap.IndexOf('YourTable')=-1) then {判断表格是否存在}
begin
with table1 do
begin
Active:=false;
DatabaseName:='YourDataBase'; {数据库别名}
TableName := 'YourTable';{表格名}
TableType:=ttParadox;{数据库类型}
with FieldDefs do
begin{增加字段}
Clear;
Add('AAA',ftString,50,False); 
Add('DDD',ftMemo,200,False);
end;
with IndexDefs do
begin {增加索引}
Clear; {按AAA字段建立主索引}
Add('AAASY','AAA',[ixPrimary,ixUnique]);
end;
CreateTable; {创建表格}
end;
end;
ap.free;{释放变量ap}
end;