Как обратится к элементу динамического массива?

← →
CrowD © (2002-10-22 15:30) [0]

Привет, All!

есть код
~~~~
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls,IniFiles;

type Class1 = class
public
x : integer;
end;

type Class2 = class
public
c1_ : array of Class1;
end;

TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
c2 : Class2;
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
c2 := Class2.Create;
SetLength(c2.c1_,3);
c2.c1_[1].x:= 3;
end;

end.
~~~~~
при обращении исполнении строки
c2.c1_[1].x:= 3;
врывает и выдаёт дамп памяти, типа не может обратится, объясните как коректно занести туда значение?

← →
MBo © (2002-10-22 15:34) [1]

А кто будет экземпляры class1 создавать?

← →
Vint © (2002-10-22 15:46) [2]

если c2.c1_[1].x:= 3;
то вроде предел должен устанавливаться SetLength(c2.c1_, 4);

← →
Skier © (2002-10-22 15:47) [3]

>Vint
Attention required !

???!!!

← →
Андрей Прокофьев © (2002-10-22 15:50) [4]

2 Vint © (22.10.02 15:46)
Сильно! :))

← →
CrowD © (2002-10-22 16:39) [5]

MBo>

так в том то и дело что Class1 это динамический массив, как его если не с помощью SetLength создавать, объясните пожалуста

← →
Skier © (2002-10-22 16:43) [6]

>CrowD

var
AClass1 : Class1;
begin
SetLength(c2.c1_,3);
AClass1 := Class1.Create;
try
c1_[1] := AClass1;
c2.c1_[1].x:= 3;
finally
AClass1.Free;
end; //try
end;

← →
Skier © (2002-10-22 16:46) [7]

>CrowD
Но,IMHO, лучше через - TList или TObjectList

Стоит ли?
>finally
> AClass1.Free;

>MBo
Это ты про :

- использвание try-блока ?
- использование переменной AClass ?
- освобождение объекта ?

нет бы объяснить человеку что в Delphi class и record, в отличие от C++, не одно и тоже, и статического объявления объектов тоже нет.
(на всякий случай - в C++ - struct это класс, но по умолчанию public)

Как обратится к элементу динамического массива? Найти похожие ветки