Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.033 c
2-1178731051
Strate
2007-05-09 21:17
2007.05.27
Динамичное создение контролов


3-1173172482
VadimSpb
2007-03-06 12:14
2007.05.27
Скорость поиска


2-1178260623
Itonix
2007-05-04 10:37
2007.05.27
Access Violation при работе с динамически созданными полями


11-1142836015
BaryVetaL
2006-03-20 09:26
2007.05.27
Инверсный текст в компоненте...


6-1163786508
Masterok
2006-11-17 21:01
2007.05.27
idhttp и contentrangestart