Как сделать правильно ...выборку

← →
Ravilr (2004-03-29 12:52) [0]

Помогите...что я не так делаю: хочу чтоб при выборе из списк ComboBox1 Нужного наименования,
изменялись edit1 и edit2 и добавлялось в мемо1...., но в мемо добавляются три раза, да и цифры другие ставятся..ни как не знаю как справиться, или это делается по другому как то???

procedure TForm1.ComboBox1Change(Sender: TObject); begin case combobox1.ItemIndex of 0: type:= " Коробка1"; 1: type:= " Коробка2"; 2: typе:= " Коробка3"; end; if combobox1.ItemIndex = 0 then edit1.Text:= "6"; edit2.Text:= "2"; memo1.Lines.Add("Выбрал" +type); if combobox1.ItemIndex = 1 then edit1.Text:= "5"; edit2.Text:= "3"; memo1.Lines.Add("Выбрал" +type); if combobox1.ItemIndex = 2 then edit1.Text:= "4"; edit2.Text:= "4"; memo1.Lines.Add("Выбрал" +type); end; end.

← →
infom © (2004-03-29 12:53) [1]

Begin
end;

← →
infom © (2004-03-29 12:54) [2]

procedure TForm1.ComboBox1Change(Sender: TObject); begin case combobox1.ItemIndex of 0: type:= " Коробка1"; 1: type:= " Коробка2"; 2: typе:= " Коробка3"; end; if combobox1.ItemIndex = 0 then begin edit1.Text:= "6"; edit2.Text:= "2"; memo1.Lines.Add("Выбрал" +type); end; if combobox1.ItemIndex = 1 then begin edit1.Text:= "5"; edit2.Text:= "3"; memo1.Lines.Add("Выбрал" +type); end; if combobox1.ItemIndex = 2 then begin edit1.Text:= "4"; edit2.Text:= "4"; end; memo1.Lines.Add("Выбрал" +type); end; end.

← →
Ravilr (2004-03-29 13:02) [3]

Спасибо огромное!!!! И как я об это не догадался!!!!!!!

Как сделать правильно ...выборку Найти похожие ветки