Главная страница
    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.043 c
3-1125769275
HITMAN
2005-09-03 21:41
2005.10.16
Подскажите как создать файл.BD


14-1127082983
Германн
2005-09-19 02:36
2005.10.16
Upgrade - Кто виноват?


1-1127395108
keal
2005-09-22 17:18
2005.10.16
Исходники ядра браузера


1-1127723187
Andsin
2005-09-26 12:26
2005.10.16
Сравнение двух величин TNotifyEvent


14-1127219038
Prohodil Mimo
2005-09-20 16:23
2005.10.16
Пишем программу вместе.





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский