Физика в 2D играх

[Гром]

Разложить код по полочкам руки не доходят, да и не за чем это пока кода мало.

Советую сделать это пока не поздно. Иначе потом придется почти заново все переписывать. Лучше по максимуму смотреть в будущее и готовиться к расширению кода в тот момент, когда это не влечет значительных расходов. Модульность, модульность и еще раз модульность! Сваливать все в одну кучу - смерти подобно.

[Андрей 93]

Сообщение от Вадим Буренков

Сделай отдельную демку с переходом где видна проблема и выложи сюда ее код.

Сделал демку, а там все как на зло () работает. Не могу найти свою ошибку.
Сегодня начал заниматься разгребанием кода по модулям, все перекапываю, возможно найду ошибку, когда буду создавать модуль отрисовки. Как может быть связана текстура со спрайтом - ума не приложу.

[Вадим Буренков]

Сделал демку, а там все как на зло () работает. Не могу найти свою ошибку.

А я ведь говорил .

[Андрей 93]

Есть запись TLevel с указателем PLevel, также есть переменная level:PLevel. Создаю уровень (new(level)), работаю с ним, затем удаляю (dispose(level)). После второго создания значения параметров level'а остаются прежними. - так должно быть? То есть после повторного создания уровня значение level.statics уже не равняется нулю, а остаётся как в первом уровне. Приходится обнулять

[Вадим Буренков]

второго создания значения параметров level'а остаются прежними.

Вообще они могут на мусор в памяти ссылаться, но я точно не помню. Посмотри как в chipmunk делается.
Есть еще функция ZeroMemory, которая заполняет указанный фрагмент памяти нулями.

[Beermonza]

ZeroMemory - довольно опасная штука, если длина неверно вычислена, можно налететь на исключение или убить нужный участок памяти.
Я применяю GetMem и FreeMem.

[Андрей 93]

В ChipMunk тоже dispose. Я лучше вручную обнулю.

[Андрей 93]

При использовании GetMem и FreeMem получается та же картина, то есть даже после вызова FreeMem переменная оставляет своё значение. Почему так происходит, ведь память очищается?

[Вадим Буренков]

Она не должна оставлять свое значение, возможно ты что то делаешь не правильно. Специально написал демку показывающую работу с памятью:
Есть тип данных

type
PData=^TData;
TData=record
number:integer;
number2:integer; 
end;

Он в памяти и содержит два числа. На форме 3 кнопки, первая инициализирует данные, вторая удаляет а третья выводит данные на лейблы.

function Data_Create(n:integer):PData;
var
d:PData;     //хранит указатель на данные во время создания
begin
new(d);      //выделение памяти
d.number:=n; //установка данных
result:=d;   //возврат указателя
end;

procedure Data_Free(var d:PData); //обрати внимание что передается var переменная
begin
dispose(d);  //очищение памяти
d:=nil;      //обнуление указателя
end;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if TestData<>nil then begin showmessage('Данные уже созданы.'); exit; end;//проверка попытки пересоздания
TestData:=Data_Create(999);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if TestData=nil then begin showmessage('Данные уже удалены.'); exit; end;//проверка попытки удаления уже удаленного
Data_Free(TestData);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
TestData:=Data_Create(999);
TestData.number2:=12345;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
if TestData=nil then begin showmessage('Данные удалены.'); exit; end;//проверка чтения данных с несуществующей переменной
Form1.Label1.Caption:='number='+inttostr(TestData.number);
Form1.Label2.Caption:='number2='+inttostr(TestData.number2);
end;

В типе переменная number устанавливается при каждом инициализировании, а number2 только при старте программы. Если несколько раз пересохдать переменную типа то можно увидеть что при пересоздани данных number2 каждый раз имеет новое значение (не обязательно, у меня поочередно показывались 2-3 значения). Это говорит о том что при выделении области памяти изначально эта область ссылается на мусор и все переменные надо устанавливать вручную (как это делается с number) или обнулять.

[Андрей 93]

Вчера тоже демку создал

d:=nil;

но так я не делал.