Новый псевдоним на лету


type
TDataMod = class(TDataModule)
Database: TDatabase;
public
procedure TempAlias(NewAlias, NewDir: string);
end;

procedure TDataMod.TempAlias(NewAlias, NewDir: string);
begin
with Session do
if not IsAlias(NewAlias) then
begin
ConfigMode := cmSession; (* NewAlias будет ВРЕМЕННЫМ *)
try
AddStandardAlias(NewAlias, NewDir, ′PARADOX′);
Database.Close;
Database.AliasName := NewAlias;
Database.Open;
finally
ConfigMode := cmAll;
end;
end;
end;



Опубликовал admin
11 Мар, Вторник 2008г.



Программирование для чайников.