Скачать: CL | DM;

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

← →
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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.027 c