Как сделать по проще

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

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