Создание бд без регистрации

[Napste®]

Пожайлуста помогите. Необходимо создать бд с таблицами Paradox не регистрирую бд в BDE Administrator. Как это сделать?

[Gorychev]

Вот один из способов как можно обойтись без псевдонимов и быть не зависимым от перестройки файловой системы.
В обработчик события OnFormCreate нужно поместить следующий код:

procedure TForm1.FormCreate(Sender: TObject);
begin
  try
    Table1.Active := False;
    Table1.DatabaseName := (ExtractFilePath(Application.ExeName) + 'data');
    Table1.TableName := 'COUNTRY.DB';
    Table1.Active := True;
  except
    on EDatabaseError do
    begin
      Application.MessageBox('Невозможно открыть базу данных.', 'Ошибка', MB_ICONERROR);
      Halt;
    end;
  end;
end;

Конструкция ExtractFilePath(Application->ExeName) возвращает путь к пусковому файлу приложения, к этому пути прибавляется папка "data" - здесь нужно хранить файлы баз данных (не нравится "data" дайте другое имя). COUNTRY.DB - имя конкретной базы данных (впишите ваше). Строка Table1->Active = true; - открытие набора данных.
Дальше идет вылавливание исключений если пошло что то не так.
Подготовленное таким образом приложение запускается на любой машине без необходимости инсталляции BDE, устойчив и нечувствителен к смене положения в файловой системе /переинсталляции системы/порчи реестра/влиянии на другие BDE-приложения.

[artemavd]

А если несколько таблиц, то надо для каждой таблицы помещать такой обработчик события?

[Gorychev]

А если несколько таблиц, то надо для каждой таблицы помещать такой обработчик события?

Да, для каждой таблицы.

[artemavd]

А в моем приложении две формы и БД находятся на второй форме. Значит мне надо написать эти обработчики только в событии OnCreate второй формы? Основная у меня первая форма.

[Gorychev]

Основная идея, это использовать приведенный выше код до начала использования Table. Задаем директорию в которой находится база + присваивается имя файла в котором база находится. А потом можно пользоваться Table в обычном порядке.
В вашем случае лучше вставить этот код в обработчик события OnCreate второй формы.

[Stilet]

artemavd

Смотря что у тебя за ситуация, а смысл поста в Горичева, в том чтоб указать путь к БД напрямую.

[Gorychev]

Горичева

Gorychev - Горячев