Скачать: CL | DM;

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

← →
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

---

← →
SergP ©   (2004-07-20 21:45) [6]

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

---

← →
SergP ©   (2004-07-20 21:46) [7]

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

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

---

← →
SergP ©   (2004-07-20 21:48) [8]

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

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

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.023 c