Форум: "Основная";
Текущий архив: 2003.09.29;
Скачать: [xml.tar.bz2];

Вниз

Как сделать по проще   Найти похожие ветки 

← →
Vitaliygavrilov   (2003-09-16 10:46) [0]

Уважаемые мастера!

procedure Form1.Button1click
if Combox1.itemindex = 0
then begin
If combobox2.itemindex =0
then begin
Edit1.text:="Нет выбора";
end;
end;
И вообще как сделать чтобы в любом случае как при выборе в Comboboxсах так и без него выдавалась "Нет выбора"

С уважением Гаврилов В.А.

---

← →
ZEE   (2003-09-16 10:51) [1]

>Vitaliygavrilov (16.09.03 10:46)
>И вообще как сделать чтобы в любом случае случае как при выборе в Comboboxсах так и без него выдавалась "Нет выбора"

ну если в любом - то просто
Edit1.text:="Нет выбора";// при запуске
и не менять его ...

---

← →
Vitaliygavrilov   (2003-09-16 10:54) [2]

>>ZEE
Нельзя ли избежать циклов.

---

← →
Vitaliygavrilov   (2003-09-16 10:56) [3]

procedure Form1.Button1click
if Combox1.itemindex = 0
then begin
If combobox2.itemindex =0
then begin
Edit1.text:="Нет выбора";
end;
If combobox2.itemindex =1
then begin
Edit1.text:="234";
end;
If combobox2.itemindex =2
then begin
Edit1.text:="456";
end;
end;
Можно ли проще...

---

← →
HolACost!   (2003-09-16 10:58) [4]

Ага! Case никто не отменял

case combobox2.itemindex of
1:...
2:...
end;


---

← →
Vitaliygavrilov   (2003-09-16 11:04) [5]

procedure Form1.Button1click
if Combox1.itemindex = 0
then begin
If combobox2.itemindex of
0: Edit1.text:="Нет выбора";
1: Edit1.text:="234";
2: Edit1.text:="456";
else
Edit1.text:="Нет выбора";
end;
end;
так правильно..

---

← →
NAlexey   (2003-09-16 11:09) [6]

Э-э-эхххх...

---

← →
HolACost!   (2003-09-16 11:11) [7]

извините не If а CASE!!!! Это может показаться предиркой, но это ВАЖНО! :-D

---

← →
Vitaliygavrilov   (2003-09-16 11:14) [8]

procedure Form1.Button1click
if Combox1.itemindex = 0
then begin
case combobox2.itemindex of
0: Edit1.text:="Нет выбора";
1: Edit1.text:="234";
2: Edit1.text:="456";
else
Edit1.text:="Нет выбора";
end;
end;
Спасибо, видимо так..

---

← →
HolACost!   (2003-09-16 11:16) [9]

Yes-s-s-s-s-s-s! Но я бы оптимизировал до вида


if Combox1.itemindex = 0 then
begin
case combobox2.itemindex of
1: Edit1.text:="234";
2: Edit1.text:="456";
else
Edit1.text:="Нет выбора";
end;
end;


---

← →
ZEE   (2003-09-16 11:36) [10]

>Vitaliygavrilov (16.09.03 10:54) [2]
>Нельзя ли избежать циклов.
а где там цклы?

---

← →
Vitaliygavrilov   (2003-09-16 11:46) [11]

Спасибо.

---

← →
panov   (2003-09-16 12:02) [12]

>Vitaliygavrilov
Оформляй топик правильно.

---

← →
SVM (Perm)   (2003-09-16 12:06) [13]

Строки в массив, Edit1.Text:=StrArray[combobox2.itemindex]!

---

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

Форум: "Основная";
Текущий архив: 2003.09.29;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.01 c