Fórum EXIBINDO UM RESULTADO EM FORMATO DECIMAL #554452

26/05/2016

0

Delphi

Preciso exibir um resultado em um MEMO no formato decimal (duas casas depois da virgula), alguém poderia ajudar:

Caso: O usuário irá digitar os valores em dois e EDITS e será exibido o resultado em um MEMO.
Como faço

segue meu código fonte
var
km , litros : double;
begin
km := strToFloat(edit1.text);
litros := strToFloat(edit2.text);
memo1.text := floatToStr( km / liros);
end;

desde já agradecido
Carlos Henrique

Carlos Henrique

Responder

Post mais votado

26/05/2016

Bom dia, Carlos Henrique. 

{ coloque a classe SysUtils  no Uses do Implementation do formulário ou Unit  
  Legenda de formatação : 
  # = Numero
  , = Casa da centena, milhar
  . = Casa decimal
  0 = Caso o seu numero não tiver casa decimal, ou for em branco, vai ficar com o Zero no lugar. }

//Exemplo
procedure TForm1.bbtOKClick(Sender:TObject); 
var
km , litros : double;
begin
 km := strToFloat(edit1.text);
 litros := strToFloat(edit2.text);
 memo1.text := FormatFloat('###,###.##0.00',(km / liros));
end;

Miguel Junior

Miguel Junior
Responder

Gostei + 1

Mais Posts

26/05/2016

Carlos Henrique

MUITO OBRIGADO MIKE_PTA, FUNCIONOU PERFEITO.
OBRIGADO MESMO CARA.
Responder

Gostei + 1

26/05/2016

Carlos Henrique

[RESOLVIDO]
Responder

Gostei + 1

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar