Discussion :

[Aooka]

Bonjour,


Je cherche, mais ne trouvant pas je viens à vous : je cherche à coller deux Cle de type Integer.

Exemple :
Cle_Primaire = 274
Cle_Secondaire = 001
Cle_Final = 274001



Voilà je ne sais comment m'y prendre,
Comme d’habitude, je vous remerci d'avance,
Et vous souhaite une excellente journée !


Edit : Car vous vous doutez surement du résultat de :

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.OnShow(Sender: TObject);
var
  Cle_Primaire , Cle_Secondaire , Cle_Final : Integer;
begin
  Cle_Primaire := 247;
  Cle_Secondaire := 001;
  Cle_Final := Cle_Primaire + Cle_Secondaire;
 
  ShowMessage(Cle_Final.ToString);
end;

[GoustiFruit]

A condition que la somme ne dépasse pas la capacité d'un "Integer":

Code :

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

Cle_Final := StrToInt(IntToStr(Cle_Primaire) + IntToStr(Cle_Secondaire));

[foetus]

@GoustiFruit: ta solution ne fonctionne pas

Parce que IntToStr(001) va donner "1" au lieu de "001".

[Andnotor]

Cle_Final := Format('%.3d%.3d', [Cle_Primaire, Cle_Secondaire]);.

Cle_Final est une chaîne bien entendu

[Jipété]

@GoustiFruit: ta solution ne fonctionne pas

Parce que IntToStr(001) va donner "1" au lieu de "001".

Faut passer par Format en précisant le nombre de zéros voulus.

Argggh, grillé par Andnotor à une minute près

[Aooka]

Je n'aurais pas pensé à utiliser format ! Remarquez, je ne l'ai encore jamais utilisé en Delphi !
Merci à tous pour vos réponses, vous avez été rapides dîtes !

#Résolu.

[foetus]

Faut passer par Format en précisant le nombre de zéros voulus.

Argggh, grillé par Andnotor à une minute près

Dans ce cas, passer par des chaînes de caractères c'est nul

Clef_Final = (Clef_Primaire * 10^(nb_zeros)) + Clef_Secondaire

[Aooka]

Dans ce cas, passer par des chaînes de caractères c'est nul

Clef_Final = (Clef_Primaire * 10^(nb_zeros)) + Clef_Secondaire

Le truc, c'est que le nombre de 0 peut changer en cours de route en effet :
Cle_Secondaire.ValeurMinimum = 001
Cle_Secondaire.ValeurMaximum = 999

[Jipété]

Dans ce cas, passer par des chaînes de caractères c'est nul

Clef_Final = (Clef_Primaire * 10^(nb_zeros)) + Clef_Secondaire

Bien obligé, si :

Le truc, c'est que le nombre de 0 peut changer en cours de route en effet :
Cle_Secondaire.ValeurMinimum = 001
Cle_Secondaire.ValeurMaximum = 999

Et donc

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure autretest;
var
  i: cardinal;
  s: string;
begin
  for i := 1 to 999 do begin
    s := Format('%.3u', [i]);
    Form1.log('autretest : ' + s);
  end;
end;

-->

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
autretest : 001
autretest : 002
...
autretest : 009
autretest : 010
autretest : 011
...
autretest : 099
autretest : 100
autretest : 101
...
autretest : 999

[Aooka]

Merci Jipété !

Par contre, deux petites dernières avant de te laisser tranquille si sa ne te dérange point !

Tu écris :

Code :

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

s := Format('%.3u', [i]);

1. Pourquoi i est de type Cardinal ? Sachant qu'en plus le deuxième paramètre de la fonction Format(); doit d'être du type array[Integer] of TVarRec (type qui m'est d'ailleurs inconnu)
2. De plus, pourquoi mettre la variable i entre crochet ?

J'imagine que mes deux questionnements sont liés.


Merci,

[foetus]

cardinal, c'est un entier non signé de 32 bits. Et tu passes ton nombre entre crochets, parce que la fonction Format veut un tableau (sûrement parce que Delphi ne supporte pas les ellipses).

Sinon, je lâche l'affaire, je ne comprends pas vos délires, surtout si la clef secondaire c'est au plus 999

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
procedure autretest;
var
  clef_primaire: cardinal;
  i: cardinal;
  s: string;
begin
  clef_primaire := 274;
 
  for i := 1 to 999 do begin
    Form1.log('autretest : ' + IntToStr((clef_primaire * 1000) + i));
  end;
 
  clef_primaire := (clef_primaire * 1000);
 
  for i := 1 to 999 do begin
    Form1.log('autretest : ' + IntToStr(clef_primaire + i));
  end;
end;

[e-ric]

Le truc, c'est que le nombre de 0 peut changer en cours de route en effet :
Cle_Secondaire.ValeurMinimum = 001
Cle_Secondaire.ValeurMaximum = 999

Tu as mal compris la réponse de Foetus, le nom de sa variable est sans doute mal choisi. Par nombre de zéros il fallait comprendre nombre de chiffres à décaler.

Pour résoudre ton problème, il suffit de faire:

Code :

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

1
2
 
Cle_Final := Cle_Primaire * 1000 + Cle_Secondaire;

La multiplication par 1000 produit arithmétiquement un décalage de trois chiffres décimaux. Si le décalage est constant, pas besoin d'en faire plus, a fortiori pas besoin de passer par des chaînes pour revenir à une valeur entière. je rejoins en ce point la conclusion de Foetus.

Cdlt