Clipper 5.3 como imprimir um vetor?

[aprendiz93]

Bom dia Geral gostaria de saber como faço para fazer impressões nos vetores.

[alxsts]

Olá!

Veja se te atende:

Código: Selecionar todos

Procedure PrintArray()
LOCAL aArray := { "Domingo", "Segunda", "Terca","Quarta","Quinta","Sexta","Sábado" }
LOCAL nLen, nPos

   SET DEVICE TO PRINT
   SetPrc( 0,0 )
   
   nLen := Len( aArray )
   
   For nPos := 1 To nLen
      @ nPos, 5 Say aArray[ nPos ]
   Next
  
   // Ou desta outra forma:
   Aeval( aArray, { |e,p| SetPos( p, 5 ), Qout( e ) } )

RETURN

[aprendiz93]

Opa vou testar aki daqui a pouco posto mais agradeço desde já pela ajuda.