Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
Alexsandr_97
0 / 0 / 0
Регистрация: 11.04.2015
Сообщений: 48
#1

Почему не выполняется условие в программе? - Delphi

09.06.2015, 13:40. Просмотров 259. Ответов 4
Метки нет (Все метки)

Есть программа: http://rghost.ru/6sxJSr7Yt
Почему не выполняется условие:
Delphi
1
2
if sum2<=10 then Image9.Picture.LoadFromFile('C:\Users\NotePad.by\Desktop\Курсач_v 2.0\21\'+inttostr(random(r[i]))+'.jpg')
   else  if (Image9.Picture<>nil) and (sum2<=16) then Image10.Picture.LoadFromFile('C:\Users\NotePad.by\Desktop\Курсач_v 2.0\21\'+inttostr(random(r[i]))+'.jpg');
?
И еще, возможно, у противника появляется одна и та же картинка.
Можете это исправить?
Помогите пожалуйста.

Добавлено через 7 минут
Или точнее, у противника всегда вылазят только тузы.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.06.2015, 13:40
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Почему не выполняется условие в программе? (Delphi):

Почему то не выполняется условие - Delphi
Может я что то непраильно делаю помогите пожалуйста ...

Не выполняется условие If . and . then - Delphi
if (Sz0&lt;=0.10) and (Sz0&gt;0.06) then begin Sp1:=0.04; Sp2:=0.03; zp0:=4; end; if (Sz0&gt;0.10) and (Sz0&lt;=0.15) then begin ...

Выполняется ли условие? - Delphi
Вот он, код: for i := 0 to length(cq_pnl1)-1 do begin IsFindRight:=false; for k := 0 to cq_pnl1.ComponentCount-1 do begin ...

Не выполняется условие о_О - Delphi
Извиняюсь вопрос решен, проблема - невнимательность) Модератор удали тему.

Запрет загрузки файла, если выполняется условие - Delphi
Не получается загрузить файл. Еще нужно чтобы нельзя было загружать измененный сохраненный файл. Я пыталась сделать через сравнение...

Прекратить решение задачи, если не выполняется условие - Delphi
Åñëè k1 = k2 , òî ïðÿìûå ïàðàëëåëüíû è îòðåçêè ïåðåñåêàòüñÿ íå ìîãóò. Ðåøåíèå çàäà÷è ïðåêðàùàåì. if k1=k2 then ShowMessage('Îòðåçêè...

4
Immo
179 / 179 / 52
Регистрация: 02.10.2012
Сообщений: 807
09.06.2015, 13:42 #2
randomize
0
Alexsandr_97
0 / 0 / 0
Регистрация: 11.04.2015
Сообщений: 48
09.06.2015, 14:42  [ТС] #3
Цитата Сообщение от Immo Посмотреть сообщение
randomize
Он скоит
0
planetoxod
248 / 159 / 24
Регистрация: 22.08.2014
Сообщений: 1,573
Записей в блоге: 1
09.06.2015, 15:30 #4
А что ты сделал, чтобы оно выполнялось?
0
Alexsandr_97
0 / 0 / 0
Регистрация: 11.04.2015
Сообщений: 48
09.06.2015, 19:00  [ТС] #5
Блин, я его как бы задал. Что не так?

Добавлено через 3 минуты
Иногда даже если противник карту не возьмет, и его счет будет меньше 21-го, а мой- больше, почему то пишет, что у обоих перебор. Почему?
0
09.06.2015, 19:00
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.06.2015, 19:00
Привет! Вот еще темы с ответами:

Открытие стороннего приложения если выполняется условие ? - Delphi
Какой командой в delphi можно открыть сторонне приложение к примеру

Найти первый из номеров К, для которых выполняется условие - Delphi
!!!!!!!!!!Народ распишите плиз решения(алгоритмы)программ на языке Delphi те которые знаете,можно решения альтернативных задач,можно какие...

Алгоритм Нарайаны - Найти такой наибольший j для которого выполняется условие - Delphi
Алгоритм Нарайаны Шаг 1. Найти такой наибольший j для которого aj&lt;=aj+1; Шаг 2. Увеличить aj (для этого надо установить l=n, aj&gt;=al,...

Напечатайте элементы матрицы, лежащие на ее главной диагонали, если выполняется условие - Delphi
Пусть дана символьная квадратная матрица размерности n. Напечатайте элементы матрицы, лежащие на ее главной диагонали, если все они отличны...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.