Главная страница
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.032 c
3-1165474104
George
2006-12-07 09:48
2007.05.27
Права записи в InterBase


15-1177569389
Александр Иванов
2007-04-26 10:36
2007.05.27
Видно не только в России есть Жириновский


15-1177401564
Knight
2007-04-24 11:59
2007.05.27
Кто какие свитчи в районе 3-4 тр. на 16 портов пользует?


15-1177417389
ArtemESC
2007-04-24 16:23
2007.05.27
Вопросик интересный...


15-1177492057
Novice
2007-04-25 13:07
2007.05.27
dot NET