Clipper 5.3 como imprimir um vetor?
Enviado: 21 Mar 2011 11:26
Bom dia Geral gostaria de saber como faço para fazer impressões nos vetores.
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 ) } )