Discussion :

[[ZiP]]

Bonjour,

J'utilise le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
function BytesToFriendlyString(Value : DWord) : string;
const
  OneKB = 1024;
  OneMB = OneKB * 1024;
  OneGB = OneMB * 1024;
  OneTB = OneGB * 1024;
begin
  if Value < OneKB then
    Result := FormatFloat('#,##0.00 B',Value)
  else
    if Value < OneMB then
      Result := FormatFloat('#,##0.00 KB', Value / OneKB)
    else
      if Value < OneGB then
        Result := FormatFloat('#,##0.00 MB', Value / OneMB)
      else
        if Value < OneTB then
          Result := FormatFloat('#,##0.00 GB', Value / OneGB)
end;

Celui-ci me retourne l'erreur suivante à la compilation :

E2099 Débordement dans opération de conversion ou arithmétique

A la ligne suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
OneTB = OneGB * 1024;

Que dois-je faire pour corriger cette erreur ?
Quel type de données existe-t-il pour utiliser des nombres assez grand comme dans ce cas ?

Merci,
ZiP

[Jipété]

Aide Delphi :

DWORD représente un nombre entier non signé de quatre octets

Utilise donc les Int64 sur ce coup-là :

Int64 -2^63..2^63-1 64 bits signé

HTH,
--
jp

[[ZiP]]

Bonjour,

J'ai résolu mon problème avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
  OneKB = 1024.0;
  OneMB = OneKB * 1024.0;
  OneGB = OneMB * 1024.0;
  OneTB = OneGB * 1024.0;

Mais par mesure de sécurité, je vais les passer en Int64.

Merci,
Mathieu

[Jipété]

J'ai résolu mon problème avec :

Euh, pas vu de différence avec le post d'origine...

Mais par mesure de sécurité, je vais les passer en Int64.

Je l'ai fait après avoir regardé dans le sdk le type de retour d'appels système style "GetFileInfo.FileSize" (pas obligé que ça soit le nom correct [flemme de chercher...], mais c'est l'idée).
En C, c'est du LARGEINTEGER, qui correspond à l'Int64 de Delphi.
Dis-toi bien qu'à l'heure actuelle un fichier peut dépasser la taille critique de 2,147_et_quelques Gig, la limite positive d'un Integer.

Mes 2 cts,
--
jp

[TicTacToe]

Euh, pas vu de différence avec le post d'origine...

Si si, regarde bien, le '.0' derriere, fait croire que les constantes sont des float, et donc le dépassement n'a plus lieu

Il y a eu un post il y a pas longtemps à ce sujet, sur les débordements, du à l'opération de 2 nombres non castés, dont le résultat dépassait la capacité dans le type de ces nombres.
Le ".0" est une solution, mais attention au risque dans les égalités (les float ne sont pas toujours exacts...).

+1 pour le typage en Int64 qu'incite Jipete
en partant comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
OneKB: Int64 = 1024;
OneMB: Int64 = OneKb * 1024;
...

[Jipété]

Si si, regarde bien, le '.0' derriere

Ah oui, bien vu (c'est la cas de le dire, ) TicTacToe. J'ai lu trop vite, comm' d'hab, et comme mathématiquement c'est pareil, mon cerveau en "optimisant", lol, n'a pas vu la différence,

Et merci pour le point !
--
jp

[[ZiP]]

Bonjour,

J'ai donc ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
const
     OneKB: Int64 = 1024;
     OneMB: Int64 = OneKB * 1024;
     OneGB: Int64 = OneMB * 1024;
     OneTB: Int64 = OneGB * 1024;

(37): E2026 Expression constante attendue
(38): E2026 Expression constante attendue
(39): E2026 Expression constante attendue

Il n'y a que la premiere ligne qui passe. Savez-vous pourquoi ?

Merci,
ZiP

[thewho]

Bonjour,

Bonjour,

J'ai donc ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
const
     OneKB: Int64 = 1024;
     OneMB: Int64 = OneKB * 1024;
     OneGB: Int64 = OneMB * 1024;
     OneTB: Int64 = OneGB * 1024;

Il n'y a que la premiere ligne qui passe. Savez-vous pourquoi ?

Merci,
ZiP

Oui, il en a été question il n'y a pas longtemps (sur le forum Pascal, je crois)

Le fait est que quand on déclare une constante typée comme tu le fais, eh bien, pour Delphi, ce n'est pas vraiment une constante, c'est une variable initialisée.

(Essaye d'en déclarer une, et tente de la modifier dans une fonction/procédure, tu verras que ça marche)

Donc, pour ton problème, pour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
const
     OneKB: Int64 = 1024;
     OneMB: Int64 = OneKB * 1024;
     OneGB: Int64 = OneMB * 1024;
     OneTB: Int64 = OneGB * 1024;

ça passe pour OneKB, mais pas pour la suite. Ça ne peut pas compiler, car OneKB n'est pas réellement une constante.

[[ZiP]]

Bonjour,

Je comprends le problème, mais, quelle solution adopter ?

Déclarer chaque variable sans utiliser la précédente ?

Merci,
ZiP

[Jipété]

Soir !

Comme ça, ça passe, mais attention au fait que du coup tu gagnes des Float

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
const
     OneKB = 1024.0;
     OneMB = OneKB * 1024.0;
     OneGB = OneMB * 1024.0;
     OneTB = OneGB * 1024.0;

--
jp

[[ZiP]]

Salut,

J'ai fais ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
const
     OneKB: Int64 = 1024;
     OneMB: Int64 = 1048576;
     OneGB: Int64 = 1073741824;
     OneTB: Int64 = 1099511627776;

Merci,
ZiP

[sovitec]

A tester, mais ça devrait marcher :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
const
     OneKB = Int64(1024);
     OneMB = Int64(OneKB * 1024)
     OneGB = Int64(OneMB * 1024)
     OneTB = Int64(OneGB * 1024)

...
Le ".0" est une solution, mais attention au risque dans les égalités (les float ne sont pas toujours exacts...).

Les floats ne sont pas toujours exacts pour les nombres décimaux, mais pas de problèmes pour les entiers (dans la limite de la capacité de la mantisse bien sûr).

[[ZiP]]

Bonjour,

Oui, c'est mieu avec un cast

Merci,
ZiP