IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> Замена параметров драйвера Bde
сообщение
Сообщение #1


Гость






Нужно поменять путь к базе данных. Накидал такую програмку

Код

procedure TForm1.Button1Click(Sender: TObject);
var
  new: TStrings;
  all: TStrings;
begin
  new := TStringList.Create;
  all := TStringList.Create;
  Session1.GetAliasParams('BASE',new);
  new := Database2.Params;
  Session1.ModifyAlias('BASE',new);
  Session1.GetAliasParams('BASE',all);
  ListBox1.Items.Assign(all);
  new.Free;
  all.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  new: TStrings;
  all: TStrings;
begin
  new := TStringList.Create;
  all := TStringList.Create;
  Session1.GetAliasParams('BASE',new);
  new := Database1.Params;
  Session1.ModifyAlias('BASE',new);
  Session1.GetAliasParams('BASE',all);
  ListBox1.Items.Assign(all);
  new.Free;
  all.Free;
end;

В свойстве Param компоент Database1 и Database2 прописаны пути к базам. При запуске программы из Delphi все меняется и значения параметров выводятся в ListBox, в BDE Administrator изменения тоже отображаются. Как только закрываю Delphi - все изменения пропадают... Что я сделал не так?
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 28.01.2022 1:22
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name