|
|
Другие темы раздела | |
Delphi Как сделать чтоб значение Label изменялось каждую секунду на 2 единицы
https://www.cyberforum.ru/ delphi-beginners/ thread1424311.html Как сделать чтоб значение Label изменялось каждую секунду на 2 от 1000 до 100000 (1002...1004...1008...100000) |
ListBox+Edit1 Edit2 Delphi Есть Listbox, в котором отображается определенный столбец в базе: while NOT ADOQuery1.Recordset.EOF do begin ListBox1.Items.Add(ADOQuery1.Fields.Value); ADOQuery1.Next; Так же на форме имеются Edit1 и Edit.2. По клику, данные выводятся в Edit1 и Edit2 |
Delphi Как в записать математические формулы?
https://www.cyberforum.ru/ delphi-beginners/ thread1424251.html делаю тест, необходимо узнать как писать формулы , чтобы он их выводил |
Delphi Как узнать какая программа активна?
https://www.cyberforum.ru/ delphi-beginners/ thread1424247.html Приветствую. Как можно программно определить какое окно в текущий момент активно? А так же, можно ли определить тип окна? Например, мне нужно знать когда активен браузер (IE, FF, Chrome и т.п.) |
Матрица 4х4 Delphi Delphi! Найти сумму элементов 3 строки 2 столбца матрица 4х4, помогите написать код в СтрингГрид |
Delphi Вставить элемент К перед элементами массива, где присутствует число 1
https://www.cyberforum.ru/ delphi-beginners/ thread1424213.html Ребята помогите пожалуйста. Нашел исходник в более раннем посте, но у меня массив индексируется с нуля, но что то не очень корректно работает. procedure TForm2.Button5Click(Sender: TObject); var j,k,x:integer; B:array of integer; begin Edit4.Text:=''; i:=0; |
Delphi Текст в StringGrid по столбцам
https://www.cyberforum.ru/ delphi-beginners/ thread1424193.html Подскажите пожалуйста, в Edit введен текст– " АРБУЗ ЗЕЛЕН ТРАВА ДЫНЯ ", как выписать этот текст посимвольно(каждый символ в отдельную ячейку) в StringGrid по столбцам(как на картинке), просто выписать получается, а вот по столбцам нет. |
Delphi Как можно вставить математические формулы в Delphi Мне нужно с помощью какого-нибудь компонента или привязки к Word-у сделать так, чтобы можно было вводить математические формулы (дробь, корень, интеграл и т.п.). Если через Word, то как привязать и как вывести этот текст из Word на форме? Подскажите пожалуйста, как это сделать |
Delphi Правильное составление функции
https://www.cyberforum.ru/ delphi-beginners/ thread1424167.html Помогите разобраться с функцией) простые я более менее понял ) а вот с более сложными проблема, вот код , тут меняется только кол-во столбцов, строк и открываемый файл, как из него правильно сделать процедуру и пример ее вызова? у меня получается ее вызов той же длины что и функция procedure TForm1.Button10Click(Sender: TObject); var mm,cb: TStringList; i, j: integer; k2, k3, k4:... |
Delphi Переопределение кнопок мышки Нужно переназначить кнопки мышки (три кнопки: правая, средняя и левая). Например: нажимаем левую - срабатывает, скажем, средняя, среднюю - правая, правую - левая... Тут варианты. Делаю через хуки. Но столкнулся с проблемой. Зацикливание. Насколько понял, происходит так. Переназначаю кнопки: левая->средняя, средняя->левая. Нажимаю левую -> срабатывает обработчик левой кнопки ->... https://www.cyberforum.ru/ delphi-beginners/ thread1424048.html |
Delphi Как убрать сообщение об ошибке, полученное от стороннего приложения? Подскажите пожалуйста, как убрать сообщение об ошибке, полученное от стороннего приложения? |
Delphi Ошибка в коде Здравствуйте! Вот здесь procedure Tform1.formDeactivate(Sender: TObject); (строка 12) останавливается курсор и программа не запускается, где я сделал ошибку? unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ShellAPI; type https://www.cyberforum.ru/ delphi-beginners/ thread1423954.html |
843 / 738 / 342
Регистрация: 22.09.2012
Сообщений: 5,034
|
|
19.04.2015, 00:46 | 0 |
Нужна консультация по алгоритму (алгоритмам) авторешения "Сокобана" - Delphi - Ответ 749853119.04.2015, 00:46. Показов 760. Ответов 2
Метки (Все метки)
Ответ
Тебе нужен алгоритм для бота который будет расставлять ящики что ли?
Заставь бота распознать "поле" где ящики, а где места куда они должны встать (просканируй поле на один центральный пиксель (его цвет) ящика ) затем это поле отрисуй в своей программе в виде массива или таблицы. И хотя бы смотри что бы бот не делал так что четыре ящика оказываются все вместе, иначе ты потом ни один ящик не сдвинеш. Разработай алгоритм тех мест от куда твои ящики уже вобще не сдвинутся (углов), озадач бота неставить без необходимости туда ящик если на поле есть еще другие "непоставленные" ящики. Веди отсчет поставленных и непоставленых ящиков. Я бы на твоем месте пример с простого примера начинал бы как на рисунке. Тут легко определить что ящик один, место для ящика одно, бот может поставить яшик только если находится на клетке против места для ящика и самого ящика, но при условии что ему самому там место есть встать. Вот и пиши кучу условий (где можно, а где нельзя) так как расположение "фигур" на поле ты уже знаеш полностью, картинку я тебе дам. Вернуться к обсуждению: Нужна консультация по алгоритму (алгоритмам) авторешения "Сокобана" Delphi
0
|
19.04.2015, 00:46 | |
Готовые ответы и решения:
2
Нужна консультация с реализацией авторешения игры "Сокобан" Нужна литература по алгоритмам шифрования DES, 3DES Нужна консультация Нужна консультация Нужна консультация |
19.04.2015, 00:46 | |
19.04.2015, 00:46 | |
Помогаю со студенческими работами здесь
0
Нужна консультация нужна консультация Нужна консультация Нужна консультация нужна консультация |