Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

<> или = [D6, D7, 2000, XP]

Officeman © (2006-05-17 09:04:00)
) задача: используя CheckBox1, сделать так:

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

if A "Z" B then begin

.........

end else begin

........

end;

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

Officeman (2006-05-17 11:12:00) [1]
о. чёт я с тормозил. =) ЮЮ, спасибо.

Officeman (2006-05-17 11:02:00) [2]
2ЮЮ, ок. попробую

Officeman (2006-05-17 11:00:00) [3]
[8]... всё остальное прога додумает сама. дублировать один и тот же код неправильно.

ЮЮ (2006-05-17 10:44:00) [4]

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

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

if Checkbox1.Checked=true then Z:="<>" else Z:="=" ; if A "Z" B then begin ......... end else begin ........ end;

Officeman (2006-05-17 10:29:00) [5]
[8]... всё остальное прога додумает сама. дублировать один и тот же код неправильно.

Officeman (2006-05-17 10:13:00) [6]
при :
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 .... .... ....

MBo (2006-05-17 10:02:00) [7]
xor можно заменить <>, это, наверно, более читабельно...

TUser (2006-05-17 09:49:00) [8]
> а разве не лучше писать так, чтобы и читать можно было, не "ломая голову"?

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

evvcom (2006-05-17 09:49:00) [9]

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

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

ЮЮ (2006-05-17 09:47:00) [10]
а разве не лучше писать так, чтобы и читать можно было, не "ломая голову"?

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:00) [11]
И в догонку

> if Checkbox1.Checked=true then

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

WondeRu (2006-05-17 09:32:00) [12]
MBo © (17.05.06 9:25) [1]
if Checkbox1.Checked xor (A = B) then...
опередил :)

MBo (2006-05-17 09:25:00) [13]
if Checkbox1.Checked xor (A = B) then...

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »