Onde desativo a diretiva FPC?

[rlmariz]

Na minha compilação essa diretiva está ativada, pelo que entendi é Suporte ao FreePascal, porem uso Delphi XE5 e não achei onde desativá-la.

 

Obrigado.

[Daniel Simoes]

No Delphi essa diretiva nunca ficaria ativada...

Você deve estar usando o ACBr.inc errado

[rlmariz]

51 minutos atrás, Daniel Simoes disse:

No Delphi essa diretiva nunca ficaria ativada...

Você deve estar usando o ACBr.inc errado

ACBr.inc  que eu uso é o que está no repositório, é diferente o pra usar com Delphi ou FreePascal?

[Daniel Simoes]

não... veja... não é necessário fazer nada em relação a essa diretiva...

Se você está com problemas com isso, é porque provavelmente seus fontes estão errados, baixe uma nova cópia do ACBr... e use o ACBrInstall

[rlmariz]

1 minuto atrás, Daniel Simoes disse:

não... veja... não é necessário fazer nada em relação a essa diretiva...

Se você está com problemas com isso, é porque provavelmente seus fontes estão errados, baixe uma nova cópia do ACBr... e use o ACBrInstall

Já fiz tudo isso que você falou e estou testando na função abaixo, já vasculhei tudo e não existe lugar algum que defina a diretiva FPC.  

    Trecho do código que está passado.

RBS := UTF8Encode(AString);
SetCodePage(RBS, 0, False);
Result := AnsiString(RBS);

Função:

function ACBrStrToUTF8( AString : String ) : AnsiString;
{$IFNDEF FPC}
{$IFDEF UNICODE}
var
  RBS: RawByteString;
{$ENDIF}
{$ENDIF}
begin
  {$IFNDEF FPC}
   {$IFDEF UNICODE}
    RBS := UTF8Encode(AString);
    SetCodePage(RBS, 0, False);
    Result := AnsiString(RBS);
   {$ELSE}
    Result := UTF8Encode(AString);
   {$ENDIF}
  {$ELSE}
   Result := AString;
  {$ENDIF}
end;

 

[Daniel Simoes]

e realmente é para passar... veja que se trata de IFNDEF e não IFDEF

[rlmariz]

Você tem razão, falta de atenção minha.

Porem estou tendo problemas nesse método, ao efetuar consultas de MFDe pendente tem que enviar um texto e no meio dele tem a palavra "não" e ao usar esse método para transforme em UTF8 fica com caracteres doidos e da erro de schema.

Você já viu esse problema?

[Daniel Simoes]

Por favor abra um novo tópico e descreva exatamente o problema enfrentado...

Lembre-se de informar um passo a passo de como reproduzir o problema, usando os Demos do ACBr, (para que possamos debugar o problema)...

Se necessário (se for o caso) adicone os XMLs ou Logs, referentes a operação...