Type Mismatch (paradox Tquery Delphi)

[miuu]

qrCada.ParamByName('v_PCom').Value:=StrToCurr(Copy(stringReplace(txtPCom.text,'.','',[rfReplaceAll]),3,txtPCom.GetTextLen));

seguinte, o parametro está como ftCurrency

o campo na tabela está como currency

o valor que está sendo recebido é mais ou menos o seguinte por exemplo

o que era no edit box

R$ 3000,00

com essa conversão acima se torna

3000.0000

e assim é passado para o parametro

e ocorre o erro type mismatch quando executa a query

alguém pode me ajudar a solucionar isso

para converter valores nesse formato(strings do edit.text) R$ 3000,00

para um formato que o parametro ftCurrency e o datatype Currency do paradox aceite?

abraço!

[Churc]

opa

double-real

não testei mas tente assim

var

bla: real;

begin

bla := strtofloat(Copy(stringReplace(txtPCom.text,'.','',[rfReplaceAll]),3,txtPCom.GetTextLen));

qrCada.ParamByName('v_PCom').Value := bla;

ou jogue direto o valor sem passar pra nenhuma variável, mas acho que você devia tratar

erros nessa parte...

tipo

try

bla := strtofloat(Copy(stringReplace(txtPCom.text,'.','',[rfReplaceAll]),3,txtPCom.GetTextLen));

except

//faca algo ao dar erro aqui

end;

abraços

[miuu]

obrigado pela resposta

mas não mudou =/

eu já havia tentado colocar float

ateh tentei mudar o campo na tabela pra numerico

a propriedade DATATYPE do param

está como ftFloat não funciona (passando float)

está como ftCurrency tambem não vai (passando curr)

alguma ideia?

[Churc]

hmm estranho...

eu não manjo bd mas vou tentar te ajudar...

já tentou em bla: Real; colocar bla: Currency;

não sei se vai funcionar...

abraços

[miuu]

ah está complicado

coloquei campo numerico e passei como float

mesmo erro... obrigado anyway, se alguém souber plx fale XD

[miuu]

há!

o problema tava num campo que tinha valor default

passei como float o pcom e pven e funcionou normal

resolvi ^^

vlw ai a ajuda

[s3c]

Experimente converter o campo para:

var d:Double;
// depois
qrCada.ParamByName('v_PCom').asFloat := d;