EXIBINDO UM RESULTADO EM FORMATO DECIMAL
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
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
Curtidas 0
Melhor post
Miguel Junior
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;
GOSTEI 1
Mais Respostas
Carlos Henrique
26/05/2016
MUITO OBRIGADO MIKE_PTA, FUNCIONOU PERFEITO.
OBRIGADO MESMO CARA.
OBRIGADO MESMO CARA.
GOSTEI 1
