Depois de FormatFloat como volta p/ Float??
Tenho alguns TEdit para cálculos. Aplico FormatFloat para dar o fomato dos pontos e virgulas. Depois para fazer o cálculo preciso que valor volte a ser Float, mas aí dá um erro dizendo valor inválido para ser float!
valor := 4.379,32;
texto := FormatFloat(´#,0.00´, Valor);
ERRO ACONTECE AQUI:
valor := StrToFloat(texto);
First chance exception at $7C81EB33. Exception class EConvertError with message ´´4.379,32´ is not a valid floating point value´. Process VendasConectiva.exe (1372)
valor := 4.379,32;
texto := FormatFloat(´#,0.00´, Valor);
ERRO ACONTECE AQUI:
valor := StrToFloat(texto);
First chance exception at $7C81EB33. Exception class EConvertError with message ´´4.379,32´ is not a valid floating point value´. Process VendasConectiva.exe (1372)
Dogu
Curtidas 0
Respostas
Dbart
02/10/2009
coloca isso
texto := StringReplace(texto,´.´,´´, [rfReplaceAll]);
esse erro acontece por causa do ponto
Stringreplace retira o ponto da string.
texto := StringReplace(texto,´.´,´´, [rfReplaceAll]);
esse erro acontece por causa do ponto
Stringreplace retira o ponto da string.
GOSTEI 0
Dogu
02/10/2009
Obrigado, salvou-me de dores de cabeça! Por que o Delphi não é tão compreensivo quanto Ruby? Seria tão mais fácil entender e organizado!!!
GOSTEI 0