Исправьте программу пожалуйсто. Неправильно рисует форму - Delphi - Ответ 7196320

@~~milz~~ · 06.02.2015, 23:30

1 Код оформите как надо.
2 Есть готовая реализация. То есть процедура этой игры. Уровни можно создавать самому в текстовом файле.
3 Если хотите написать сами, помогу. Многие вещи можно делать проще. И потом массивы должен быть динамическим. Поскольку каждый раз игровое поле меняется.
И лучше всего чтобы был исходник. проверять удобнее на компе в собранном проекте чем в оторванном от проекта и формы тексте.

Добавлено через 7 минут
О боже, загрузка уровня это тихий ужас.
Вообще для загрузки даже цикл не нужен.
Отрисовка игрового поля делается намного проще.

Добавлено через 43 минуты
Ну вот посмотрите что собственно должно быть.
Откройте новый проект. На форму бросьте кнопку и листбокс.
В кнопку впишите вот этот код.

Delphi

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  i:Integer;
  ar: array of integer;
  st: TFileStream;
begin
SetLength(ar,5);
 
ar[0]:=12345;
ar[1]:=2222222;
ar[2]:=55555;
ar[3]:=777777;
ar[4]:=88888;
 
st:=TFileStream.Create( '1.txt', fmCreate);
st.Position:=0;
st.Write(Ar,20);
st.Free;
st:=TFileStream.Create( '1.txt', fmOpenRead );
st.Position:=0;
st.Read(Ar,20);
st.Free;
for i:=0 to 4 do Listbox1.Items.Add(IntToStr(ar[i]));
end;

Здесь происходит следующее.
Создаётся динамический массив
В него вносятся данные.
Массив сохраняется в файл и файл закрывается.
Файл открывается, данные читаются в массив. и отображаются в листбоксе.
Собственно приблизительно так должно должно быть и у вас.

Добавлено через 5 минут
Ну скажем простейший вариант уровня.
вы пишите простейший редактор уровня, который сохраняет уровень в числовой файл
В начале файла заголовок, потом данные
В заголовке указывается уровень сложности, хотя не обязательно. Главное это размеры игрового поля.
По этим данным будет строится массив, в который будут считываться данные.

Добавлено через 3 минуты
Вот приблизительно как это выглядит.
11111111
10000041
10003001
10000001
10020001
10000001
10003041
11111111

0 - пол
1 - стена
2 - погрузчик
3 - груз
4 - место для груза

Добавлено через 3 минуты
Вот эти числа напрямую считываются в двухмерный динамический массив.
И рисуется исходная игровая фаза.
Почти одной строкой в циклах.
То есть мы читаем число, и по этому числу лепим тайл из менеджера картинок в нужное место.
Когда цикла закончится, игровое поле выводится на экран

Добавлено через 3 минуты
Что такое ход?
вы задаёте направление. Положение грузчика известно. Проверяется возможность хода. Если ход возможен, то на место где стоит грузчик записывается ноль туда куда он ходит записывается его код.
В массив.
И по этим данным рисуется новая игровая фаза аналогично со исходной, и по окончании всё выводится на экран

Добавлено через 2 минуты
То есть игра идёт в массиве. А на экране только отображается. И с экрана получаем номер клетки если игра ведётся мышкой.
Если вам больше нравятся клавиши, то тогда нажатие перерисовывает массив, и по этому массиву рисуется очередная фаза игры.

Добавлено через 4 минуты
По поводу рисования. Их менеджера картинок можно выводить спрайт в нескольких вариантах положения координат.
Нужно рассчитать виртуальную сетку и знать её координаты.
Координаты можно вычислять каждый раз, а можно составить вначале игры таблицу и брать координаты из неё.

Вернуться к обсуждению:
Исправьте программу пожалуйсто. Неправильно рисует форму Delphi

Следующий ответ

Другие темы раздела
Delphi ValueListEditor c несколькими колонками и PickList https://www.cyberforum.ru/ delphi-beginners/ thread1369789.html Сделал VLE с тремя колонками и назначил StringList в ItemProps. Проблема в том, что он открывается для обеих колонок Value и выбор строки меняет значения также в обеих колонках. Можно ли назначить раскрывающийся список только для одной колонки? (как для разных рядов я понял) Вот мой код. procedure TForm5.FormCreate(Sender: TObject); begin ValueListEditor1.ColCount:=3; ...	Delphi Открыть ссылку в браузере Как открыть ссылку, нажимая на кнопку, которая написала в edit? ShellExecute(handle, nil,PChar(Edit1.Text), nil, nil, SW_SHOW); Так не работает
Delphi Как узнать формат даты в Windows? https://www.cyberforum.ru/ delphi-beginners/ thread1369777.html Подскажите как программно узнать формат системной даты в Windows. В 7-ке dd.mm.yyyy, а в 8-ке dd-mmm-yy	Delphi Не выводит результат задачи https://www.cyberforum.ru/ delphi-beginners/ thread1369705.html Здравствуйте, имеется такое вот условие задачи: Даны целое n>2 и вещественные числа a1, b1,...an, bn(a1<b1). Рассматривая пары ai и bi ак левые и правые концы отрезков на одной и той же прямой, определить концы отрезка, являющегося пересечением всех этих отрезков. Если такого отрезка нет, то сообщить об этом. Все это я выполняю на форме. Например, если n = 3 и a1 = 0, b1 = 10, a2 = 1, b2 =...
Рисунки машинки и бокала с трубочкой Delphi Очень нужны готовые рисунки машинки и бокала с трубочкой(трубочка внутри бокала). Или очень понятное объяснение как нарисовать всё это в делфи. С рисунками ни разу не сталкивалась, инфу в гугле читала - не по - нят - но!	Delphi Access violation новичку нужно разобраться, пожалуйста В общем, задумка была такой что по клику на листбокс будет появляться новая форма, но выдаёт ошибку. Проект прикреплён ниже. Тыкните меня носом и объясните поподробнее пожалуйста. Буду очень благодарен) https://www.cyberforum.ru/ delphi-beginners/ thread1369648.html
Delphi Нужен элемент из двух колонок Привет всем. Мне нужен на форме такой элемент из двух колонок, где с одной стороны будет список имён, а напротив каждого имени что-то вроде раскрывающегося списка с со строками (путями к файлам). Есть ли что-то готовое для таких целей или это нужно ваять самому? https://www.cyberforum.ru/ delphi-beginners/ thread1369622.html	Delphi Создать button кнопку, которая при нажатии меняет название Изменить программный код кнопки button таким образом, что бы при нажатии менялись надписи "привет" и "пока" для этого применить оператор if проверять какой текст выведен на кнопке(значение свойства Caption) . Напишите этот программный код, там до меня дойдёт почему у меня не получалось)
Delphi Построение графика по точкам вообщем необходимо строить график по точкам из таблицы stringgrid у меня строится он вот так: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, math, ExtCtrls; https://www.cyberforum.ru/ delphi-beginners/ thread1369504.html	*Delphi Написать программу для вычисления выражения S=πRR при изменении R в интервале от 1до 10 с шагом 1* https://www.cyberforum.ru/ delphi-beginners/ thread1369459.html var R,S:integer; const Pi=3.141593 begin S:=0; for R:=1 to 10 do; S:=S+ PiRR; label1.Caption:=IntToStr(S); end; end.
Создать шаблон для ввода процедуры с комментарием Delphi Подскажите и поясните!!!! Создайте шаблон для ввода процедуры с комментарием. Комментарий расположите перед программным кодом. В комментарий введите: Автор и укажите свою фамилию и имя После комментария введите Procedure(); begin end; После вставки шаблона в текст программы курсор должен устанавливаться перед круглыми скобками для того чтобы можно было ввести имя подпрограммы.	Delphi Access violation в цикле В чем может быть проблема, выскакивает access violation на проверке if access violation at address 00455567 in module Когда проверяю просто вот так строку без цикла то работает for i:=0 to test do begin tester:=form1.Memo1.Lines; If tester <> ' ' then https://www.cyberforum.ru/ delphi-beginners/ thread1369358.html

	06.02.2015, 23:30