Текущий архив: 2007.05.27;
Скачать: CL | DM;

Вниз

Массив классов TObject ????   Найти похожие ветки 

← →
ROOT ©   (2007-05-10 13:31) [0]

Господа подскажите сколько можно создавать экземпляров класса
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 экзмпляров чуть болше почему нез\льзя создать больше???

---

← →
MBo ©   (2007-05-10 13:32) [1]

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

---

← →
Dmitrij_K   (2007-05-10 13:36) [2]

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

---

← →
ROOT ©   (2007-05-10 13:48) [3]

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

---

← →
Kolan ©   (2007-05-10 14:02) [4]

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

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

---

← →
{RASkov} ©   (2007-05-10 14:03) [5]

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

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

---

← →
{RASkov} ©   (2007-05-10 14:14) [6]

> [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;

---

← →
Anatoly Podgoretsky ©   (2007-05-10 16:57) [7]

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

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

---

Страницы: 1 вся ветка

Текущий архив: 2007.05.27;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.03 c