Скачать: CL | DM;

Обалдеть, забыл всё напрочь, хелп пзл, исключить из списка в 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 © (12.12.03 18:19) [6]

А какой язык тогда "клёвый" ?
Галимый С-тьху-тьху или Вижуал Васик?

---

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

---

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

Скачать: CL | DM;



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