Tri multiple d'un TStringList

Bonjour,
Dans mon application, j'ai un TStringList alimenté à partir d'un fichier texte par un "LoadFromFile".
Ce TStringList contient des chaines qui regroupent:
Station, Latitude, Longitude, Altitude. Elles sont séparées par des virgules.

Je souhaiterait faire un double tri sur les Latitudes par ordre croissant et sur les Longitudes dans le même ordre croissant.
C'est à dire que si plusieurs stations ont une même latitude, elles soient triées par Longitude.

Pourriez vous m'aidez à réaliser ceci?

Merci de votre attention

Cordialement
Pierre

Bonjour !

Pourriez-vous donner un échantillon du fichier ?

Bonjour Roland,

Merci de la réponse.
Voici le fichier utilisé.Pièce jointe 149913
Merci de ce que vous pourrez faire.

Amicalement
Pierre

J'ai écrit un petit bout de code qui semble faire le travail demandé mais seulement lorsque je le compile avec Free Pascal. Quand je le compile avec Delphi, j'ai une erreur à l'exécution. Je ne sais pas pourquoi. Donc je passe la main. :)

Je joins quand même le fichier trié (et aussi le code, afin qu'on puisse éventuellement le corriger).

Bonsoir Roland,

Merci d'avoir eu la gentillesse de consacrer une partie de ton weekend à étudier ma requête.

Je vais de ce pas étudier tout celà et reviendrai te tenir informé de la suite des opérations.

Encore merci

Bien cordialement
Pierre

Bonjour,

Citation:

---

Envoyé par Roland Chastain

Quand je le compile avec Delphi, j'ai une erreur à l'exécution. Je ne sais pas pourquoi. Donc je passe la main. :)

---

Débordement de pile...:aie:

Citation:

---

Envoyé par Ph. B.

Débordement de pile...:aie:

---

Merci d'avoir regardé. C'est bizarre qu'en compilant avec Free Pascal le programme s'exécute sans erreur. :roll:

Citation:

---

Envoyé par Roland Chastain

Merci d'avoir regardé. C'est bizarre qu'en compilant avec Free Pascal le programme s'exécute sans erreur. :roll:

---

En fait, il faut "coller" au principe du tri des chaines, c.a.d. faire les test de comparaison sur les 3 cas possibles :

1. n1 = n2 renvoie 0
2. n1 > n2 renvoie 1
3. n1< n2 renvoie -1

Si on modifie la fonction Compare comme suit :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

function Compare(List: TStringList; Index1, Index2: Integer): Integer; var n1, n2: Single; begin n1 := Latitude(List[Index1]); n2 := Latitude(List[Index2]); if n1 = n2 then begin n1 := Longitude(List[Index1]); n2 := Longitude(List[Index2]); end; if n1 = n2 then // A partir d'ici... Result := 0 else if n1 > n2 then Result := 1 else Result := -1; end;

---

Alors, ça ne plante plus dans Delphi, car on limite les ordres de permutation et donc un empilement excessif... :zoubi:
AMHA, FreePascal n'est pas affecté car soit il utilise une méthode tri un peu différente de Delphi, soit il gère la pile différemment...

Bien vu, Philippe ! :ccool:

Voici une nouvelle version des fonctions Latitude() et Longitude().

Code:

---

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

uses Classes, StrUtils, SysUtils;   function Latitude(const s: string): Single; var i, j: integer; begin i := Pos(',', s); j := PosEx(',', s, i + 1); result := StrToFloat(Copy(s, i + 1, j - i - 1)); end;   function Longitude(const s: string): Single; var i, j, k: integer; begin i := Pos(',', s); j := PosEx(',', s, i + 1); k := PosEx(',', s, j + 1); result := StrToFloat(Copy(s, j + 1, k - j - 1)); end;   ...   begin DecimalSeparator := '.';

---

Bonjour,
Je vois que Philippe s'est joint à Roland pour m'aider.
merci à lui aussi d'avoir pris le temps de réfléchir à mon soucis.

Votre solution marche à merveille et me permet de continuer le développement de mon projet.

Grands merci à vous deux

Bien cordialement
Pierre :merci:

:resolu: