OrdList() of OrdListAdd() ?

[AUGE_OHR]

hi,

we can use OrdListAdd() but how to get what we have add
there seems no OrdList() under harbour to get Info ...

how in harbour

[gfilatov]

hi,

we can use OrdListAdd() but how to get what we have add
there seems no OrdList() under harbour to get Info ...

how in harbour

Hi Jimmy,

I do it in the next approach:

Code: Select all

  Local aTags := {}, aIndexes := {}
  Local i := 0

  WHILE !Empty( indname := ordName( ++i ) )
     AAdd( aTags, { indname, ordKey( i ), ordFor( i ) } )
  END

  IF OrdCount() > 0

    AEval( aTags, { |t| AAdd( aIndexes, t[1] ) } )

    MsgDebug( aIndexes )
  END
...

Hope that helps