ich muss ein zweidimensionales Array sortieren und habe das mit
Code: Alles auswählen
ASort( aArray,,, {|aX,aY| aX[Spalte] < aY[Spalte] } )
mfg
Wolfgang
Moderator: Moderatoren
Code: Alles auswählen
ASort( aArray,,, {|aX,aY| aX[Spalte] < aY[Spalte] } )
Code: Alles auswählen
FUNCTION Main()
LOCAL a := {}, i, j, x, n
CLEAR
? Seconds()
FOR i := 1 to 100000
aAdd(a,{'','','','','',''})
n := Len(a)
FOR j := 1 to 6
FOR x := 1 to 30
a[n,j] += Chr(RandomInt(65,122))
NEXT
NEXT
NEXT
? Seconds()
ASort( a ,,,{|aY1,aY2| aY1[1] < aY2[1]})
? Seconds()
RETURN nil