Len() gibt es nicht her. Kann man das in diesem Beispiel innerhalb der Funktion afunc überhaupt feststellen - außer
mit einem Laufzeitfehler
Danke für jeden Tip
Ewald
Code: Alles auswählen
PROCEDURE Main
aa:={}
ab:=array(0)
aadd(aa,{"Hein","Mück","Hamburg"})
aadd(aa,{"Karl","Mück","Frankfurt"})
aadd(ab,"Hein Mück Hamburg")
aadd(ab,"Hein Mück Frankfurt")
? afunc(aa)
? afunc(ab)
return
function afunc(xa)
vlen:=len(xa)
if xa=mehrdimensional // ?????
? xa[1,1]
else
shit happens
endif
return vlen