Разное
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Delphi - База Знаний: BDE. Динамическое создание псевдонима
procedure TForm1.FormActivate(Sender: TObject);
begin
with Session do
begin
ConfigMode := cmSession;
try
AddStandardAlias( 'alph',
ExtractFilePath(ParamStr(0)),
'paradox');
Table1.Active:=True;
AddStandardAlias( 'tema',
ExtractFilePath(ParamStr(0)),
'paradox');
Table2.Active:=True;
finally
ConfigMode := cmAll;
end;
end;