Discussion :

[Pierre95]

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

[Roland Chastain]

Bonjour !

Pourriez-vous donner un échantillon du fichier ?

[Pierre95]

Bonjour Roland,

Merci de la réponse.
Voici le fichier utilisé.wx_station_list_orig.rar
Merci de ce que vous pourrez faire.

Amicalement
Pierre

[Roland Chastain]

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).

[Pierre95]

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

[Ph. B.]

Bonjour,

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...

[Roland Chastain]

Débordement de pile...

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

[Ph. B.]

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

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 :

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
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...
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...

[Roland Chastain]

Bien vu, Philippe !

[Roland Chastain]

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

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
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 := '.';

[Pierre95]

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