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

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

Массив классов TObject ????

ROOT ©   (2007-05-10 13:31:00) 

Господа подскажите сколько можно создавать экземпляров класса
type
 TClassA=class(TObject)
 index     :integer;
 locked    :boolean;
............................................

клас создается в цикле

for I := 0 to ClassCount-1 do
 begin
   ClassA[i]:=TClassA.Create;
   ClassA[i].index:=i;

получается что можно создать только 3000 экзмпляров чуть болше почему нез\льзя создать больше???

---

Anatoly Podgoretsky   (2007-05-10 16:57:00) [1]

> ROOT  (10.05.2007 13:48:03)  [3]

Тогда тебе зверски повезло

---

{RASkov}   (2007-05-10 14:14:00) [2]

> [0] ROOT ©   (10.05.07 13:31)
> Господа подскажите сколько можно создавать экземпляров класса

type
 TMyCl = class
   i: Integer;
   F: Boolean;
  end;
var Arr: array of TMyCl;
procedure TForm1.Button2Click(Sender: TObject);
var N: Integer;
begin
 SetLength(Arr, 50000);
 for N:= 0 to Length(Arr)-1 do begin
  Arr[N]:=TMyCl.Create;
  Arr[N].i:=N;
  Arr[N].F:=Odd(N);
 end;
 ShowMessage('Создано '+IntToStr(Length(Arr))+' TMyCl''сов');
 for N:= 0 to Length(Arr)-1 do Arr[N].Free;
 ShowMessage('Убито '+IntToStr(Length(Arr))+' TMyCl''сов');
end;

---

{RASkov}   (2007-05-10 14:03:00) [3]

> [3] ROOT ©   (10.05.07 13:48)
> ниже прячится
> buf: array[1..2048] of Char

исчерпывающий ответ..... :))
Это я не про <получается что можно создать только 3000>
твой buf и "код" в [0] никак не свазан....

---

Kolan   (2007-05-10 14:02:00) [4]

> клас создается в цикле

Да? А ты тогда что делаешь когда программируешь?

---

ROOT   (2007-05-10 13:48:00) [5]

ниже прячится
buf: array[1..2048] of Char

---

Dmitrij_K   (2007-05-10 13:36:00) [6]

см. в сторону TList и TObjectList или TStringList

---

MBo   (2007-05-10 13:32:00) [7]

что спрятано под этим: ............................................ ?

---

Наверх