convertisseur octet

Avant la standardisation de décembre 1998 :

• Un KiloOctet (ko) ou KiloByte (kB) = 2¹⁰ octets = 1024 octets
• Un MégaOctet (Mo) ou MégaByte (MB) = 2²⁰ octets = 1024 ko = 1 048 576 octets
• Un GigaOctet (Go) ou GigaByte (GB) = 2³⁰ octets = 1024 Mo = 1 073 741 824 octets
• Un TéraOctet (To) ou TeraByte(TB) = 2⁴⁰ octets = 1024 Go = 1 099 511 627 776 octets

Depuis décembre 1998, les unités standardisées par IEC sont  :

• Un KiloOctet (ko) ou KiloByte (kB) = 1000 octets
• Un MégaOctet (Mo) ou MégaByte (MB) = 1000 ko = 1 000 000 octets
• Un GigaOctet (Go) ou GigaByte (GB) = 1000 Mo = 1 000 000 000 octets
• Un TéraOctet (To) ou TeraByte(TB) = 1000 Go = 1 000 000 000 000 octets

Il existe également le kilo binaire (kibi), le méga binaire (Mébi), le giga binaire (Gibi), le tera binaire (Tebi).

• Un Kibioctet (kio) ou KibiByte (kiB) vaut 2¹⁰ = 1024 octets
• Un MébiOctet (Mio) ou MébiByte(MiB) vaut 2²⁰ =1 048 576 octets
• Un GibiOctet (Gio) ou GibiByte(GiB) vaut 2³⁰ =1 073 741 824 octets
• Un TébiOctet (Tio) ou TébiByte(TiB) vaut 2⁴⁰ =1 099 511 627 776 octets

 Voir [ Lien ]

Il suffit donc de multiplier ou de diviser soit par n fois 1024 (ancienne norme) soit par n fois 1000 (nouvelle norme) pour obtenir chacune des unités.

1To = 1000 Go = 1000*1000 Mo = 1000 * 1000 * 1000 ko = 1000 * 1000 * 1000 * 1000 * octets

1 octet = 1/1000 ko = 1/(1000*1000) Mo = etc....

Cordialement.

@+
Bonne Prog'
Nico

Salut
Une possibilite :
//------------------------------------------------------------------
procedure TForm1.Edit1Change(Sender: TObject);
var     valeur,unite:integer;
begin
        try
                valeur:=StrToInt(Edit1.Text);

                unite:=0;
                while ((valeur shr (10+unite))<>0) do
                        unite:=unite+10;
                case unite of
                 0 : Edit2.Text:=IntToStr(valeur shr unite)+' Octets';
                10 : Edit2.Text:=IntToStr(valeur shr unite)+' Ko';
                20 : Edit2.Text:=IntToStr(valeur shr unite)+' Mo';
                30 : Edit2.Text:=IntToStr(valeur shr unite)+' Go';
                end;
        except
                Edit2.Text:='Erreur';
        end;

end;
//------------------------------------------------------------------

Un entier est sur 32 bit donc pas possible d'avoir de To
 (au max 4Go, d'ou la limitation de la FAT32)

bonne prog
a+

@+
Bonne Prog'
Nico