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

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

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

Два условия в инструкции if [D7, XP]

Страницы: < 1 2 3 >
IIIakal © (2009-12-08 10:02:00)
Доброго времени суток!!!
Помогите разобраться плиз...нужно что бы инструкция выполнялась когда истинны два условия, изучив несколько статей про инструкции if then else пришол к выводу что код должен (но возможно не обязан:)) выглядеть както та:
if (label1.Caption:=inttostr(0)) and (checkbox1.Checked:=true) then
но увы не работает...
заранее спасибо...

brother (2009-12-09 06:26:00) [21]
прочитай умную литературу - все, подобные, вопросы отпадут ...

yyr3 (2009-12-09 06:17:00) [22]
if (label1.Caption = inttostr(0)) and (checkbox1.Checked) then

А вот интересно проверяется ли второе условие, при такой записи,
если первое проверено и не соответствует и собственно какой будет порядок проверки, согласно записи -> слева на право:)?

KilkennyCat (2009-12-08 20:53:00) [23]
гы, я тож об этом подумал...

Игорь Шевченко (2009-12-08 20:36:00) [24]
может, вам специальный сайт создать, где вы друг друга учить будете ? :)

KilkennyCat (2009-12-08 20:01:00) [25]
это не то же свойство, а как правильно сказать-то... наследуемое и перекрываемое?

Palladin (2009-12-08 19:50:00) [26]
...и с, обладающем тем же свойством, военкоматом )

Плохиш (2009-12-08 17:39:00) [27]
Поздравляю всех с приближающейся сессией :-))

KilkennyCat (2009-12-08 14:49:00) [28]

> Ошибка, не предвиденное условие!!!

три ошибки.

Ганя (2009-12-08 13:02:00) [29]

> Ymen (08.12.09 12:55) [22]

Так намного лучше

Ymen (2009-12-08 12:55:00) [30]
Не?

...
var
X, Y: Integer;
begin
try
with checkbox1, label1 do begin
Y := Length (Caption);
repeat
Inc (X);
if (Caption [X] = '0') and Checked then begin
ShowMessage ('1');
end else if (Caption [X] <> '0') and (not Checked) then begin
ShowMessage ('2');
end;
until X = Y;
end;
except on E:Exception do
raise E.Create (''Ошибка, не предвиденное условие!!!');
end;
end;

Ганя (2009-12-08 12:53:00) [31]

> Ymen

полный ужос, а не код

Ymen (2009-12-08 12:41:00) [32]
ой! пардон :

ry
with checkbox1, label1 do
if (Caption[1] = '0') and Checked then
begin
ShowMessage ('Опа!!!');
end else
begin
end;
except on E:Exception do
raise E.Create ('Ошибка, не предвиденное условие!!!');
end;

Ymen (2009-12-08 12:39:00) [33]
мдя...
правильней так :
try
with checkbox1, label1 do
if (Caption = '0') and Checked then
begin
ShowMessage ('```');
end else
begin
end;
except on E:Exception do
raise E.Create ('Ioeaea i?ia?aiiu!!!');
end;

brother (2009-12-08 10:28:00) [34]
что ты понял?
не

> ':=' и ':'

а
:= и =

IIIakal (2009-12-08 10:26:00) [35]
да теперьто понял...а разведчик с меня херовый всегда был..даже после школы)))

brother (2009-12-08 10:25:00) [36]
> про ':=' и ':'

О_о видимо не прочитал [9] опять?

IIIakal (2009-12-08 10:24:00) [37]
я тогда так и забросил это дело....сегодня опять Дельфи установил.....
всем спасибо за помощь....

IIIakal (2009-12-08 10:22:00) [38]

> Ты серьезно читал несколько статей по if... then... ? O_o

читал, но там про ':=' и ':' - ничего не было

sniknik (2009-12-08 10:22:00) [39]
> ну вот не надо прикалываться...Москва не сразу строилась....
ну ты то "строишь" уже довольно давно
http://xayam.kilkennycat.ru/view.php?folder=60&file=18-1237900470

операции должен бы уже освоить.

brother (2009-12-08 10:19:00) [40]
ну, да ладна, не будем судить строго... в начинающих же...

Страницы: < 1 2 3 >

Наверх

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