Array Dimension und Länge [erledigt]

[Ewald]

Ich möchte in der Funktion afunc feststellen, ob das Array xa mehrdimensional (ab) oder eindimensional (aa) ist.
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 

[georg]

Hallo, Ewald -


ein Array ist dann mehrdimensional, wenn wenigstens ein Element selbst ein Array ist:

Code: Alles auswählen

FUNCTION AFunc(aRray)
LOCAL nI, nLen, lMulti
lMulti := .F.
nLen := Len(aRray)
FOR nI := 1 TO nLen
   IF ValType(aRray[nI]) == "A"
      lMulti := .T.
      EXIT
   ENDIF
NEXT
RETURN(lMulti)

[Wolfgang Ciriack]

Es gibt aber auch diese Möglichkeit:

Code: Alles auswählen

  aadd(aa,{"Hein","Mück","Hamburg"})
  aadd(aa,"Hein Mück Hamburg")

Wenn du also sichergehen willst, musst du alle Elemente von aa auf den Typ prüfen.

[Ewald]

Danke, damit hat sich mein Problem in Luft aufgelöst. Da hätte ich wahrscheinlich noch (zu) lange rumgeknobelt.
Ich sage nur "Rente mit 63"