Форум: "Начинающим";
Текущий архив: 2007.05.27;
Скачать: [xml.tar.bz2];
ВнизМассив классов 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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.052 c