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

<> или =   Найти похожие ветки 

← →
Officeman   (2006-05-17 09:04) [0]

) задача: используя  CheckBox1, сделать так:

if Checkbox1.Checked=true then   Z:="<>"   else  Z:="="     ;

if A "Z" B then begin

.........

end else begin

........

end;

это реально ???? подскажите синтаксис.

---

← →
MBo ©   (2006-05-17 09:25) [1]

if Checkbox1.Checked xor (A = B) then...

---

← →
WondeRu ©   (2006-05-17 09:32) [2]

MBo ©   (17.05.06 9:25) [1]
if Checkbox1.Checked xor (A = B) then...
опередил :)

---

← →
ЮЮ ©   (2006-05-17 09:47) [3]

а разве не лучше писать так, чтобы и читать можно было, не "ломая голову"?

if  
 Checkbox1.Checked and (A <> B) or  
 not Checkbox1.Checked and (A= B)
then begin

end
else begin

end;

---

← →
evvcom ©   (2006-05-17 09:47) [4]

И в догонку

> if Checkbox1.Checked=true then  

зачем сравнивать булево значение с булевой константой, получая булев результат? Достаточно писать просто
if Checkbox1.Checked then

---

← →
TUser ©   (2006-05-17 09:49) [5]

> а разве не лучше писать так, чтобы и читать можно было, не "ломая голову"?

[1] читабельнее, имхо. Если два значения различны, то ...

---

← →
evvcom ©   (2006-05-17 09:49) [6]

> чтобы и читать можно было, не "ломая голову"?

А это уже зависит от "булевой грамотности" читателя. Кому-то и МВо вариант понятен с лёту.

---

← →
MBo ©   (2006-05-17 10:02) [7]

xor можно заменить <>, это, наверно, более читабельно...

---

← →
Officeman   (2006-05-17 10:13) [8]

при :


if  
Checkbox1.Checked and (A <> B) or  
not Checkbox1.Checked and (A= B)
then begin

end
else begin

end;



вы предлагаете писать один и тотже код  для  разных действий  <> и = !

Во время работы программы, при установке Checkbox1.Checked нужно менять значёк с "<>", на "="   в  равенстве.


if NumD<>strtoint(LV.Items[TekXoD].SubItems[x]) then begin
LVb.Items.item[0].SubItems[x]:=inttostr(strtoint(LVb.Items.item[0].SubItems[x])+1);
end else begin
....
....
....


---

← →
Officeman   (2006-05-17 10:29) [9]

[8]... всё остальное прога додумает сама.    дублировать один и тот же код неправильно.

---

← →
ЮЮ ©   (2006-05-17 10:44) [10]

> вы предлагаете писать один и тотже код  для  разных действий
>  <> и = !


где ты это увидел? это полный аналог твоего

if Checkbox1.Checked=true then   Z:="<>"   else  Z:="="     ;

if A "Z" B then begin

.........

end else begin

........

end;

---

← →
Officeman   (2006-05-17 11:00) [11]

[8]... всё остальное прога додумает сама.    дублировать один и тот же код неправильно.

---

← →
Officeman   (2006-05-17 11:02) [12]

2ЮЮ, ок. попробую

---

← →
Officeman   (2006-05-17 11:12) [13]

о. чёт я с тормозил. =) ЮЮ, спасибо.

---

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

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



Память: 0.48 MB
Время: 0.027 c