Arredondamento Valores - Delhi

30/08/2017

Tudo bem pessoal?

Como fa�o para arredondar um valor no delphi?

Tenho uma vari�vel x recebendo 1.25468842

Quando dou o comando para visualizar o valor de "x", ele retorna 1.25468842

Gostaria no entanto, de arredondar o valor para:

Primeiramente arredondar para duas casas decimais: 1.25

E tamb�m para o maior n�mero inteiro, no caso: 2.00

Obrigado

Joao Df

Curtir t�pico + 0

Responder

Post mais votado

30/08/2017

Adicione Math na uses do form.

Para arredondar para 2 casas decimais use RoundTo:

var
  X: Double;
begin
  X := 1.25468842;
  X := RoundTo(X, -2); // 2 casas decimais
  ShowMessage(FloatToStr(X)); // Resultado: 1.25
end;

Para arredondar para o pr�ximo n�mero inteiro use Ceil:

var
  X: Double;
begin
  X := 1.25468842;
  X := Ceil(X);
  ShowMessage(FloatToStr(X)); // Resultado: 2
end;

Natanael Ferreira

Responder

Gostei + 1

Mais Posts

31/08/2017

Joao Df

Adicione Math na uses do form.

Para arredondar para 2 casas decimais use RoundTo:

var
  X: Double;
begin
  X := 1.25468842;
  X := RoundTo(X, -2); // 2 casas decimais
  ShowMessage(FloatToStr(X)); // Resultado: 1.25
end;

Para arredondar para o pr�ximo n�mero inteiro use Ceil:

var
  X: Double;
begin
  X := 1.25468842;
  X := Ceil(X);
  ShowMessage(FloatToStr(X)); // Resultado: 2
end;

Est� dizendo que "CEIL" � uma vari�vel n�o declarada.
Est� correto ?

Responder

Gostei + 0

31/08/2017

Natanael Ferreira

A fun��o CEIL faz parte da biblioteca Math do Delphi.

Certifique se voc� j� adicionou Math na uses do form.

Responder

Gostei + 0

01/09/2017

Joao Df

A fun��o CEIL faz parte da biblioteca Math do Delphi.

Certifique se voc� j� adicionou Math na uses do form.

Como consigo inserir o Math na Uses do Form?
Desculpa-me a inoc�ncia da programa��o.

Obrigado

Responder

Gostei + 0

01/09/2017

Natanael Ferreira

Quando voc� cria um form, automaticamente, o Delphi gera um esqueleto de c�digo e suas cl�usulas, exemplo:

unit Unit1;

interface

// Esta � a cl�usula USES (Abaixo todas as bibliotecas que voc� vai precisar)
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

end.

A cl�usula Uses � esta abaixo, nela est�o as bibliotecas que seu programa usar� naquele form.
Voc� pode adicionar, outras bibliotecas (Math, neste caso) separada por v�rgula e no final da cl�usula um ponto e v�rgula:

// Esta � a cl�usula USES (Abaixo todas as bibliotecas que voc� vai precisar)
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Math;

Veja que no final adicionei a cl�usula Math.

Qualquer duvida estou a disposi��o.

Responder

Gostei + 0