Обалдеть, забыл всё напрочь, хелп пзл, исключить из списка в Comb

← →
IronHawk (2003-12-12 16:44) [0]

oBox-e!
Есть Items-ов 50шт и при выборе скажем любого акромя 1-го (напоминаю, там от 0) и скажем 7-го надо выдавам мессагу:
Но я что-то пропустил?

procedure TForm1.ComboBoxSelect(Sender: TObject); begin if not ComboBox.Items.Count=1 then if not ComboBox.Items.Count=7 then MessageDlg("Фигу тебе",mtWarning,[mbOK],0); end;

← →
Ru (2003-12-12 16:47) [1]

procedure TForm1.ComboBoxSelect(Sender: TObject);
begin
if not ComboBox.ItemIndex=1 then
if not ComboBox.ItemIndex=7 then
MessageDlg("Фигу тебе",mtWarning,[mbOK],0);
end;

если не ошибаюсь

← →
IronHawk (2003-12-12 16:50) [2]

> Ru © (12.12.03 16:47) [1]

Ошибся!
:-(

← →
Ru (2003-12-12 16:59) [3]

я проверил - работает! При выборе н-ного выдаёт сообщение.
если писать if ComboBox1.ItemIndex=3 then ShowMessage(":P");
а вот с not вообще никак не работает.

← →
Вася Пупкин (2003-12-12 17:13) [4]

procedure TForm1.ComboBox1Select(Sender: TObject);
begin
if not(ComboBox1.ItemIndex in [1,7]) then
ShowMessage("ФигВам");
end;

← →
IronHawk (2003-12-12 17:21) [5]

> Вася Пупкин © (12.12.03 17:13) [4]

Отлично, супер!
Спасибо!

← →
Sandman25 (2003-12-12 18:19) [6]

Дурной язык паскаль. Вроде бы такой типизированный, а тут вместо not (ItemIndex = 1) написали not ItemIndex = 1, а компилятор даже предупреждения никакого не выдал. Да и не должен :(

← →
IronHawk (2003-12-12 18:40) [7]

← →
Sandman25 (2003-12-12 18:54) [8]

[7] IronHawk © (12.12.03 18:40)

С самого начала было ошибкой обозначать логические и битовые операции одними словами. Сделали бы LogNot, LogAnd, LogXor и LogOr, и было бы "клево".

← →
Fantasist (2003-12-13 01:44) [9]

> а тут вместо not (ItemIndex = 1) написали not ItemIndex
> = 1

Вообще-то в первый раз вижу, чтобы операцию a<>b записывали бы как not a=b

Обалдеть, забыл всё напрочь, хелп пзл, исключить из списка в Comb Найти похожие ветки