В чём ошибка?

hsMapk · #1 05.05.2014, 00:50

При запуске выскакивает acces violation at adress .... at module

Вот код:

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Mas:array[0..19,0..19,0..1] of Integer;
  zemlya:array[0..4] of TBitmap;
  obekti:array[1..4] of TBitmap;
  i,j,k : Integer;
  Buf : TBitmap;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize;
  for i:=0 to 19 do
    for j:=0 to 19 do
      for k:=0 to 1 do
        Mas[i,j,k]:=random(5);

  for i:=0 to 4 do
  begin
    zemlya[i]:=TBitmap.Create;
    zemlya[i].LoadFromFile('E:\MMM\image\zemlya\'+inttostr(i)+'.bmp');
  end;

  for i:=1 to 4 do
  begin
    obekti[i]:=TBitmap.Create;
    obekti[i].Transparent:=true;
    obekti[i].LoadFromFile('E:\MMM\image\obekti\'+inttostr(i)+'.bmp');
  end;
  for i:=0 to 4 do
  begin
    zemlya[i]:=TBitmap.Create;
    zemlya[i].Width:=32;
    zemlya[i].Height:=32;
    zemlya[i].LoadFromFile('E:\MMM\image\zemlya\'+inttostr(i)+'.bmp');
  end;

  for i:=1 to 4 do
  begin
    obekti[i]:=TBitmap.Create;
    obekti[i].Transparent:=true;
    obekti[i].Width:=32;
    obekti[i].Height:=32;
    obekti[i].LoadFromFile('E:\MMM\image\obekti\'+inttostr(i)+'.bmp');
  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
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;

end.

Страдалецъ · #2 05.05.2014, 01:05

У вас значение Mas генерится в диапазоне от 0 до 4, а границы массива obekti в диапазоне от 1 до 4. Вот и получается обращение к несуществующему элементу массива.

Alegun · #3 05.05.2014, 01:08

Mas[i,j,k]:=random(5); здесь

hsMapk · #4 05.05.2014, 01:10

исправил все 1 на 0.но та же ошибка!помогите пожалусто

Код:

unit Unit1;
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Buttons;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    SpeedButton1: TSpeedButton;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Mas:array[0..19,0..19,0..1] of Integer;
  zemlya:array[0..4] of TBitmap;
  obekti:array[0..4] of TBitmap;
  i,j,k : Integer;
  Buf : TBitmap;

implementation

{$R *.dfm}


procedure TForm1.Timer1Timer(Sender: TObject);
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;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
Randomize;
  for i:=0 to 19 do
    for j:=0 to 19 do
      for k:=0 to 1 do
        Mas[i,j,k]:=random(5);

  for i:=0 to 4 do
  begin
    zemlya[i]:=TBitmap.Create;
    zemlya[i].LoadFromFile('E:\MMM\image\zemlya\'+inttostr(i)+'.bmp');
  end;

  for i:=0 to 4 do
  begin
    obekti[i]:=TBitmap.Create;
    obekti[i].Transparent:=true;
    obekti[i].LoadFromFile('E:\MMM\image\obekti\'+inttostr(i)+'.bmp');
  end;
  for i:=0 to 4 do
  begin
    zemlya[i]:=TBitmap.Create;
    zemlya[i].Width:=32;
    zemlya[i].Height:=32;
    zemlya[i].LoadFromFile('E:\MMM\image\zemlya\'+inttostr(i)+'.bmp');
  end;

  for i:=0 to 4 do
  begin
    obekti[i]:=TBitmap.Create;
    obekti[i].Transparent:=true;
    obekti[i].Width:=32;
    obekti[i].Height:=32;
    obekti[i].LoadFromFile('E:\MMM\image\obekti\'+inttostr(i)+'.bmp');
  end;
end;

end.

hsMapk · #5 05.05.2014, 01:11

всмысле?можно поподробнее?

Страдалецъ · #6 05.05.2014, 01:17

А таймер вы когда запускаете? Прямо при старте программы?

Alegun · #7 05.05.2014, 01:17

Вы два раза массив obekti создаёте, уберите повторное TBitmap.Create

hsMapk · #8 05.05.2014, 01:24

исправил таймер(запуск по нажатию на клавишу) и убрал повторные заполнения,но та же ошибка

Код:

unit Unit1;
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Buttons;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    SpeedButton1: TSpeedButton;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Mas:array[0..19,0..19,0..1] of Integer;
  zemlya:array[0..4] of TBitmap;
  obekti:array[0..4] of TBitmap;
  i,j,k : Integer;
  Buf : TBitmap;

implementation

{$R *.dfm}



procedure TForm1.Timer1Timer(Sender: TObject);
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;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  Timer1.Enabled:=True;
  Randomize;
  for i:=0 to 19 do
    for j:=0 to 19 do
      for k:=0 to 1 do
        Mas[i,j,k]:=random(5);

  for i:=0 to 4 do
  begin
    zemlya[i]:=TBitmap.Create;
    zemlya[i].Width:=32;
    zemlya[i].Height:=32;
    zemlya[i].LoadFromFile('E:\MMM\image\zemlya\'+inttostr(i)+'.bmp');
  end;

  for i:=0 to 4 do
  begin
    obekti[i]:=TBitmap.Create;
    obekti[i].Width:=32;
    obekti[i].Height:=32;
    obekti[i].Transparent:=true;
    obekti[i].LoadFromFile('E:\MMM\image\obekti\'+inttostr(i)+'.bmp');
  end;

end;

end.

Alegun · #9 05.05.2014, 01:31

Заполнение вероятно должно быть таким

Код:

...
for i := 0 to 4 do
 begin
  zemlya[i]:=TBitmap.Create;
  zemlya[i].Width:=32;
  zemlya[i].Height:=32;
  zemlya[i].LoadFromFile('E:\MMM\image\zemlya\'+inttostr(i)+'.bmp');

  obekti[i]:=TBitmap.Create;
  obekti[i].Transparent:=true;
  obekti[i].Width:=32;
  obekti[i].Height:=32;
  obekti[i].LoadFromFile('E:\MMM\image\obekti\'+inttostr(i)+'.bmp');
 end;

hsMapk · #10 05.05.2014, 01:33

сделал,но всё равно ошибка

hsMapk · #11 05.05.2014, 01:34

всё равно ошибка.чтож такое

Alegun · #12 05.05.2014, 01:35

Цитата:

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

сделал,но всё равно ошибка

Таже самая?

hsMapk · #13 05.05.2014, 01:36

да.насчёт адреса

Alegun · #14 05.05.2014, 01:39

Сейчас попробую проверить весь юнит целиком, нужно немного времени для сборки

hsMapk · #15 05.05.2014, 01:42

буду ждать

Опции темы	Поиск в этой теме
Версия для печати Отправить на Email	Поиск в этой теме: Расширенный поиск
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

	Сайт	Форум	FAQ	RSS лента	Прочее
	Новости Исходники Компоненты Статьи Добавить исходник Поиск	Правила Поиск Сообщения за сегодня Пользователи Кто на форуме?	Delphi FAQ - 5000 статей DRKB - 4500 статей (ZIP-архив) Справочник функций и процедур Delphi Delphi Programming Guide Indy in Depth. Глубины Indy	Новости сайта Новости форума	Ссылки и Баннеры Donate О сайте Реклама Контакты

Этот пользователь сказал Спасибо Alegun за это полезное сообщение:
hsMapk (05.05.2014)