Форум: "Основная";
Текущий архив: 2004.04.18;
Скачать: [xml.tar.bz2];
Вниз
Как сделать правильно ...выборку Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2004.04.18;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.049 c
