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

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

09.06.2015, 13:40. Просмотров 277. Ответов 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
Ответы с готовыми решениями:

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

Не выполняется условие If . and . then
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...

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

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

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

4
Immo
186 / 185 / 92
Регистрация: 02.10.2012
Сообщений: 826
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

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

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

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


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

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

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