Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

народ как узнать создан или нет обект в рантайме [D7, WinXP]

RedLord © (2004-07-20 18:59:00)
всем привет
народ как узнать создан или нет обект в рантайме

создаем масив обектов
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;

SergP (2004-07-20 21:48:00) [1]
Хотел бы я посмотреть в глаза тому кто сделал так что в форуме нельзя посты редактировать... :-))

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

SergP (2004-07-20 21:46:00) [2]
Блин, меня уже глючит...

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

SergP (2004-07-20 21:45:00) [3]
Удалено модератором

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

Anatoly Podgoretsky (2004-07-20 19:52:00) [5]
В метод Tform1.detekt(sender:Tobject); передается sender, вот и обеспечить, чтобы он указывал на объект который возбудит событие

Sergey Kaminski (2004-07-20 19:20:00) [6]
Assigned(AObject)

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

RedLord (2004-07-20 19:08:00) [7]
данная чуш написана для понимания происходящего но не для компеляции то что не вызовется ето точно :-))
строку - rocedure Tform1.procedure(sender:Tobject);
читать как rocedure Tform1.detekt(sender:Tobject);

Palladin (2004-07-20 19:03:00) [8]
в привенной чуши можно сказать что процедура procedure никогда не вызовется пока не создадутся все 100 объектов... кстати ничего из вышеприведнной чуши не откомпилируется...

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »