ACBRTEFD.CRT function com tipo de argumento errado

[Jwest]

Na Unit  ACBrTEFD.pas  temos a definição:
 

Function CRT( const Valor : Double; const IndiceFPG_ECF : String;
        const DocumentoVinculado : String = ''; const Moeda : Integer = 0 )
        : Boolean ;
  ...

 function TACBrTEFD.CRT(const Valor: Double; const IndiceFPG_ECF: String;
  const DocumentoVinculado: String; const Moeda: Integer): Boolean;
begin
   Result := fTefClass.CRT( Valor, IndiceFPG_ECF, DocumentoVinculado, Moeda );
end;

 Mas no TEFDemo, ela é chamada com o argumento moeda como sendo do tipo string:

procedure TForm1.bCRTClick(Sender : TObject);
begin
   bCancelarResp.Visible := False;
   fCancelado := False;
   ACBrTEFD1.CRT( StringToFloatDef(edValorTEF.Text, 0) ,edFPGCartao.Text, ACBrECF1.NumCOO);
   MostraSaldoRestante;
end;

 

Se eu uso:

   ACBrTEFD1.CRT( StringToFloatDef(edValorTEF.Text, 0) ,edFPGCartao.Text, 4); 

Eu tenho um erro de parametros ."[dcc32 Error] Unit1.pas(1115): E2010 Incompatible types: 'string' and 'Integer''

O que pode estar errado?

Luiz
 

 

[Juliomar Marchetti]

sim o tipo é o ultimo e pode ir inteiro mas veja que existem 4 parametros

[Jwest]

OK, meu erro.

Contei errado.