<> или =

← →
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]... всё остальное прога додумает сама. дублировать один и тот же код неправильно.

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

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

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]

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

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