Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 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
2-1127066518
x-goody
2005-09-18 22:01
2005.10.16
Как связать объект с .exe файлом?


3-1125819377
Hata
2005-09-04 11:36
2005.10.16
Как программно очистить всю таблицу от записей?


6-1120095885
vidiv
2005-06-30 05:44
2005.10.16
освобождение памяти после gethostbyname


2-1127201435
Tab
2005-09-20 11:30
2005.10.16
"правильное" выполнение запросов


3-1125469474
Nickolay
2005-08-31 10:24
2005.10.16
Запись/чтение массива в/из поле базы данных xml





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский