Array
(
    [0] => stdClass Object
        (
            [Votos_Balanceados] => 1
            [id] => 581496
            [titulo] => Arredondar valor de um Edit
            [dataCadastro] => DateTime Object
                (
                    [date] => 2017-05-17 17:18:27
                    [timezone_type] => 3
                    [timezone] => America/Sao_Paulo
                )

            [isFirstPost] => -1
            [idUsuario] => 251061
            [status] => A
            [isExample] => -1
            [NomeUsuario] => GABRIEL GODINHO BALTAZAR
            [Login] => gabrielbaltazar
            [Apelido] => Baltazar
            [Foto] => 001-7.jpg
            [Conteudo] => 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.
[code]
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;
[/code] ) )

Arredondar valor de um Edit

Giuliano Frederice
   - 17 mai 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

Post mais votado

Baltazar
|
MVP
Pontos: 40
    17 mai 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.
#Código

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;

David
   - 17 mai 2017

Vê se ajuda!

Giuliano Frederice
   - 17 mai 2017

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!

Roberto Wutke
   - 19 mai 2017

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.

Giuliano Frederice
   - 20 jun 2017

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