[Alegun]

У меня ошибок нет - рисунки в массив грузятся норм., ошибка из-за запуска таймера, а в нём такое

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
var
 i,j,k : Integer;
begin
  for i:=0 to 19 do
    for j:=0 to 19 do
      Buf.Canvas.Draw(i*32,j*32, zemlya[ Mas[I,j,0] ] );
  for i:=0 to 19 do
    for j:=0 to 19 do
      Buf.Canvas.Draw(i*32,j*32, obekti[ Mas[I,j,1] ] );
  Form1.Canvas.Draw(0,0,Buf);
end;

Buf не создаётся, не хватает Buf := TBitmap.Create при запуске и Buf.Free; при выходе

[hsMapk]

ошибки нет.но на форме ничего не происходит

[poli-smen]

Сообщение от hsMapk

ошибки нет.но на форме ничего не происходит

А после создания объекта Buf ты ему размеры указываешь?:

Код:

Buf := TBitmap.Create;
Buf.Width := 32 * 20;
Buf.Height := 32 * 20;

[hsMapk]

да указываю

[icWasya]

А где Buf := TBitmap.Create; ?

[hsMapk]

то есть вот так записать?

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Buf := TBitmap.Create;
  Buf.Width := 32 * 32;
  Buf.Height := 32 * 32;
  for i:=0 to 19 do
    for j:=0 to 19 do
      Buf.Canvas.Draw(i*32,j*32, zemlya[ Mas[I,j,0] ] );
  for i:=0 to 19 do
    for j:=0 to 19 do
      Buf.Canvas.Draw(i*32,j*32, obekti[ Mas[I,j,1] ] );
  Form1.Canvas.Draw(0,0,Buf);
end;

[hsMapk]

в таймере,и на кнопке тоже был.так где мне его поставить?

[hsMapk]

всё всем спасибо)нужно просто в таймере было так написать

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Buf := TBitmap.Create;
  Buf.Width := 32 * 32;
  Buf.Height := 32 * 32;
  for i:=0 to 19 do
    for j:=0 to 19 do
      Buf.Canvas.Draw(i*32,j*32, zemlya[ Mas[I,j,0] ] );
  for i:=0 to 19 do
    for j:=0 to 19 do
      Buf.Canvas.Draw(i*32,j*32, obekti[ Mas[I,j,1] ] );
  Form1.Canvas.Draw(0,0,Buf);
end;

тема закрыта

[poli-smen]

Сообщение от hsMapk

всё всем спасибо)нужно просто в таймере было так написать

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Buf := TBitmap.Create;
.....

Только освобождать не забывай, а то твоё приложение со временем съест всю память и положит винду:

Код:

Buf.Free;

[hsMapk]

Buf.Free; а куда именно это вставить?в конце таймера?

[poli-smen]

Сообщение от hsMapk

Buf.Free; а куда именно это вставить?в конце таймера?

Да. Или вообще лучше один раз его создавать в FormCreate и один раз удалять в FormDestroy - так будет производительнее.
Да и прорисовку лучше делать не по таймеру, а по нужде - через FormPaint или на компоненте TPaintBox через его событие OnPaint.
И TImage в данном случае тоже вполне себе подойдёт, но на нём лучше не завязываться.