Приветствую Вас Гость | RSS

Меню сайта

Реклама

Категории раздела
ADO [17]
ASCII и CSV [12]
Access [20]
Alias [24]
BDE [37]
BLOB поля [19]
Clipper [2]
DB2 [2]
DBASE и DBF [26]
Fox Pro [1]
Interbase [21]
MSSQL [0]
ODBC [10]
Oracle [0]
Paradox [0]
SQL [29]
Sybase [1]
База данных [0]
Закладки [2]
Записи [0]
Индексы [10]
Компоненты и Базы данных [0]
Модуль данных [3]
Отчеты [2]
Ошибки БД [17]
Поиск [16]
Поля [0]
Сортировка и Фильтр [6]
Таблицы [0]

Наш опрос
Какие компоненты добавлять больше?
Всего ответов: 48

Статистика

Онлайн всего: 2
Гостей: 2
Пользователей: 0

Форма входа

Главная » Статьи » Базы данных » Alias

Изменение каталога псевдонима во время выполнения приложения
Я делаю это все время. У меня есть 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
  Delphi Lab   Главная   Регистрация   Вход  
Интересная Цитата

Поиск

Магазин


Copyright MyCorp © 2024 Хостинг от uCoz