Discussion :

[Jlmat]

Bonjour,

Apparemment, la fonction Format en Lazarus ne traduit pas les Types QWord. Est-ce que quelqu'un a déjà résolu ce problème?
Sinon, j'utiliserais IntstoStr qui accepte les QWord...

Code :

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

1
2
 
   StTValTerme.Caption := Format('F%D = %N',[NTerme,ValTerme]);

%D fonctionne car NTerme est un LongInt, mais ne donne pas de séparation des milliers
%N produit une erreur => message d'erreur...



J'aurai voulu une séparation des milliers dans le QWord, mais l'option %N de Format plante

Merci

[Jipété]

Bonjour,

tiens, expérimente à partir de là :

Code :

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

1
2
3
4
5
6
var
  qw: QWord;
begin
  qw := 123456789;
  DefaultFormatSettings.ThousandSeparator := ' ';
  Caption := format('chiffres : %12.0n', [double(qw)]);

[Jlmat]

Merci Jipété, ça marche en partie!

,

Code :

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

1
2
3
4
5
6
var
  qw: QWord;
begin
  qw := 123456789;
  DefaultFormatSettings.ThousandSeparator := ' ';
  Caption := format('chiffres : %12.0n', [double(qw)]);

L'idée d'utiliser le Double qui est accepté est Super!
mais, il arrondi probablement à la dernière décimale du Double.
En effet, si je prends QWord = 18 446 744 073 709 551 615, sa valeur max, j'obtiens: 18 446 744 073 709 552 000

A Voir

[Jipété]

Yep !

En effet, si je prends QWord = 18 446 744 073 709 551 615, sa valeur max, j'obtiens: 18 446 744 073 709 552 000

En effet, si je prends QWord = 18 446 744 073 709 551 615, sa valeur max, j'obtiens les mêmes 16 premiers chiffres que toi puis à la fin les 4 derniers ici c'est ...1616 alors que toi tu annonces ...2000 !
Je te suspecte d'être sous Windows, non ? Ou une vieille version de Lazarus / FreePascal ? Moi j'ai la dernière, 2.2.4/3.2.2.

Mais pour arriver à ce calcul, je me suis d'abord fait insulter, quand j'ai balancé les 20 chiffres sans espaces, comme quoi je dépassais la capacité du QWord !

J'ai fouillé dans l'aide et j'y ai trouvé que le QWord était un objet sur 64 bits comme le int64 mais unsigned !
Ce qui n'est pas ce que le compilateur m'a dit, ne voulant pas dépasser le max de l'int64, 92233...

Donc j'ai bidouillé un truc de ouf :

Code :

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

1
2
3
4
5
6
7
var
  qw: QWord;
  uqw: uint64;// unsigned(QWord) ça ne passe pas
begin
  uqw := 18446744073709551615;
  DefaultFormatSettings.ThousandSeparator := ' ';
  Caption := format('chiffres : %20.0n', [double(uqw)]);

F9 et ça m'a donné le nombre que j'ai cité + haut.


En mettant %24.0n ça me donne les mêmes 20 chiffres cités, donc il ne va pas plus loin que 20 chiffres et je trouve que ton résultat est beaucoup arrondi.
S'ils décident de partir sur Mars en faisant des calculs comme ça, c'est sûr qu'on va les perdre dans l'espace intersidéral,

Je suis sous Linux Debian (la dernière) en 64 bits.

[Jlmat]

Merci Jipété

En effet, si je prends QWord = 18 446 744 073 709 551 615, sa valeur max, j'obtiens les mêmes 16 premiers chiffres que toi puis à la fin les 4 derniers ici c'est ...1616 alors que toi tu annonces ...2000 !
Je te suspecte d'être sous Windows, non ? Ou une vieille version de Lazarus / FreePascal ? Moi j'ai la dernière, 2.2.4/3.2.2.

Très intéressant. oui en effet, je suis sur Windows 10. Ma version de Lazarus est 2.2.2, ça évolue vite! Je la mettrai à jour.

J'essaierais alors ton code... et te tiens au courant

A+

[Jlmat]

Yop!

J'ai fait une mise à jour de Lazarus 2.2.4/FPC 3.2.2 sous windows 10 en 64 bits.

J'ai utilisé une variable de type uint64, mais j'ai toujours le même arrondi à la fin : j'obtiens: 18 446 744 073 709 552 000

J'ai fait une mise à jour en gardant mes paramètres et non pas une 2ème installation différente...

Je vais donc continuer d'utiliser des intTostr pour l'instant!
J'ai écrit une petite fonction pour ça:

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
 
function fSepareMilliers(S: string): String;
  var I: integer;
begin
  Result := S;
  I := Length(S)-2;
  while I > 1 do
  begin
    Insert(' ', Result, I);
    I := I - 3;
  end;
end;  
 
// --------
 StTSommeTermes.Caption := 'SOMME = '+fSepareMilliers(Inttostr(SomTermes),' ');