PC Toledo

Acho que o erro está em:
Será que não seria apenas 10 elementos ( FOR n = 1 TO 10)???

Simples, pra não depender de tamanho:
Mas por acaso não pode acontecer de pular número no DBF?

O erro na rotina postada está visível:
somar string com número.

JoséQuintas escreveu:

Claudio Soto escreveu: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.

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