Discussion :

[Alea46]

Bonjour à tous et à toutes.

Pour des besoins de travail, je constitue une clé de recherche dans un TStringGrid.

Cette clé est constituée à partir de nombre :

Code :

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

1
2
3
strgrid1.Cells[0,j]:= floattostr(ceil(latpta/maxsize)-1)
                             + '_' + floattostr(ceil(lonpta/maxsize)-1)
                             +'!' +inttostr(H);

où latpta, lonpta, maxsize numérique et H un index.

Le problème est qu'en alphanumérique, 0_0_2 est après 0_0_19, ce qui donne
0_0!1
0_0!10
0_0!11
....
0_0!19
0_0!2
0_0!20

Pour avoir un tri juste, il faudrait avoir
0_0!01
0_0!02
....
0_0!09
0_0!10
0_0!11
etc... ==> donc avoir l'index tour sur le même nombre de digit, avec 0 avant.

Alors, comment faire cela de façon simple ?

[chris37]

Bonsoir,

La fonction formatFloat permet de régler l'ajout du 0

ShowMessage(FormatFloat('00', 1)); //Affiche 01

Cordialement,
Chris

[Alea46]

Merci chris37 pour cette possibilité.

J'ai moi-même contourné le problème avec un simple division par 1000, ce qui me permet d'avoir le bon classement :

Code :

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

1
2
3
strgrid1.Cells[0,j]:= floattostr(ceil(latpta/maxsize)-1)
                             + '_' + floattostr(ceil(lonpta/maxsize)-1)
                             +'!' +inttostr(H/1000);

ce qui donne :

0_0_0.001
0_0_0.002
....
0_0_0.010
0_0_0.011
etc....

La solution de Chris37 est bien plus intéressante et marche tres bien
0_0_0001
0_0_0002
0_0_0003
....
etc