Форум: "Начинающим";
Текущий архив: 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.033 c