Форум: "Начинающим";
Текущий архив: 2005.10.16;
Скачать: [xml.tar.bz2];

Вниз

Массив из элекментов типа 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

---

← →
Quattro ©   (2005-09-20 11:31) [4]

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

---

← →
Anatoly Podgoretsky ©   (2005-09-20 12:20) [5]

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

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2005.10.16;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.049 c