Изменение каталога псевдонима BDE во время выполнения приложения
|
|
Я делаю это все время. У меня есть INI-файл, который сообщает, где можно найти таблицы и каталоги их расположения. Вот как я это делаю:
procedure CheckTable(var Table: TTable; var TName: string);
var
ChangePath: boolean;
Path: string;
ActiveState: Boolean;
begin
if (TName = '') then
TName := Table.TableName
else
with Table do
begin
ActiveState := Active;
Close;
Path := ExtractFilePath(TName);
ChangePath := HasAttr(DatabaseName, faDirectory) or
(CompareText(DatabaseName, Path) <> 0);
if (Length(Path) > 0) and ChangePath then
DatabaseName := Path;
if (CompareText(ExtractFileName(Tname), TableName) <> 0)
then
TableName := ExtractFileName(Tname);
Active := ActiveState;
end;
end;
| |