12 / 11 / 5
Регистрация: 30.11.2017
Сообщений: 75
1
Delphi 6-7

Ошибка Access Violation при попытке создать объект класса. В чем может быть проблема?

06.05.2019, 14:40. Показов 1327. Ответов 1
Метки нет (Все метки)

Код класса
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
43
44
45
46
47
48
49
50
51
52
53
unit Unit2;
 
interface
uses
  SysUtils;
type
  ABCMatrix = class
  private
    { Private declarations }
    ColumnCount:Integer;
    RowCount:Integer;
    Matrix:array of array of Char;
    FontSiZe:Integer;
  public
    constructor Create(n:Integer;m:Integer;FontS:integer);
    destructor Done();
    procedure RandomInit();
    //procedure DrawOnCanwas(x:Integer; y:Integer; Ob:TForm);
 
            { Public declarations }
end;
implementation
constructor ABCMatrix.Create(n:Integer;m:Integer;FontS:integer);
begin
  SetLength(Matrix,n+1,m+1);
  FontSiZe:=FontS;
  RowCount:=n;
  ColumnCount:=m;
end;
destructor ABCMatrix.Done();
begin
   //Matrix:=nil;
end;
procedure ABCMatrix.RandomInit();
var i,j:Integer;
begin
  Randomize;
  for i:=1 to RowCount do
    for j:=1 to ColumnCount do
     begin
        Matrix[i,j]:= Chr(Random(32)+192);
     end;
end;
{procedure ABCMatrix.DrawOnCanwas(x:Integer; y:Integer; Ob:TForm);
var i,j:Integer;
begin
  for i:=1 to RowCount do
    for j:=1 to ColumnCount do
    begin
      //Ob.Canvas.TextOut(x+(j-1)*10,y+(i-1)*10,Matrix[i,j]);
    end;
end; }
end.
Ошибка происходит когда пытаюсь просто создать обект то есть в самом конструкторе.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  Unit2 in 'Unit2.pas';
 var
   M:ABCMatrix;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  M.Create(5,5,10);
end.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.05.2019, 14:40
Ответы с готовыми решениями:

Проблема ( 503 ошибка ) . При чем может быть здесь PHP?
Привет, друзья ! Буквально 3 месяца назад начали сталкиваться с такой проблемой. На сайте не...

При выполнении вычисления появляется ошибка. В чем может быть проблема
Здравствуйте, при выполнении данного вычисления: d=0.0025; I=35; tv=30; r=1.2*10^-6;...

Ошибка 'access violation' при попытке свернуть форму
я нашел на этом форуме код который открывает форму авторизации перед тем как запустить всю...

Access Violation при попытке удалить "существующий объект"
Есть такой вот код. for (int i = 0; i < Form1->ComponentCount; i++) { if...

1
4856 / 4002 / 1005
Регистрация: 29.08.2013
Сообщений: 25,565
Записей в блоге: 3
06.05.2019, 15:04 2
Лучший ответ Сообщение было отмечено falcons83 как решение

Решение

а разве не так
Delphi
1
M:=ABCMatrix.Create();
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.05.2019, 15:04
Помогаю со студенческими работами здесь

Ошибка при попытке использовать объект класса в определении другого класса
Муторное название получилось :scratch: Прошу помощи.... есть созданный класс работы со строкой:...

В чем может быть ошибка? Проблема с выводом очереди
Здравствуйте, нужно создать класс очереди и класс элементов. Вроде всё нормально, но когда...

При попытке присвоить полям новой структуры значений типа AnsiString появляется ошибка Access Violation
При попытке присвоить полям новой структуры значений типа AnsiString появляется ошибка. Как я...

При попытке создать объект obj=Server.CreateObject('Name.ClassName') Возникает ошибка, 'Объект не поддерживает это свойство или метод.'
При попытке создать объект obj=Server.CreateObject('Name.ClassName') Возникает ошибка, 'Объект не...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru