Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
TigerMax
0 / 0 / 0
Регистрация: 01.03.2012
Сообщений: 66
1

Access violation at

24.02.2013, 18:31. Просмотров 442. Ответов 3
Метки нет (Все метки)

Получаю ошибку
Access violation at address 00432F84

на отрезке кода
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
procedure TForm4.FormCreate(Sender: TObject);
var
  i,j:integer;
begin
  for i:=1 to 20 do
  for j:=1 to 20 do
  begin
  Field[i,j]:=TImage.Create(form4);
  field[i,j].Parent:=Form4.Panel2;
  field[i,j].Canvas.Brush.Color:=clRed;
  field[i,j].Canvas.Pen.Color:=clRed;
  Field[i,j].Top :=-25+25*i;
  Field[i,j].Left :=-25+25*j;
  end;
 
  for i:=1 to 100 do
  for j:=1 to 100 do
  begin
  basement[i,j]:=Char(random(9));
  changefield(i,j,basement[i,j]);
  end;
end;
 
procedure changefield(j,k:integer;letter:char); 
begin
Form4.field[j,k].Canvas.Refresh; //Вот отсюда идут ошибки, пока не удалю код до...
Form4.field[j,k].Canvas.Brush.color:=clWhite;
Form4.field[j,k].Canvas.Font.Size:=15;
Form4.field[j,k].Canvas.TextOut(7,1,letter); //..сюда
drawframe(j,k);
end;
 
procedure drawframe(a,b:integer);
BEGIN
Form4.field[a,b].Canvas.Pen.Color:=clBlack;
Form4.Field[a,b].Canvas.Pen.Width:=3;
Form4.Field[a,b].Canvas.MoveTo(0,0);
Form4.Field[a,b].Canvas.LineTo(25,0);
Form4.Field[a,b].Canvas.LineTo(25,25);
Form4.Field[a,b].Canvas.LineTo(0,25);
Form4.Field[a,b].Canvas.LineTo(0,0);
end;
Помогите, пожалуйста!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.02.2013, 18:31
Ответы с готовыми решениями:

Access violation
Подскажите почему вылетает ошибка var sg : TStringList; a : mas; f : Double; i :...

Access violation
Хочу сделать программу для определения ВСЕХ комбинаций какого-то кол-ва символов. Например, вводят...

Access Violation
Простенькая программа(Жизнь Конвея). Выдаёт ошибку(см. название темы). Вот код: unit Unit1; ...

Access violation
Доброго времени суток. При запуске Form2 вылетает ошибка "Access violation at address 0046A558"....

Access Violation
Помогите найти, в чем проблема? TWeb = class public Width: integer; Delta:...

3
mss
2633 / 2258 / 275
Регистрация: 24.12.2010
Сообщений: 13,725
24.02.2013, 18:35 2
Form4 = nil
0
cotseec
Пишу на Delphi...иногда
1408 / 1267 / 285
Регистрация: 03.12.2012
Сообщений: 3,914
Записей в блоге: 5
Завершенные тесты: 3
24.02.2013, 19:58 3
массив Field[i,j] заполняется от 1 до 20 (размерность такая же?), а в процедуре индекс меняется от 1 до 100 - возможно выход за пределы массива
0
TigerMax
0 / 0 / 0
Регистрация: 01.03.2012
Сообщений: 66
24.02.2013, 20:36  [ТС] 4
ТОЧНО! Спасибо!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.02.2013, 20:36

Access violation??
Всех с Новым Годом! Такая задача: у меня есть текстовый файл, в нем я расставил определенные знаки...

Access violation
Не могу понять почему выскакивает ошибка во время работы программы.

Access violation
при повторном нажатии на кнопку вылетает ошибка SetLength(B,OperationCount); ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru