[ryderx34]

Сообщение от XaKeR282

Если у ComboBox-а выбрана данная строка, то выполнить следующее действие...?

Код:

case ComboBox1.ItemIndex of
0: ShowMessage('выбрана первая строка');
1: ShowMessage('выбрана вторая строка');
// . . .
end;

Загляни хоть в какую-нибудь книгу что-ли...

[XaKeR282]

Я читаю книгу "Библия Delphi" но там ничег не написано про это.

[PhoeniX]

А ты повнимательнее читай. И прочитай сначала полностью, а потом на форуме спрашивай.

[XaKeR282]

Если у тебя есть эта книга, то посмотри на страницу 159, там написано про ComboBox и ничего не написано на счёт того, что я хочу.

[PhoeniX]

Во ВСЕХ книгах пишут про:
if ... then ... else
case of ... end
И, конечно же, там обращено внимание на свойство ItemIndex.
А если Вы, уважаемый, этого не заметили, или просто ещё не дочитали - то... очень хочется Вас послать... в книжный магазин за чем-нибудь попроще...

[PhoeniX]

И, да, слово гугл - это четыре буквы. Так что... идите ка Вы в четыре буквы, "хакер"! Кстати, советую ознакомится со значением слова "хакер"...

[XaKeR282]

Спасибо большое, с Case....Of получилось)

[XaKeR282]

А как тут можно дать два действия? Дапустим:

Код:

begin
case ComboBox1.ItemIndex of
0: 1-ое действие и 2-ое действие.
end;

попробовал написать: 1-ое действие and 2-ое действие, но ничего не получилось(.

[Assistant]

делай тогда через if:

Код:

if ComboBox1.ItemIndex = 0 then
begin
  // 1.1-ое действие;
  // 1.2-ое действие;
end;

if ComboBox1.ItemIndex = 1 then
begin
  // 2.1-ое действие;
  // 2.2-ое действие;
end;

[XaKeR282]

А через Case никак не получится?

[Assistant]

Сообщение от XaKeR282

А через Case никак не получится?

выноси действия в отдельные процедуры, и в них пиши сколько угодно строчек.

[XaKeR282]

то есть? Как понять в отдельные процедуры?

[Assistant]

Сообщение от XaKeR282

то есть? Как понять в отдельные процедуры?

мать моя женщина, хтож тебе ник-то придумал Хакер......

Код:

procedure blablabla;
begin
  // 1-ое действие
  // 2-ое действие
end;

...........................

begin
  case ComboBox1.ItemIndex of
    0: blablabla;
  end;
end;

[XaKeR282]

Нет, спс. Но я лучше с If попробую, спасибо за помощь!)

[ryderx34]

Сообщение от XaKeR282

А через Case никак не получится?

Код:

case ItemIndex of
0:begin
    ShowMessage('первое действие');
    ShowMessage('второе действие');
  end;
     //. . .
end;