Converter ARRAY para STRING

[Toledo]

Acho que o erro está em:

Código: Selecionar todos

 FOR n = 1 TO 25

Será que não seria apenas 10 elementos ( FOR n = 1 TO 10)???

[JoséQuintas]

Simples, pra não depender de tamanho:

Código: Selecionar todos

FOR EACH oElement IN aBinary
NEXT

Mas por acaso não pode acontecer de pular número no DBF?

[JoséQuintas]

O erro na rotina postada está visível:

Código: Selecionar todos

cBinary  := ""; AFILL( aBinary ,0 ) 
...
cBinary += aBinary[n] 

somar string com número.

[Pablo César]

En Harbour existe :

HB_VALTOSTR() /* converts any data type to STR Value */
HB_VALTOEXP() /* converts any data type to STR Expression */

A solução do Claudio Soto é mais interessante, porque vale pra qualquer coisa.

Código: Selecionar todos

hb_ValToExp( a ) == hb_ValToExp( b )

Você tem inteira razão Mr. Quintas, obrigado por denotar e obrigado Dr. Claudio Soto pela indicação certeira.

Eu ainda complementaria com eliminação de "sensível a maiúsculas e minúsculas" com:

If Upper( hb_ValToExp( aArray1 ) ) == Upper( hb_ValToExp( aArray2 ) )

ou em HMG (valendo para ANSI ou UNICODE):

If HMG_Upper( hb_ValToExp( aArray1 ) ) == HMG_Upper( hb_ValToExp( aArray2 ) )

Ai fecha redondinho... senão um character apenas diferente (seja em maiúsculo ou minúsculo) daria falso.

[Claudio Soto]

En HMG existe para comparar strings la función:

HMG_StrCmp ( cText1 , cText2 , [ lCaseSensitive ] ) --> CmpValue

Retorna:
0 si son iguales
<0 si Text1 < Text2
>0 si Text2 > Text2