Discussion :

[smail21]

Bonjour
j'ai un champs 'Code' dans ma table, de type String(10)
les 6 premières positions je les génère en concaténant des chiffres et des lettres. exemple : D24563
mon problème se situe dans les 4 dernières position qui sont un numéro séquentiel
donc lorsque je génère un numéro séquentiel exemple : 2
je dois l'insérer autant que caractère sur 4 position de façon à avoir '0002'
et après concaténation je dois avoir 'D245630002' au lieu de 'D245632'

comment faire ?

[LinkinSelim]

cree une function qui converti un entier en un String(4),
son fonctionnement sera comme suit :
fonction(i):string;
si i<10 alors retourner "000"+inttostr(i)
sinon si i<100 alors retourner "00"+inttostr(i)
sinon si i<1000 alors retourner 0"+inttostr(i)
sinon retourner inttostr(i)

j'espere que ca va t'aider, mnt a toi d'ecrire le programme :p

[Rayek]

Code :

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

Monchiffre := Format('%s%4i',['D245632',2]);

Un petit coups de sur Format pour plus de détails

cree une function qui converti un entier en un String(4),
son fonctionnement sera comme suit :
fonction(i):string;
si i<10 alors retourner "000"+inttostr(i)
sinon si i<100 alors retourner "00"+inttostr(i)
sinon si i<1000 alors retourner 0"+inttostr(i)
sinon retourner inttostr(i)

j'espere que ca va t'aider, mnt a toi d'ecrire le programme :p

Maintenant tu me fais la même réflexion avec 000000000000000000000002

[smail21]

[QUOTE=Rayek;3453735]

Code :

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

Monchiffre := Format('%s%4i',['D245632',2]);

Salut Rayek
j'ai essayé ton code , j'ai eu un message d'erreur Format incorrect '%s%4i'

j'ai retité le i, ça a pu s'exectuter
mais je n'ai eu aucun résultat

j'ai essayé : Monchiffre := Format('5 %s%4i',['D245632',2]);
j'ai obtenu 5D245632

c'est pas ce que je voulais avoir, si au moins il m'avait donné 0005D245632 !

[banban54]

bonjour

méthode artisanale:

Code :

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

Texte := 'D245632' + copy(IntToStr(10000 + 2),2,4);

mais qui fonctionne!
a+

[Cl@udius]

Salut

Une petite erreur d'inattention de la part de Rayek.

Essaye comme ceci:

Code :

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

Monchiffre := Format('%s%.4d', ['D245632',2]);

Cl@udius

[edam]

normalement mieux que tu utlise un champ calculer, et laissé le champ code de type integer, car cette présentation ne sera utile que à l'affichage
pour ma part je préfére:

Code :

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

ShowMessage(FormatFloat('00000',2));

pourquoi pas ta prpre fonction:

Code :

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

1
2
3
4
5
Function   MetZero(v:integer;n:integer):string;
begin
     Result:=inttostr(v);
     while length(Result)<n do Result:='0'+Result;
end;

[Rayek]

Salut

Une petite erreur d'inattention de la part de Rayek.

Essaye comme ceci:

Code :

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

Monchiffre := Format('%s%.4d', ['D245632',2]);

Cl@udius

Comme je ne l'utilise que rarement, me suis planter dasn la synthaxe mais l'idée etait la

[Gilbert Geyer]

Salut,

Code :

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

1
2
3
4
5
6
7
8
9
10
var MesSixPremiers : string[6];
    MesQuatreDerniers : string[4];
    MonSequentiel : integer;
begin ...
        MesSixPremiers:='D24563';
        MonSequentiel:=2;
        MesQuatreDerniers:=intToString(MonSequentiel);
        While length(MesQuatreDerniers)<4 do MesQuatreDerniers:='0'+MesQuatreDerniers;
        Result:=MesSixPremiers + MesQuatreDerniers; // = D245630002
end;

A+

[Rayek]

On pouvait aussi faire de la manière suivante :

Code :

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

1
2
3
4
 
MaPremierpartie := 'D24563';
MaDeuxiemepartie := '2';
MonChiffre := MaPremierpartie + StringOfChar('0',4 - Length(MaDeuxiemepartie)) + MaDeuxiemepartie;

50 méthodes différente pour un même résultat

[smail21]

Merci beaucoup
j'ai résolu ça avec le correctif de Cl@udius
ciao