ACBrUtil Error

[Gutierres]

após realiza o update verifiquei o seguinte erro

na unit ACBrUtil

metodo

Procedure WriteToTXT( const ArqTXT, AString : AnsiString;

const AppendIfExists : Boolean = True; AddLineBreak : Boolean = True );

[DCC Error] ACBrUtil.pas(2058): E2251 Ambiguous overloaded call to 'IfThen'

System.Math.pas(4061): Related method: function IfThen(Boolean; const Integer; const Integer): Integer;

ACBrUtil.pas(1): Related method: function IfThen(Boolean; const Integer; const Integer): Integer;

Obrigado

[EMBarbosa]

Qual a versão do Delphi ou Lazarus usado?

[Gutierres]

Delphi xe2 update 4

[EMBarbosa]

Esse erro acontece pois o compilador não consegue definir qual das versões do método IfThen que é "overloaded" chamar.

A última alteração nesse método foi em abril na revisão 3483 para corrigir "warnings".

Tente trocar a linha:

  FS := TFileStream.Create( String( ArqTXT ), IfThen( AppendIfExists and FileExists(String(ArqTXT)),

     fmOpenReadWrite, fmCreate) or fmShareDenyWrite );

[/code]


Pela linha:

[code]  FS := TFileStream.Create( ArqTXT, IfThen( AppendIfExists and FileExists(ArqTXT),

     fmOpenReadWrite, fmCreate) or fmShareDenyWrite );

Veja se faz alguma diferença.

Edit: link para ajuda do erro mencionado aqui

[Daniel Simoes]

Parece que o compilador não conseguiu se decidir pela versão que usa Inteiro ou String...

Tente assim:

 FS := TFileStream.Create( String( ArqTXT ), IfThen( AppendIfExists and FileExists(String(ArqTXT)),

     Integer(fmOpenReadWrite), Integer(fmCreate)) or fmShareDenyWrite );[/code]