Fórum Problemas com Delphi 7 Casa/Escritório #287159
06/07/2005
0
Prezados,
Estou tendo o seguinte problema com o comando Ifthen no Delphi 7. Estou desenvolvendo um sistema e em uma das Units tenho a função:
[b:c3577abf74]
FieldByName(´CTPVRDOC´).AsString:= FormatFloat(´0,00´, strUtils.IfThen(iNumPrestLnc + IfThen(EdtCtpVrDoc.Value > 0, 2, 1) = iMaxPrest, fVrTot - (fVrPago + EdtCrcVrDoc.Value), ((fVrTot - EdtCrcVrDoc.Value) / IfThen(EdtCrcVrDoc.Value > 0, EdtNPrest.Value - 1, EdtNPrest.Value))- 0.001)) ; [/b:c3577abf74]
Que não esta funcionando, retorna o erro [b:c3577abf74][Error] uLECParc.pas(102): There is no overloaded version of ´IfThen´ that can be called with these arguments[/b:c3577abf74]
Mas utilizo esta mesma função em outra Unit, que é a unit de origem (de onde copiei todos os comandos da Referida Unit com problema), e não da problema algum.
Em casa também não tenho esse problema...
Se alguém poder me ajudar serei muito grato.
[]´s e que Deus continue a nos Abençoar.
Estou tendo o seguinte problema com o comando Ifthen no Delphi 7. Estou desenvolvendo um sistema e em uma das Units tenho a função:
[b:c3577abf74]
FieldByName(´CTPVRDOC´).AsString:= FormatFloat(´0,00´, strUtils.IfThen(iNumPrestLnc + IfThen(EdtCtpVrDoc.Value > 0, 2, 1) = iMaxPrest, fVrTot - (fVrPago + EdtCrcVrDoc.Value), ((fVrTot - EdtCrcVrDoc.Value) / IfThen(EdtCrcVrDoc.Value > 0, EdtNPrest.Value - 1, EdtNPrest.Value))- 0.001)) ; [/b:c3577abf74]
Que não esta funcionando, retorna o erro [b:c3577abf74][Error] uLECParc.pas(102): There is no overloaded version of ´IfThen´ that can be called with these arguments[/b:c3577abf74]
Mas utilizo esta mesma função em outra Unit, que é a unit de origem (de onde copiei todos os comandos da Referida Unit com problema), e não da problema algum.
Em casa também não tenho esse problema...
Se alguém poder me ajudar serei muito grato.
[]´s e que Deus continue a nos Abençoar.
Garoto Programa
Curtir tópico
+ 0
Responder
Posts
06/07/2005
Massuda
Verifique se o segundo e terceiro parâmetros dos IfThen que você está usando são do mesmo tipo. Em cada IfThen, esses parâmetros devem ser simultaneamente dos tipos Integer, Int64, Double ou string; não é possível misturar tipos.
Seria uma boa idéia você reescrever esse código usando if..then..else tradicional, pois isso melhoraria a legibilidade do código.
Seria uma boa idéia você reescrever esse código usando if..then..else tradicional, pois isso melhoraria a legibilidade do código.
Responder
Gostei + 0
07/07/2005
Garoto Programa
Valeu o Massuda pela atenção...
Mas este erro é daqueles quem ninguém explica, eu mudei o nome dos arquivos e refiz a cópia do arquivo original e fiz as alterações novamente.
PRONTO esta funcionando.
Muito obrigado pela atenção...
Que Deus Continue a nos abençoar.
Christiano R. Soares
Mas este erro é daqueles quem ninguém explica, eu mudei o nome dos arquivos e refiz a cópia do arquivo original e fiz as alterações novamente.
PRONTO esta funcionando.
Muito obrigado pela atenção...
Que Deus Continue a nos abençoar.
Christiano R. Soares
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)