Connexion

Convertir un nombre en taille (Ko,Mo,Go)

Niveau requis pour utiliser/comprendre cette source : 1 ( Débutant )
Créé le 25/03/2006 23:35:22 et initié par EBArtSoft [Liste]
Date de mise à jour : 05/08/2006 14:25:59
Vue : 14417
Catégorie(s) : Fichier / Disque, Trucs & Astuces, Chaîne de caractères
Langages dispo pour ce code :
- VB6, VBA
- Delphi 5
- PHP 3, PHP 4, PHP 5
- PHP 3, PHP 4, PHP 5
- Perl
- Voir tous les langages pour ce code snippet

Proposer ce code dans un autre langage

Ajouter aux favoris

Langage : Delphi 5
Date ajout : 05/08/2006
Posté par f0xi [Liste]
DateMAJ : 05/08/2006

function SizeToStr(const Size : int64) : string;
begin
  if Size < $000000000400 then
     result := format('%d bytes',[Size]) 
  else
  if Size < $000000100000 then
     result := format('%.1f Kb',[Size/$000000000400]) 
  else
  if Size < $000040000000 then
     result := format('%.1f Mb',[Size/$000000100000]) 
  else
  if Size < $010000000000 then
     result := format('%.2f Gb',[Size/$000040000000]) 
  else
     result := format('%.2f Tb',[Size/$010000000000]) 
end;

Remarque :
attention, selon les normes en vigeur pour l'octet :
1Ko = 1000 octets
1Mo = 1000000 octets
1Go = 1000000000 octets

pour les bytes cela ne change pas ... 1024!

Les Snippets

Rechercher :

Par langages :

Par Catégorie

Compteurs

Convertir un nombre en taille (Ko,Mo,Go)