Изменение каталога псевдонима во время выполнения приложения

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Я делаю это все время. У меня есть 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;

{/codecitation}

Добавить комментарий