Formatar Float

[Thiago Delalibera 1]

Estou formatando o float quando eu pego do meu banco e coloco em um edit usando o seguinte?

 

FormatFloat('##,###,##0.00', StrToFloat(EditValor.Text));

 

Ele apresenta o valor assim: 40.211,44

 

Sendo que no banco está gravado assim: 40211.44

 

Nao consegui fazer o Format Float inverso pra transformar 40.211,44 para 40211.44, to usando mysql, campo float, só pra constar quando alguém responder sobre como formatar a máscara, eu tenho campos com valores em milhão tb.. acho que a formatação deve ser a mesma, mas se não for ai vcs que manjam me digam.. obrigado!

[Chrnos 30]

Você pode criar uma função como a abaixo para poder alterar o '.' por nada e depois alterar a ',' por um '.'.

 

function ReplaceStr(sOldString, sNewString, sTexto : String) : String;
begin
  while pos(sOldString,Trim(sTexto)) > 0 do begin
	sTexto := Copy(Trim(sTexto),1,Pos(sOldString,Trim(sTexto)) - 1) +
				sNewString +
				Copy(Trim(sTexto),Pos(sOldString,Trim(sTexto)) + 1,Length(Trim(sTexto)));
  end;

  Result := sTexto;
end;

E pra usar...

 

var sValor : String;
sValor := ReplaceStr('.', '', EditValor.Text);
EditValor.Text := ReplaceStr(',', '.', sValor);

[]'s

[Thiago Delalibera 1]

Valeu Chrnos

 

vou testar agora

 

=D

[Chrnos 30]

Beleza, depois dá um retorno aqui se correr tudo bem (ou não rs).

 

[]'s