Arredondar valor de um Edit

17/05/2017

Olá amigos do DevMedia Boa Tarde!

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

Melhor resposta

17/05/2017

Esse valor está numa variável String? Se tiver, você substitui esse ponto por vírgula. Converte pra float e depois da um trunc e converte pra string.
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;

Baltazar

Currículo
Responder Citar

Outras Respostas

17/05/2017

David

[url:descricao=Vê se ajuda!]http://www.devmedia.com.br/rotinas-de-arredondamento-round-roundto-simpleroundto-setroundmode-e-getroundmode/21114[/url]
Responder Citar

17/05/2017

Giuliano Frederice

Agradeço a resposta porém eu já estudei este link por completo e não obtive sucesso.
Mesmo obrigado pela ajuda.

Mas alguém teria uma solução?

Obrigado e aguardo!
Responder Citar

19/05/2017

Roberto Wutke

A opção do Baltazar solucionaria o seu problema. Se não solucionou, posta com mais detalhes pra nós por favor, o que vc está fazendo e como acontece o processo (se vc clica em algum lugar pra trazer esse valor, se é algum comando sql ).

Bons códigos.
Responder Citar

20/06/2017

Giuliano Frederice

Obrigado a todos os que contribuirão.... muito obrigado mesmo pessoal.
Post resolvido
Responder Citar