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

Эта запись была опубликована 14.12.2007в 14:03. В рубриках: Alias, Базы данных. Вы можете следить за ответами к этой записи через RSS 2.0. Комментарии пока закрыты, но Вы можете оставить трекбек со своего сайта.