Я делаю это все время. У меня есть INI-файл, который сообщает, где можно найти таблицы и каталоги их расположения. Вот как я это делаю:
procedureCheckTable(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
;