Hi,
versuchs mal mit dieser Methode im NetzwerkA.
is
i :integer;
obj,netz : object;
do
for i:=1 to current.anzahlnf loop
obj:=current.nf(i); -- nachfolgerobjekt
netz:=obj.~; --uebergeordnetes Netz von dem nachfolgerobjekt
if netz/=current.~ then
if netz.holeattrnr("Kapa")/=0 then
print i," Nachfolgenetz:",netz ,chr(9),"kapazitaet:",netz.Kapa;
else
print i," Nachfolgenetz:",netz, chr(9),"hat kein Attribut Kapa";
end;
else
print i," Nachfolgeobjekt:",obj ,chr(9)," ist kein Netzwerk";
end;
next;
end;
Gruss
------------------
SimulatoR 
[Diese Nachricht wurde von Simulator am 02. Mrz. 2006 editiert.]