|
|
Другие темы раздела | |
Delphi Матрица К. В каждой строке четные элементы заменить на минимальный элемент Ключевая фраза: в каждой строке. Мучаюсь с этим кодом больше месяца. Программа запускается, но ничего не меняет. Учитель сказал, что теоретически программа верна. procedure TForm1.Button1Click(Sender: TObject); begin n:=strtoint(SpinEdit1.Text); StringGrid1.RowCount:=n; StringGrid2.RowCount:=n; m:=strtoint(SpinEdit2.Text); https://www.cyberforum.ru/ delphi-beginners/ thread970066.html |
Delphi Вход с программы в dle Как сделать авторизацию через delphi на сайт с dle движком |
Delphi Регулярные выражения, не видит русские символы
https://www.cyberforum.ru/ delphi-beginners/ thread970009.html Регулярные выражения, не видит русские символы. Дан текст, например такой (разделитесь ; ) wolf5123;emma84192 alex;q3681 otto;7492 алекс;мария олег78;853рузанна 47283;cristina |
Delphi задачу на дружественные числа
https://www.cyberforum.ru/ delphi-beginners/ thread970007.html 4. Два натуральных числа называют дружественными, если каждое из них равно сумме всех делителей другого, кроме самого этого числа. Найти все пары дружественных чисел, лежащих в диапазоне от 200 до 300 Добавлено через 2 часа 33 минуты помогите кто с решением. |
Delphi Конечный автомат для нулей и единиц Доброго времени суток. Посоветуйте, что не так? Имеется задача простроения конечного автомата для цепочек из нулей и единиц. При этом условие - за каждым вхождением пары единиц следует нуль. Ну и ещё одним условием является то, что при реализации необходимо использовать таблицу переходов и двумерный массив. А не "условия IF". Взялся реализовать на Delphi. unit Unit1; |
Delphi Составить программу вычисления арифметических выражений
https://www.cyberforum.ru/ delphi-beginners/ thread969947.html Добрый день! В Delphi ещё совсем новичок, помогите составить программу вычисление арифметических выражений: Буду очень благодарен. |
Delphi парочки
https://www.cyberforum.ru/ delphi-beginners/ thread969797.html Ребятки, подскажите или хотя бы намекните, как сделать игру парочки. Надо разбить картинку на 16 равных частей (картинок), рандомно раскидать их и скрыть (скрыть я могу, а вот рандомно раскидать нет). Потом по нажатию на парочку, она открывается и надо открыть другую парочку. Если картинки равны, то их надо удалить. Как все это сделать? Добавлено через 16 часов 55 минут ап темы |
Delphi Распознавание цвета [Delphi 7] Всем привет! Такую задачу я перед собой поставил: Есть цвета, грубо говоря кусок ткани. Кусок ткани серого цвета, содержит (примерно) 10 цветов (серый, тёмно серый, светло серый, с голубым оттенком и т.д) Этот кусок ткани не в форме, а например где то в интернете или в фотошопе например. Цель в том, что если курсор мыши натыкается на сходство хотя бы 1 из этих цветов то происходит... |
Delphi Запуск программы
https://www.cyberforum.ru/ delphi-beginners/ thread969749.html Возникла следующая проблема... Размеры и положение компонентов на форме рассчитываются в обработчике Timer при запуске программы. Поэтому при запуске программы видно, как происходят эти изменения. Как сделать, чтобы эти расчеты производились во время запуска окна приветствия? |
Delphi Как убрать отображение программы в панели задачь в Delphi XE4 Как сделать что бы в панели зачачь не отображалась моя программа. Пишу в Delphi XE4. Пробовал ставить в проекте Application.MainFormOnTaskbar := False; в панели все равно отображается программа. ShowWindow(Application.Handle, SW_HIDE); тоде никакого результата. SetWindowLong(Form1.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW); - работает, но форма теряет свои свойства. Например у меня там прозрачный... https://www.cyberforum.ru/ delphi-beginners/ thread969742.html |
Delphi Запись координат формы при перемещении по экрану Пытаюсь создать гаджет. Возникли такие вопросы: Вопрос 1. Как поместить форму в правый верхний угол на свободное место. Тоесть просто переместить форму в правый верхний угол при запуске делаю так: procedure TForm1.FormCreate(Sender: TObject); begin Form1.Left := Screen.Width - Form1.Width - 10; Form1.Top := Screen.Height - Screen.Height + 10; end; А вот что делать если в этом углу уже есть... |
Delphi Получение списка подключеных Bluetooth-устройств и передача/прием файлов
https://www.cyberforum.ru/ delphi-beginners/ thread969703.html скачал wireles framework.как с ним работать.нужно получить список подключеных блютуз-устройств и передать или получить какойто файл на другое устройство(которое тоже надо найти).как мне это сделать? |
0 / 0 / 0
Регистрация: 06.12.2012
Сообщений: 38
|
|
07.10.2013, 18:41 [ТС] | 0 |
Показать счет в игре - Delphi - Ответ 515053107.10.2013, 18:41. Показов 1805. Ответов 2
Метки (Все метки)
Ответ
ну я кинул на форму шейп и в шейп написал. может что та не правельно. ошибку выдает.
function Collision(R1, R2: TRect): Boolean; var Temp: TRect; begin Result := False; if not UnionRect(Temp, R1, R2) then Exit; if (Temp.Right - Temp.Left <= R1.Right - R1.Left + R2.Right - R2.Left) and (Temp.Bottom - Temp.Top <= R1.Bottom - R1.Top + R2.Bottom - R2.Top) then Result := True; end Вернуться к обсуждению: Показать счет в игре Delphi
0
|
07.10.2013, 18:41 | |
Готовые ответы и решения:
2
счёт в игре Счёт в игре Как добавить счет к игре? Как в игре сделать счёт голов? |
07.10.2013, 18:41 | |
07.10.2013, 18:41 | |
Помогаю со студенческими работами здесь
0
Счет в игре на основе значения таймера Как в игре сделать максимальный счет который ты сумел набрать? Как сделать счёт очков в игре "Пинг-понг"? показать Имя=$Переменная&Имя2=$Переменная2? Показать два+ значения |