aide format nombre en poids

**MIWAN** · 18/12/2018, 17h08

Bonjour
Voila mon problème
J’ai une format de sept chiffres exp : (2,745,391) ou (2,745 391)
Comment écrie 2 T 745 K et 391 g c’est-à-dire convertir format= (#,###,000) en unité de poids

**SergioMaster** · 18/12/2018, 17h23

Bonsoir,

à mon avis il faut un peu de code la commande format ne peut pas tout quoique, en jouant sur les formatsettings si ça ne dépasse pas les 1000 tonnes

Code :

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

1
2
3
4
5
6
 
// inconvénient , un seul caractère 
AFormatSettings:=TFormatSettings.Create;
AFormatSettings.DecimalSeparator:='K';
AFormatSettings.ThousandSeparator:='Q';
AString:=Format('%.3f g',[Poids/1000],AFormatSettings);

ou encore, à base de remplacement de chaine par exemple

Code :

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

1
2
3
AString:=Format('%.3f',[Poids/1000]);
AString:=ReplaceStr(AString,DecimalSeparator,' K ');
AString:=ReplaceStr(AString,ThousandSeparator,' Q ');

**tourlourou** · 18/12/2018, 17h39

Si Q est le sigle de la Tonne (1000 kg) plutôt que du Quintal (100 kg), le code est juste !

Invité · 18/12/2018, 17h54

ou quelque chose de ce genre :

Code :

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

1
2
3
4
5
6
7
 
maChaine := '2,745,391';
 
Format('%s Q %s K et %s g', 
          [Copy(maChaine, 1, 1),
           Copy(maChaine, 3, 3),
           Copy(maChaine, 7, 3),])

**anapurna** · 18/12/2018, 18h16

salut

ou encore

Code :

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

1
2
3
4
5
6
Poids := 2745391;
 
IT :=  Poids Div 1000000;  // on Cherche la tonne
IK :=  (Poids-(IQ*1000000)) Div 1000;// on cherche les kilo
IG :=  (Poids-(IQ*1000000))-IK*1000;// le reste en gramme
 St := Format('%d Q %d K et %d g',[IT,IK, IG]);

**MIWAN** · 18/12/2018, 18h53

Merci a tous
Master votre code marche impeccable sauf qu'il n'a affiche pas l'unité Q (2745K391g) .
benoit1024 j'ai oublié de dire que les chiffres sont des variables . j'ai essayé avec copy() , strleft() , strRight....pas moyenne
anapurna j'ai essayé votre code mais donne erreur : opérateur non applicable à ce type d'opérande
IK := (Poids-(IQ*1000000)) DIV 1000;// on cherche les kilo
j'ai joué avec Extended , Double mais toujours le même message.

j'attend toujours votre aide

**anapurna** · 18/12/2018, 19h22

salut

tu as essayé avec des longint ou integer ?

**SergioMaster** · 19/12/2018, 07h25

Bonjour,

Envoyé par MIWAN

Master votre code marche impeccable sauf qu'il n'a affiche pas l'unité Q (2745K391g) .

Il suffit de remplacer '%.3f' qui n'affiche pas les séparateur de milliers par '%.3n', comme je fermai boutique je n'avais pas vérifier ce point, vous aviez les bases nécessaires pour que cette remarque

Envoyé par MIWAN

j'attend toujours votre aide

ne soit pas nécessaire !
"aide toi et le docwiki t'aidera" lire l'aide de format vous aurait donné la solution

Envoyé par tourlourou

Si Q est le sigle de la Tonne (1000 kg) plutôt que du Quintal (100 kg)

totalement d'accord, cela me choquait mais j'ai appliqué à la lettre le "cahier des charges"

Voilà 3 propositions qui fonctionnent

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
21
22
23
procedure TForm3.btnFormatClick(Sender: TObject);
var Poids : UInt64;
    PoidsStr : String;
    AFormatSettings : TFormatSettings;
begin
 Poids:=StrToUInt64(edtPoids.text);
 
 memo1.Lines.Clear;
 
 
 AFormatSettings:=TFormatSettings.Create;
 AFormatSettings.DecimalSeparator:='K';
 AFormatSettings.ThousandSeparator:='T';
 PoidsStr:= Format('%.3n g',[Poids/1000],AFormatSettings);
 Memo1.Lines.Add('en changeant FormatSettings  ' +PoidsStr);
 
 PoidsStr:=Format('%.3n g',[Poids/1000]);
 PoidsStr:=ReplaceStr(PoidsStr,FormatSettings.DecimalSeparator,' Kg ');
 PoidsStr:=ReplaceStr(PoidsStr,FormatSettings.ThousandSeparator,' T ');
 Memo1.Lines.Add('En utilisant ReplaceStr '+PoidsStr);
// solution Anapurna en plus "condensé" 
 Memo1.Lines.Add(Format('Calculs %d T %d K %.3d g',[Poids div 1000000,(Poids div 1000) mod 1000,Poids mod 1000]));
end;

en changeant FormatSettings 14T258K500 g
En utilisant ReplaceStr 14 T 258 Kg 500 g
Calculs 14 T 258 K 500 g

Chacune ayant ses avantages et inconvénients
- la première nécessite que le nombre ne dépasse pas 1000 tonnes, le séparateur décimal, comme celui des milliers ne peut faire qu'un caractère
- la seconde nécessite que le nombre ne dépasse pas 1000 tonnes
- la dernière que le poids soit au moins d'une tonne

bien sûr il existe une solution qui n'a aucun inconvénient, la dernière ligne 'Calculs' permet de voir la solution et qui pourra gérer le tout

10000000 -> 10 T
10 -> 10 g
10000 -> 10 K
1005000 -> 10 T 50 K
1000000000 -> 1000 T

etc..
AMHA un peu de recherche sans vous fournir cette solution vous sera bénéfique

**ShaiLeTroll** · 19/12/2018, 10h50

C'est un basique,
c'est vrai que l'on affiche pas souvent des poids
Par contre suffisait de penser comme on exprime une durée (voir FormatMS) pour trouver la réponse très rapidement qui est celle de anapurna
C'est une simple question de mathématique

Bonjour
Voila mon problème
J’ai une format de sept chiffres exp : (2,745,391) ou (2,745 391)
Comment écrie 2 Q 745 K et 391 g c’est-à-dire convertir format= (#,###,000) en unité de poids

Mon problème avec ce problème, c'est comme cela peut-il être un problème ?

(#,###,000)
Alors T et K sont optionnels, g est forcément exprimé en 3 digits obligatoire, c'est le cahier des charges

Au lieu de faire des div et mod, voici une autre approche System.ConvUtils.Convert et System.StdConvs

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
21
22
23
24
25
26
27
function FormatPoids(AMasse: Double): string;
var
  V: Double;
  Tonne, Kilo, Gramme, MilliGramme: Cardinal;
  Fmt: string;
begin
  V := System.ConvUtils.Convert(AMasse, System.StdConvs.muGrams, System.StdConvs.muMetricTons);
  Tonne := Trunc(V);
  if Tonne > 0 then
    Fmt :=  '%0:d T '; // T ou Q ?
 
  V := System.ConvUtils.Convert(V - Tonne, System.StdConvs.muMetricTons, System.StdConvs.muKilograms);
  Kilo := Trunc(V);
  if Kilo > 0 then // if (Kilo > 0) or (Tonne > 0) then // débat si l'on affiche le "n T 0 K xxx g" ou simplification "n T xxx g"
    Fmt := Fmt + '%1:d K ';
 
  V := System.ConvUtils.Convert(V - Kilo, System.StdConvs.muKilograms, System.StdConvs.muGrams);
  Gramme := Trunc(V);
  Fmt := Fmt + '%2:.3d g ';
 
  V := System.ConvUtils.Convert(V - Gramme, System.StdConvs.muGrams, System.StdConvs.muMilligrams);
  MilliGramme := Trunc(V);
  if MilliGramme > 0 then
    Fmt := Fmt + '%3:.3d mg ';
 
  Result := Format(Fmt, [Tonne, Kilo, Gramme, MilliGramme]);
end;

Code :

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

1
2
3
4
5
6
7
8
 
procedure TZooThomVCLMainForm.Button6Click(Sender: TObject);
begin
  ShowMessage(FormatPoids(2745391)); // 2 T 745 K 391 g 
  ShowMessage(FormatPoids(45391.12)); // 45 K 391 g 120 mg 
  ShowMessage(FormatPoids(0)); // 000 g 
  ShowMessage(FormatPoids(0.3)); // 000 g 300 mg 
end;

**MIWAN** · 19/12/2018, 21h24

Bonsoir a tous
C’est vrais que les codes concernant les mesures en générale sont presque introuvables et mon poste là éclaire ce qu’était flou dans ce genre .

ShaiLeTroll
C'est la première fois que j'entends de ces deux Unitées (convUtils, StdConvs)

en plus votre function donne une grande marge pour manipuler les mesures et même les modifier

benoit,Sergio,anapurna,ShaiLeTroll
je suis satisfait et reconnaissant pour toutes aide de votre parts.
vous êtes une mine d'or

**Jipété** · 19/12/2018, 23h35

Un dernier mot :

tout le monde a écrit K avec un K majuscule, qui est l'abréviation de la température mesurée en degrés Kelvin, et n'a donc rien à voir avec l'unité k minuscule qui est l'abréviation de kilo.

Mais en plus, k tout seul ne veut rien dire et doit obligatoirement être associé à l'unité de la chose mesurée, kg pour kilogramme, km pour kilomètre, kb pour kilobyte, etc.

**alanglet** · 20/12/2018, 00h39

Envoyé par Jipété

Un dernier mot :

Non pas le dernier, tu aurais pu ajouter que le gramme n'est pas une unité de poids, mais l'unité de masse.

André

**Andnotor** · 20/12/2018, 09h38

Envoyé par Jipété

...qui est l'abréviation de la température mesurée en ~~degrés~~ Kelvin,

Pour être tout à fait exact

**tourlourou** · 20/12/2018, 09h40

Un mot de plus : l'unité SI de température n'est plus le degré Kelvin, mais le Kelvin depuis 1967 !

**ShaiLeTroll** · 20/12/2018, 10h25

Envoyé par Jipété

tout le monde a écrit K avec un K majuscule...

Dans mon premier code j'avais écrit kg mais pour un soucis de respect du cahier des charges et de compréhension, j'ai suivi le K ... et puis tu as bien Q et T qui sont flous aussi