Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2010.01.31;
Скачать: [xml.tar.bz2];

Вниз

Два условия в инструкции if   Найти похожие ветки 

 
IIIakal   (2009-12-08 10:02) [0]

Доброго времени суток!!!
Помогите разобраться плиз...нужно что бы инструкция выполнялась когда истинны два условия, изучив несколько статей про инструкции if then else пришол к выводу что код должен (но возможно не обязан:)) выглядеть както та:
if (label1.Caption:=inttostr(0)) and (checkbox1.Checked:=true) then
но увы не работает...
заранее спасибо...


 
brother ©   (2009-12-08 10:05) [1]

> if (label1.Caption:=inttostr(0)) and (checkbox1.Checked:
> =true) then

гдеж ты такой код взял???
вот так надо:
if (label1.Caption = inttostr(0)) and (checkbox1.Checked) then
но что за: inttostr(0)? это для теста? и вместо 0 будет integer переменная?


 
brother ©   (2009-12-08 10:06) [2]

у и бонусом:
checkbox1.Checked = False
можно записать
not checkbox1.Checked


 
IIIakal   (2009-12-08 10:11) [3]

спасибо большущее, заработало....
это будет типа если Label1=0 и в первом чекбоксе галочка то +1 если нет то -1
Label2 и чекбокс2...и т.д.


 
IIIakal   (2009-12-08 10:12) [4]

О! и за бонус отдельное спасибо....такого нигде не видел..))))


 
KilkennyCat ©   (2009-12-08 10:14) [5]


> такого нигде не видел

ну еще бы. там, где оператор присваивания := используется для сравнения, такого не увидишь.


 
KilkennyCat ©   (2009-12-08 10:15) [6]


> изучив несколько статей

ужас.


 
IIIakal   (2009-12-08 10:16) [7]

ну вот не надо прикалываться...Москва не сразу строилась....


 
sniknik ©   (2009-12-08 10:17) [8]

> такого нигде не видел..))))
шутишь? любая книжка по паскалю раздел "логические операции", или "бинарные" хотя это и не одно и тоже.


 
brother ©   (2009-12-08 10:17) [9]

> ужас.

Кстати, согласен. Разве в школе разведчиков не объясняли разницу между оператором присвоения ( := ) и оператором сравнения ( = ) ?


 
DrPass ©   (2009-12-08 10:18) [10]


> IIIakal   (08.12.09 10:12) [4]
> О! и за бонус отдельное спасибо....такого нигде не видел.
> .))))

Вот тебе еще один бонус: if (label1.Caption="0") and checkbox1.Checked then...
Ты серьезно читал несколько статей по if... then... ? O_o


 
AIK ©   (2009-12-08 10:18) [11]

if (label1.Caption = "0") and (checkbox1.Checked) then


 
brother ©   (2009-12-08 10:19) [12]

ну, да ладна, не будем судить строго... в начинающих же...


 
sniknik ©   (2009-12-08 10:22) [13]

> ну вот не надо прикалываться...Москва не сразу строилась....
ну ты то "строишь" уже довольно давно
http://delphimaster.net/view/18-1237900470/

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


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


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

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


 
IIIakal   (2009-12-08 10:24) [15]

я тогда так и забросил это дело....сегодня опять Дельфи установил.....
всем спасибо за помощь....


 
brother ©   (2009-12-08 10:25) [16]

> про ":=" и ":"

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


 
IIIakal   (2009-12-08 10:26) [17]

да теперьто понял...а разведчик с меня херовый всегда был..даже после школы)))


 
brother ©   (2009-12-08 10:28) [18]

что ты понял?
не

> ":=" и ":"  

а
:= и =


 
Ymen   (2009-12-08 12:39) [19]

мдя...
правильней так :
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;


 
Ymen   (2009-12-08 12:41) [20]

ой! пардон :

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;


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


> Ymen


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


 
Ymen   (2009-12-08 12:55) [22]

Не?

...
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 13:02) [23]


> Ymen   (08.12.09 12:55) [22]


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


 
KilkennyCat ©   (2009-12-08 14:49) [24]


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

три ошибки.


 
Плохиш ©   (2009-12-08 17:39) [25]

Поздравляю всех с приближающейся сессией :-))


 
Palladin ©   (2009-12-08 19:50) [26]

...и с, обладающем тем же свойством, военкоматом )


 
KilkennyCat ©   (2009-12-08 20:01) [27]

это не то же свойство, а как правильно сказать-то... наследуемое и перекрываемое?


 
Игорь Шевченко ©   (2009-12-08 20:36) [28]

может, вам специальный сайт создать, где вы друг друга учить будете ? :)


 
KilkennyCat ©   (2009-12-08 20:53) [29]

гы, я тож об этом подумал...


 
yyr3   (2009-12-09 06:17) [30]

if (label1.Caption = inttostr(0)) and (checkbox1.Checked) then

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


 
brother ©   (2009-12-09 06:26) [31]

прочитай умную литературу - все, подобные, вопросы отпадут ...


 
Ymen   (2009-12-09 06:40) [32]

>[30] yyr3   (09.12.09 06:17)
>if (label1.Caption = inttostr(0)) and (checkbox1.Checked) then

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

Ведь это-же бред, бред, бред (c) к/ф "12" )))))))


 
yyr3   (2009-12-09 06:54) [33]

Хорошо пусть в умной литературе это все есть и это бред,
вопрос конкретно к brother ©  и Ymen

Вот

if (label1.Caption = inttostr(0)) and (checkbox1.Checked) then

и

If label1.Caption = inttostr(0) Then If checkbox1.Checked Then

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


 
KilkennyCat ©   (2009-12-09 07:02) [34]

это зависит не только от языка.


 
yyr3   (2009-12-09 07:03) [35]

Хотелось бы все таки услышать от brother ©  и Ymen


 
KilkennyCat ©   (2009-12-09 07:30) [36]

а с другой стороны от языка иногда сильнее зависит... теоретически, проверка второго условия не будет, ибо нет необходимости, если только второе условие не есть вызов функции, результатом чего имеет место быть и дальнейшее влияние, если по ходу работы этой функции происходит изменение вне ее области.


 
brother ©   (2009-12-09 07:32) [37]

> что там пишет умная литература?

а тебе лень почитать или провести тесты? хочешь, чтоб мы твоей ерундой занимались?


 
brother ©   (2009-12-09 07:33) [38]

имхо одно и тоже...


 
KilkennyCat ©   (2009-12-09 07:46) [39]

а еще это зависит от типа траслятора, и совсем хреново будет при покомандной интерпретации.


 
yyr3   (2009-12-09 07:47) [40]

Удалено модератором



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

Форум: "Начинающим";
Текущий архив: 2010.01.31;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.53 MB
Время: 0.004 c
1-1235132567
dmitry1208197320
2009-02-20 15:22
2010.01.31
Поддержка темы XP компонентом TTreeView


2-1260206153
Aleks
2009-12-07 20:15
2010.01.31
Текст кодировка


8-1201820831
cerber
2008-02-01 02:07
2010.01.31
"програмно" нажать ссылку в флеш анимации.


1-1234891292
d@vinchi
2009-02-17 20:21
2010.01.31
Клиент-серверное приложе по протоколу SIP


15-1258984807
Unknown user
2009-11-23 17:00
2010.01.31
Кнопка Favorites в диалогах Open/Save в Windows XP





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский