Массив из элекментов типа MyClass (так сказать)

← →
azamatufa © (2005-09-19 13:06) [0]

Добрый день!
Пожалуйста, подскажите как мне сделать следущее:

определил класс:
type TMyClass = class num : integer; str : string; b : boolean; end;

теперь хочу создать массив из элементов класса MyClass

procedure MyProc; var i:integer; arr : array of TMyClass; for i:=1 to 10 do begin arr[i].Create; arr[i].str := "some string" + IntToStr(i); end;

В общем где то я что то неопонеимаю...

спасибо!

← →
Digitman © (2005-09-19 13:22) [1]

var i:integer;
arr : array of TMyClass;
..
SetLength(arr, 10);
for i:=1 to 10 do begin
arr[i] := TMyClass.Create;
arr[i].str := "some string" + IntToStr(i);
end;

← →
Плохиш © (2005-09-19 13:23) [2]

SetLenght

← →
icWasya © (2005-09-19 19:17) [3]

for i:=0 to 9 do begin

или

for i:=low(arr) to high(arr) do begin

не проще ли вместо класса структуру определить ?

arr : array[1..10] of TMyClass;

Массив из элекментов типа MyClass (так сказать) Найти похожие ветки