Erro no build do ACBr Trunk2

[vipeol]

Instalei o ACBr baixado do Trunk2, segui os passos e a instalação sucedeu normalmente e com sucesso, porem ao tentar compilar o programa me retorna a seguinte mensagem:

Ambiguous overloaded all to 'Pos'

No arquivo CmdUnitNFe na linha 116 

Tenho que fazer mais alguma coisa?

[vipeol]

1 hora atrás, vipeol disse:

Instalei o ACBr baixado do Trunk2, segui os passos e a instalação sucedeu normalmente e com sucesso, porem ao tentar compilar o programa me retorna a seguinte mensagem:

Ambiguous overloaded all to 'Pos'

No arquivo CmdUnitNFe na linha 116 

Tenho que fazer mais alguma coisa?

Pelo que eu vi na passagem do parametro nesta linha faltou colocar o PAnsiChar

Coloquei aqui e passou. tem como alterarem para que nas próximas revisões eu possa manter este arquivo atualizado com o oficial?

Obrigado

[Juliomar Marchetti]

Qual versão está dando isso? versão do delphi !

[vipeol]

Agora, Juliomar Marchetti disse:

Qual versão está dando isso? versão do delphi !

Desculpe esqueci de informar.

uso a versão XE2

[Juliomar Marchetti]

Estranho pois na linha 116 dessa unit não tem o uso da função pos

veja abaixo

113  P := pos('(',wComando) ;
114  if P = 0 then
115  begin
116     { Verificando se é uma atribuição a propriedade Ex: "Ativo := true"
117       Se for, transforma em "SetAtivo(True)"  }
118     P := pos(':=',wComando) ;
119     if P > 0 then

 

[vipeol]

No meu esta assim, na linha 116 o seu parece estar diferente duas linhas a mais:

  { Achando o Método }
  P := pos('(',wComando) ;
  if P = 0 then
  begin
     { Verificando se é uma atribuição a propriedade Ex: "Ativo := true"
       Se for, transforma em "SetAtivo(True)"  }
     P := pos(PAnsiChar(':='),wComando) ;
     if P > 0 then
      begin
         wComando := 'Set'+Trim(copy(wComando,1,P-1))+'('+
                           Trim(copy(wComando,1,P+2))+')' ;
         P := pos('(',wComando) ;
      end
     else
        P := Length( wComando ) + 1 ;
  end ;
 

O mesmo acontece na linha 151 da minha versão.

 

        PaF := PaI ;
        wProxChar := ' ' ;
        while (PaF <> 0) and
              (wProxChar <> '') and
              (pos(wProxChar, PAnsiChar(',)')) = 0) do
        begin
           if wProxChar = '"' then
              Inc( PaF ) ;
           PaF := PaF + max(Pos('"',copy(wComando, PaF+1, Length(Wcomando)) ),1) ;
           wProxChar := copy(Trim(copy(wComando, PaF+1 , Length(Wcomando))),1,1) ;
        end ;

 

[Juliomar Marchetti]

Então seus arquivos estão diferente!

revert para o svn e depois testa

[vipeol]

Onde este arquivo fica nos fontes do ACBr, procurando aqui, achei uma copia dele fora dos fontes dentro do meu diretorio de aplicação, muito estranho.

[Juliomar Marchetti]

isso ai é da pasta projetos!

faça um reverte de tudo!

[vipeol]

Ok, obrigado