Массив классов, ошибка EAccessViolation

@Skywarp · Регистрация: 21.02.2016

Суть такова. Есть класс, описывающий учебные дисциплины.

Delphi

type
  TSubject = class(TObject)
    public
    Name : string;
    ParentSub : TSubject;
    Ttest: string;
  end;

Есть массив, в котором будут храниться объекты этого класса:

Delphi

1
2
3

 var
  Form1: TForm1;
  DysAr : array of TSubject;

И процедура, которая должна добавлять в массив объекты:

Delphi

procedure DysArCreate(a:integer);
begin
DysAr[a]:=TSubject.Create();
DysAr[a].Name:='неважно....'+IntTostr(a);
DysAr[a].ParentSub:=DysAr[a-1];
DysAr[a].Ttest:= '..\test\1.txt';
end;

И, собственно, ее применение:

Delphi

procedure TForm1.FormShow(Sender: TObject);
var i:integer;
begin
for i := 0 to 5 do DysArCreate(i);
end;

При запуске программы вылетает ошибка EAccessViolaton такого типа:

Access violation at address 0040189B in module 'Project1.exe'. Write of address 00000004.

Добавление объекта в массив не через процедуру, а просто кодом тоже не срабатывает, та же ошибка на вот этом участке кода:

Delphi

1	DysAr[1]:=TSubject.Create();

При этом, если просто создавать объекты класса, не через массив - все отличненько работает. ~~Где справедливость?~~ Может кто знает, в чем проблема, и как с ней бороться?

@volvo · 28.05.2013, 11:44

SkyWarp, я надеюсь, SetLength для динамического массива присутствует? Или забыл?

@Skywarp · 28.05.2013, 12:11

UI, благодарю, именно в этом и была ошибка.

@volvo Супер-модератор 28364 / 18892 / 7439 Регистрация: 22.10.2011 Сообщений: 33,036 Записей в блоге: 6
	28.05.2013, 11:44	2
	SkyWarp, я надеюсь, SetLength для динамического массива присутствует? Или забыл? 1

@Skywarp 0 / 0 / 0 Регистрация: 21.02.2016 Сообщений: 2
	28.05.2013, 12:11	3
	UI, благодарю, именно в этом и была ошибка. 0

Опции темы