Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Alexsandr_97
0 / 0 / 0
Регистрация: 11.04.2015
Сообщений: 48
#1

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

09.06.2015, 13:40. Просмотров 273. Ответов 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');
?
И еще, возможно, у противника появляется одна и та же картинка.
Можете это исправить?
http://www.cyberforum.ru/delphi-beginners/thread397758.html
Помогите пожалуйста.

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

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

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

Не выполняется условие
procedure TForm1.FormCreate(Sender: TObject); begin if //условие then...

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

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

4
Immo
180 / 180 / 90
Регистрация: 02.10.2012
Сообщений: 808
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
250 / 161 / 24
Регистрация: 22.08.2014
Сообщений: 1,581
Записей в блоге: 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 те...

Алгоритм Нарайаны - Найти такой наибольший j для которого выполняется условие
Алгоритм Нарайаны Шаг 1. Найти такой наибольший j для которого aj&lt;=aj+1; Шаг...


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

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

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