Aleksander Postado Julho 13, 2008 Denunciar Share Postado Julho 13, 2008 Olá amigos, no exemplo abaixo o Label1 fica da seguinte forma 25410320, gostaria que ele ficasse assim 25,4.Como posso fazer isso?Grato pela atenção.procedure TForm1.Button1Click(Sender: TObject); var S: string; Free: Int64; begin Free := DiskFree(0); S := 'Espaço livre em (C): ' + intToStr(Free div 1024); Label1.Caption := S; end; Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Jhonas Postado Julho 13, 2008 Denunciar Share Postado Julho 13, 2008 no exemplo abaixo o Label1 fica da seguinte forma 25410320, gostaria que ele ficasse assim 25,4.Como posso fazer isso?Tente assim :procedure TForm1.Button1Click(Sender: TObject); var S: string; Free: Int64; begin Free := DiskFree(0); S := 'Espaço livre em (C): ' + intToStr(Free div 1024); Label1.Caption := formatfloat(',0.00',(((Free div 1024)div 1024)div 1024))+' GB'; end;abraço Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Aleksander
Olá amigos, no exemplo abaixo o Label1 fica da seguinte forma 25410320, gostaria que ele ficasse assim 25,4.
Como posso fazer isso?
Grato pela atenção.
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.