Erro Too Many actual parameters

Delphi

12/03/2013

Quando vou compilar meu projeto esta dando o seguinte erro :
Too many actual parameters: este erro esta dando na linha abaixo de programaçao:
nsECF:=UpperCase(Trim(Codifica(LeIni(GetCurrentDir + '\PDV.INI','Configuracao','NumeroSerieECF')));

será que fiz algo errado ?
Andre Ucella

Andre Ucella

Curtidas 0

Respostas

Joel Rodrigues

Joel Rodrigues

12/03/2013

Você está passando mais parâmetros do que o método espera.
GOSTEI 0
Perivaldo Martins

Perivaldo Martins

12/03/2013

Quando vou compilar meu projeto esta dando o seguinte erro :
Too many actual parameters: este erro esta dando na linha abaixo de programaçao:
nsECF:=UpperCase(Trim(Codifica(LeIni(GetCurrentDir + '\PDV.INI','Configuracao','NumeroSerieECF')));

será que fiz algo errado ?


Como o colega Joel Rodrigues disse:

Você está passando mais parâmetros do que o método espera.


Acredito que se modificar um pouco pode funcionar sem problemas.
a, b : String;
begin
a := UpperCase(Trim(LeIni(GetCurrentDir + '\PDV.INI','Configuracao','NumeroSerieECF'));
b := Codifica(a);

nsECF := b;
...
end;


É só uma idéia, fica a seu critério dividir esse paramentros para que o erro não volte a acontecer.

Boa sorte e bons códigos!





GOSTEI 0
Andre Ucella

Andre Ucella

12/03/2013

Martins fiz exatamente da forma que vc falou, mas o erro ainda continua, após o erro o cursor para entre o GetCurrentDir e o +, então aparenta ter algo errado ai.

a, b : String;
begin
a := UpperCase(Trim(LeIni(GetCurrentDir (erro ocorre aqui) + '\PDV.INI','Configuracao','NumeroSerieECF'));
b := Codifica(a);

nsECF := b;
GOSTEI 0
Joel Rodrigues

Joel Rodrigues

12/03/2013

Como está a assinatura desse método LeIni?
GOSTEI 0
Perivaldo Martins

Perivaldo Martins

12/03/2013

Martins fiz exatamente da forma que vc falou, mas o erro ainda continua, após o erro o cursor para entre o GetCurrentDir e o +, então aparenta ter algo errado ai.

a, b : String;
begin
a := UpperCase(Trim(LeIni(GetCurrentDir (erro ocorre aqui) + '\PDV.INI','Configuracao','NumeroSerieECF'));
b := Codifica(a);

nsECF := b;


Certo, vamos tentar mudar mais um pouco.

a, b : String;
begin
a := UpperCase(Trim(LeIni('PDV.INI','Configuracao','NumeroSerieECF'));
b := Codifica(a);

nsECF := b;

Veja se agora funciona.

Boa sorte e bons códigos!
GOSTEI 0
POSTAR