Статистика |
|
![](/stat/1734509889)
Онлайн всего: 2 Гостей: 2 Пользователей: 0 |
|
Изменение каталога псевдонима во время выполнения приложения
Я делаю это все время. У меня есть 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;
|
Категория: Alias | Добавил: Skinner (04.07.2008)
|
Просмотров: 345
| Рейтинг: 0.0/0 |
|
|