[Dica] Formatando A Visualização Do Tamanho De Um Arquivo

['Lenneth 487]

Quando se trabalha com arquivos no Delphi pode ser necessário exibir o tamanho de um arquivo, como é feito no Explorer, onde o valor não é mostrado em bytes, mas sim de acordo com o seu tamanho atual. Para a maioria, "45.678.123 Bytes" é confuso, mas "43,56 MB" não!

 

A seguir, temos uma função chamada FormatByteSize, que converte um valor em bytes para uma String que representa o número expressado em Bytes, Kilobytes Megabytes ou Gigabytes, dependendo do seu tamanho:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Para usá-la, basta fazer no evento onClick de um button, por exemplo

 

procedure TForm1.Button1Click(Sender: TObject);

var

TamanhoEmBytes: Longint;

begin

with TFileStream.Create(

'C:\Windows\System32\calc.exe',

fmOpenRead or fmShareExclusive)

do try

TamanhoEmBytes := Size;

finally

Free;

end;

 

ShowMessage( FormatByteSize(TamanhoEmBytes) );

end;

 

Creditos Before123

[iMelo~' 15]

Cara voce ta bot em topicos hoje em kkk , valeu por compartilhar vou estudar o codigo e tentar configurar pra outras coisas , adicionado a quick list.