Erro Na Transformação Para Real

[Juniorocha]

Tenho um cadastro que vai para uma tabela do acess mas preciso que os dbets aceitem valores quebrados como 3,4 ...

já mudei no acess para o tipo moeda mas no delphi continua dando erro , keria saber onde está o erro

o codigo está assim:

dbedit36.text:= floattostr(strtofloat(dbedit29.text) * strtofloat(dbedit27.text));
dbedit38.text:= floattostr(strtofloat(dbedit36.text) / strtofloat(dbedit24.text));

[Micheus]

Observe questois associadas ao ponto decimal e separador de milhar.

Se você tiver algo como:

- strtofloat('1.050,00') resultará em erro. Deve ser removido o "." => strtofloat('1050,00');

- strtofloat('350.00') resultará em erro. Deve ser utilizado "," => strtofloat('350,00')

Na verdade você não teria este problema se ao invés de utilizar o DBEdit.Text você utilizasse o campo associado a ele. Por questões didáticas, vamos supor que seus dbedits estejam associadas ao Dataset1 com os campos possuindo o seguinte nomes (considerando também que são todos do tipo numérico):

- Em dbedit24, datafield = CAMPO24 do dataset Dataset1

- Em dbedit27, datafield = CAMPO27 do dataset Dataset1

- Em dbedit29, datafield = CAMPO29 do dataset Dataset1

- Em dbedit36, datafield = CAMPO36 do dataset Dataset1

- Em dbedit38, datafield = CAMPO38 do dataset Dataset1

então as linhas:

dbedit36.text:= floattostr(strtofloat(dbedit29.text) * strtofloat(dbedit27.text));

dbedit38.text:= floattostr(strtofloat(dbedit36.text) / strtofloat(dbedit24.text));

ficariam:

Dataset1CAMPO36.Value := Dataset1CAMPO29.Value * Dataset1CAMPO27.Value;

Dataset1CAMPO38.Value := Dataset1CAMPO36.Value / Dataset1CAMPO24.Value;

Deste modo não há necessidade de qualquer tipo de conversão.

[]s