| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Массив из элекментов типа MyClass (так сказать) [D6, XP]

azamatufa ©   (2005-09-19 13:06:00) 

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

определил класс:

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;


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

спасибо!

---

Anatoly Podgoretsky   (2005-09-20 12:20:00) [1]

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

---

Quattro   (2005-09-20 11:31:00) [2]

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

---

icWasya   (2005-09-19 19:17:00) [3]

for i:= 0to 9do begin

или

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

---

Плохиш   (2005-09-19 13:23:00) [4]

SetLenght

---

Digitman   (2005-09-19 13:22:00) [5]

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;

---

Наверх