Работа с Combobox

@Alienvlg · Регистрация: 14.05.2015

Author24 — интернет-сервис помощи студентам

Добрый день !!
Подскажите пожалуйста. Есть комбобокс, который подгружает данные из файла

C++

procedure TFrmMnt.FormCreate(Sender: TObject);
var
  Path : String;
begin
  Path := ExtractFilePath(ParamStr(0));
  CmboxBts.Items.LoadFromFile(Path + '123.txt');

можно ли сделать чтобы при выборе определенной строки, в Edit подставлялись данные соответствующие строке комбобокса. Сразу скажу что в комбобоксе больше 500 строк. Хотелось бы не руками их все прописывать, а
вставить так же в файл.

@qwertehok · 23.10.2015, 12:33

не совсем понятно. при выборе значения в Combobox это значение проставить в Edit?

на событие onChange в Combobox
пишите

Delphi

1	if Combobox1.text<>'' then Edit1.Text:=Combobox1.text

так? или я не понял задачу?

@volvo · 23.10.2015, 12:37

Сообщение от qwertehok

это значение проставить в Edit?

Не это, а соответствующее, записанное в файле.

Alienvlg, в чем проблема подгрузить содержимое второго файла в StringList (назовем его Lst), и просто:

Delphi

1	Edit1.Text := Lst[ComboBox1->ItemIndex];

в OnChange комбобокса?

@Alienvlg · 23.10.2015, 12:42 **[ТС]**

Нет. При выборе значения в комбобокс должно вставляться в edit значение соответствующее строке комбобокса
пример
значения комбобокса
1
2
3
а им должны соответствовать к примеру адреса.

@Puporev · 23.10.2015, 12:50

Delphi

1	esit1.text:=Combobox1.Items[Combobox1.ItemIndex];

@Alienvlg · 23.10.2015, 14:10 **[ТС]**

Сообщение от volvo

в чем проблема подгрузить содержимое второго файла в StringList (назовем его Lst), и просто:

Можно поподробнее. Совсем недавно занимаюсь. Не могу сообразить, что куда ставить.

@volvo · 23.10.2015, 14:16

Переменную Lst описываешь тут:

Delphi

type
  TFrmMnt = class(TForm)
    // ... этим рулит IDE, тут ничего не трогаем
  private
    { Private declarations }
    Lst : TStringList; // <--- Вот оно
  public
    { Public declarations }
  end;

, и OnCreate формы изменяешь:

Delphi

procedure TFrmMnt.FormCreate(Sender: TObject);
var
  Path : String;
begin
  Path := ExtractFilePath(ParamStr(0));
  CmboxBts.Items.LoadFromFile(Path + '123.txt');
  Lst := TStringList.Create;
  Lst.LoadFtomFile(Path + '345.txt');
  // ...
end;
 
// ну и OnChange комбобокса:
procedure TFrmMnt.CmboxBtsChange(Sender: TObject);
begin
  Edit1.Text := Lst[CmboxBts.ItemIndex];
end;

Потом, при уничтожении формы (в OnDestroy), не забудь удалить Lst

@Alienvlg · 23.10.2015, 15:06 **[ТС]**

Сообщение от volvo

Переменную Lst описываешь тут:

Спасибо !

@Alienvlg 1 / 1 / 0 Регистрация: 14.05.2015 Сообщений: 26
	23.10.2015, 12:42 [ТС]	4
	Нет. При выборе значения в комбобокс должно вставляться в edit значение соответствующее строке комбобокса пример значения комбобокса 1 2 3 а им должны соответствовать к примеру адреса. 0

@Alienvlg 1 / 1 / 0 Регистрация: 14.05.2015 Сообщений: 26
	23.10.2015, 14:10 [ТС]	6
	Сообщение от volvo в чем проблема подгрузить содержимое второго файла в StringList (назовем его Lst), и просто: Можно поподробнее. Совсем недавно занимаюсь. Не могу сообразить, что куда ставить. 0

@Alienvlg 1 / 1 / 0 Регистрация: 14.05.2015 Сообщений: 26
	23.10.2015, 15:06 [ТС]	8
	Сообщение от volvo Переменную Lst описываешь тут: Спасибо ! 0

Работа с Combobox

Решение