Возможно ли при выборе данных в DBComboBox в следующем DBComboBox подгружались данные?

Question

[AlexNSK54]

Возможно ли при выборе данных из файла txt в DBComboBox в следующем DBComboBox подгружались данные из определенного файла txt? Так подгружаются данные:

Form6.DBComboBox3.Items.LoadFromFile('Agregat.txt');

Comments

[Константин Цветков]

Зачем TDBComboBox, если используется текстовый файл, а не база данных.

[AlexNSK54]

Работа идет с базой данных. А файл текстовый потому что на разных обьектах данные разные а сохраняются они в базу. Текстовый файл используется как подстановка

[Константин Цветков]

AlexNSK54, Всё что хранится в базе данных должно храниться в ней.

[AlexNSK54]

Константин Цветков, Это понятно но просто человекам проще забить данные на подстановку в текстовый файл у обьектов разные данные для подстановки. Такие дела.

[Константин Цветков]

AlexNSK54, Потом текстовый файл потеряется и челавекам будет плакать, а забить в самый простой грид те же данные и он будет счастлив.

[AlexNSK54]

Это верно! Спасибо за совет!

[AlexNSK54]

Константин Цветков, Доброго времени суток! еще глупый вопрос. Как добавить что бы файл подгружался из папки которая лежит в корне с прогой? не могу допетрить. Заранее благодарен!
Form6.DBComboBox4.Items.LoadFromFile( DBComboBox3.Items[DBComboBox3.ItemIndex] +Agregat\ '.txt' ); всяко пробывал

[Модератор]

AlexNSK54, Один вопрос за раз.

Answer 1

[Константин Цветков]

procedure Form6.DBComboBox3Change(Sender: TObject);
begin
  Form6.DBComboBox4.Items.LoadFromFile( DBComboBox3.Items[DBComboBox3.ItemIndex] + '.txt' );
end;

файл подгружался из папки которая лежит в корне с прогой

procedure Form6.DBComboBox3Change(Sender: TObject);
  fl: String
begin
  fl := ExtractFilePath( Application.ExeName ) +  DBComboBox3.Items[DBComboBox3.ItemIndex] + '.txt'
  Form6.DBComboBox4.Items.LoadFromFile( fl );
end;

Comments

[AlexNSK54]

Доброго времени суток! еще глупый вопрос. Как добавить что бы файл подгружался из папки которая лежит в корне с прогой? не могу допетрить. Заранее благодарен!
Form6.DBComboBox4.Items.LoadFromFile( DBComboBox3.Items[DBComboBox3.ItemIndex] +Agregat\ '.txt' ); всяко пробывал