народ как узнать создан или нет обект в рантайме

← →
RedLord (2004-07-20 18:59) [0]

всем привет
народ как узнать создан или нет обект в рантайме

создаем масив обектов
for n:=1 to 100 do
begin
my[n]:=tmy.create;
my[n].ondetekt:=detekt;
my[n].tag:=n;
end;
/////////
rocedure Tform1.procedure(sender:Tobject);
begin
здесь надо узнать создан ли объект с порядковым номером на еденицу большем чем тот который запустил эту проседуру
end;

← →
Palladin © (2004-07-20 19:03) [1]

в привенной чуши можно сказать что процедура procedure никогда не вызовется пока не создадутся все 100 объектов... кстати ничего из вышеприведнной чуши не откомпилируется...

единица пишется через И, ибо единый, а не еденый...

← →
RedLord (2004-07-20 19:08) [2]

данная чуш написана для понимания происходящего но не для компеляции то что не вызовется ето точно :-))
строку - rocedure Tform1.procedure(sender:Tobject);
читать как rocedure Tform1.detekt(sender:Tobject);

← →
Sergey Kaminski © (2004-07-20 19:20) [3]

Assigned(AObject)

чтобы работало, объекты освобождать так:
AObject.Free; AObject := nil;

← →
Anatoly Podgoretsky © (2004-07-20 19:52) [4]

В метод Tform1.detekt(sender:Tobject); передается sender, вот и обеспечить, чтобы он указывал на объект который возбудит событие

← →
SergP © (2004-07-20 21:43) [5]

procedure Tform1.detekt(sender:Tobject);
x:TMY;
begin
...
if assigned my[Tmy(sender).tag+1]
then ... // объект создан
else ... // нифига не создан
...
end

Удалено модератором

Блин, меня уже глючит...

procedure Tform1.detekt(sender:Tobject);
begin
...
if assigned my[Tmy(sender).tag+1]
then ... // объект создан
else ... // нифига не создан
...
end;

Хотел бы я посмотреть в глаза тому кто сделал так что в форуме нельзя посты редактировать... :-))

procedure Tform1.detekt(sender:Tobject);
begin
...
if assigned(my[Tmy(sender).tag+1])
then ... // объект создан
else ... // нифига не создан
...
end;

народ как узнать создан или нет обект в рантайме Найти похожие ветки