Arredondar valor de um Edit
17/05/2017
0
Venho pedir ajuda para vocês pois me deparei com uma situação que eu achava que era muito simples porém não estou obtendo resultado.
Vou tentar ser bem objetivo:
Eu tenho o seguinte valor: "133.5"
Este valor é exibido em um Edit.
Porém eu quero que seja exibido apenas como 133 em outro determinado edit.
Já tentei de várias formas porém não obtive sucesso, utilizei por exemplo vários tópicos aqui mesmo no site e sempre que eu rodo minha aplicação, o delphi exibe a seguinte mensagem:
'133.5' is not a valid floating point value.
Alguém poderia me ajudar?
Desde já agradeço
Giuliano Frederice
Post mais votado
17/05/2017
var strValor: String; valor: Double; intValor : Integer; begin strValor := '133.5'; strValor := StringReplace(strvalor, '.', ',', [rfReplaceAll]); valor := StrToFloat(strValor); intValor := Trunc(valor); edit1.Text := IntToStr(intValor); end;
Gabriel Baltazar
Mais Posts
17/05/2017
David
17/05/2017
Giuliano Frederice
Mesmo obrigado pela ajuda.
Mas alguém teria uma solução?
Obrigado e aguardo!
19/05/2017
Roberto Wutke
Bons códigos.
20/06/2017
Giuliano Frederice
Post resolvido
Clique aqui para fazer login e interagir na Comunidade :)