Erro ´1.400,00´ is not a valid floating point value
Boa tarde amigos, estou com uma duvida.
Se eu fizer um calculo ate 999,99 ele soma normal e joga o valor aonde eu dentro da dbgrid, mais se utrapassa da erro
tipo um valor de 1.400,00
aparece esse erro ´1.400,00´ is not a valid floating point value
Pq. esta ocorrendo esse erro?
Desde ja agradeço a ajuda de todos
Obrigado
Adriano
Se eu fizer um calculo ate 999,99 ele soma normal e joga o valor aonde eu dentro da dbgrid, mais se utrapassa da erro
tipo um valor de 1.400,00
aparece esse erro ´1.400,00´ is not a valid floating point value
Pq. esta ocorrendo esse erro?
Desde ja agradeço a ajuda de todos
Obrigado
Adriano
Adriano_servitec
Curtidas 0
Respostas
Adriano Santos
18/07/2005
É por causa do ponto amigo. Provavelmente vc está fazendo alguma formatação no momento do cálculo. Para não dar erro o numero tem que estar sem ponto, assim:
1400,00
Falow
1400,00
Falow
GOSTEI 0
Essistemas
18/07/2005
Meu amigo sempre quando quero converter
uma valor formatado assim tenho função que linha o ponto pramin
function LimparString(Campo: string): string;
var
I: Integer;
begin
Result := ´´; for I := 1 to Length(Campo)do
if Campo[I] <> ´.´ then
Result := Result + Campo[I];
end;
Valor :=StrToFloat(LimparString(EdValor.Text)) ;
uma valor formatado assim tenho função que linha o ponto pramin
function LimparString(Campo: string): string;
var
I: Integer;
begin
Result := ´´; for I := 1 to Length(Campo)do
if Campo[I] <> ´.´ then
Result := Result + Campo[I];
end;
Valor :=StrToFloat(LimparString(EdValor.Text)) ;
GOSTEI 0
Adriano_servitec
18/07/2005
Valeu amigos,
Agora entendi e esta funcionando perfeitamente.
Obrigado pela ajuda
T+
Agora entendi e esta funcionando perfeitamente.
Obrigado pela ajuda
T+
GOSTEI 0