ERRO DE LÓGICA EM XAILER 3.2 - HELP-ME

[Marcelo Coelho Silva]

Prezados Senhores,
Passei uma rotina (function) que vem rodando desde as primeiras versíµes
do Xailer (xHarbour+BCC) até a versão 2.7 (Harbour+BCC) sem problemas.
Porem ao roda-lo na Versão do Xailer 3.2 (Harbour+MinGW) a Função
apresenta Erro de Lógica.
Em Xailer até a versão 2.7, apresenta na Tela :
>> DEVOLU##O#DE#MERCADORIA
Em Xailer 3.2 (MinGW) :
>> DEVOLUí‡íƒO#DE#MERCADORIA
Vejam as rotinas a baixo:
//---------------------------------
// FUNí‡íƒO PRINCIPAL:
MsgAlert(Trim_e2("DEVOLUí‡íƒO DE MERCADORIA")) // apresenta o resultado
//--------------------
FUNCTION Trim_e2( cString )
Local cRet, cBuff, nCont, cLetra
cRet := ""
If !Empty(cString)
cBuff := AllTrim(cString)
For nCont := 1 to Len(cBuff)
cLetra := SubStr(cBuff,nCont,1)
If (cLetra >= "(" .and. cLetra <= ";") .or.;
(cLetra >= "?" .and. cLetra <= "_") .or.;
(cLetra >= "a" .and. cLetra <= "}")
cRet += cLetra
else
cRet += "#"
EndIf
Next
EndIf
Return cRet
//-------------------------
Atenciosamente,
Marcelo Coelho Silva
Brasil.
---
Este email está limpo de ví­rus e malwares porque a proteção do avast! Antiví­rus está ativa.
http://www.avast.com

[emeasoft]

Marcelo:
Usando o Xailer 3.2 e
LogDebug((cLetra >= "(" .and. cLetra <= ";"),(cLetra >= "?" .and. cLetra <= "_"),(cLetra >= "a" .and. cLetra <= "}"))
BCC:
#1: .F. .T. .F.
#2: .F. .T. .F.
#3: .F. .T. .F.
#4: .F. .T. .F.
#5: .F. .T. .F.
#6: .F. .T. .F.
#7: .F. .F. .F.
#8: .F. .F. .F.
#9: .F. .T. .F.
#10: .F. .F. .F.
#11: .F. .T. .F.
#12: .F. .T. .F.
#13: .F. .F. .F.
#14: .F. .T. .F.
#15: .F. .T. .F.
#16: .F. .T. .F.
#17: .F. .T. .F.
#18: .F. .T. .F.
#19: .F. .T. .F.
MinGW
#1: .F. .T. .F.
#2: .F. .T. .F.
#3: .F. .T. .F.
#4: .F. .T. .F.
#5: .F. .T. .F.
#6: .F. .T. .F.
#7: .F. .T. .F.
#8: .F. .T. .F.
#9: .F. .T. .F.
#10: .F. .F. .F.
#11: .F. .T. .F.
#12: .F. .T. .F.
#13: .F. .F. .F.
#14: .F. .T. .F.
#15: .F. .T. .F.
#16: .F. .T. .F.
#17: .F. .T. .F.
#18: .F. .T. .F.
#19: .F. .T. .F.
#20: .F. .T. .F.
#21: .F. .T. .F.
#22: .F. .T. .F.
#23: .F. .T. .F.
Realmente a lógica está diferente entre os 2.
Mário Angelini

[Marcelo Coelho Silva]

Prezado Mario,
O que poderemos fazer ? o MinGw é confiável ? Podemos utilizar um
Compilador C que possui Erros de Lógica ?
Fiquei Preocupado com a conversão de Compilador, passando meus Sistemas
de BCC para MinGW !!!
Att.
Marcelo Coelho Silva
Mhacke Software do Brasil.
Em 04/06/2014 09:16, www[dot]eMeAsOfT[dot]com escreveu:> Marcelo:
> Usando o Xailer 3.2 e
> LogDebug((cLetra >= "(" .and. cLetra <= ";"),(cLetra >= "?"
> .and. cLetra <= "_"),(cLetra >= "a" .and. cLetra <= "}"))
>
>
>
> BCC:
> #1: .F. .T. .F.
> #2: .F. .T. .F.
> #3: .F. .T. .F.
> #4: .F. .T. .F.
> #5: .F. .T. .F.
> #6: .F. .T. .F.
> #7: .F. .F. .F.
> #8: .F. .F. .F.
> #9: .F. .T. .F.
> #10: .F. .F. .F.
> #11: .F. .T. .F.
> #12: .F. .T. .F.
> #13: .F. .F. .F.
> #14: .F. .T. .F.
> #15: .F. .T. .F.
> #16: .F. .T. .F.
> #17: .F. .T. .F.
> #18: .F. .T. .F.
> #19: .F. .T. .F.
>
> MinGW
> #1: .F. .T. .F.
> #2: .F. .T. .F.
> #3: .F. .T. .F.
> #4: .F. .T. .F.
> #5: .F. .T. .F.
> #6: .F. .T. .F.
> #7: .F. .T. .F.
> #8: .F. .T. .F.
> #9: .F. .T. .F.
> #10: .F. .F. .F.
> #11: .F. .T. .F.
> #12: .F. .T. .F.
> #13: .F. .F. .F.
> #14: .F. .T. .F.
> #15: .F. .T. .F.
> #16: .F. .T. .F.
> #17: .F. .T. .F.
> #18: .F. .T. .F.
> #19: .F. .T. .F.
> #20: .F. .T. .F.
> #21: .F. .T. .F.
> #22: .F. .T. .F.
> #23: .F. .T. .F.
>
> Realmente a lógica está diferente entre os 2.
>
> Mário Angelini
---
Este email está limpo de ví­rus e malwares porque a proteção do avast!
Antiví­rus está ativa.
http://www.avast.com
---
Este email está limpo de ví­rus e malwares porque a proteção do avast! Antiví­rus está ativa.
http://www.avast.com

[emeasoft]

Marcelo,
Devido a inúmeros erros de GPF abandonamos o MinGW e voltamos a usar o BCC onde
os problemas cessaram.
Agraços.
Mário Angelini