Discussion :

[Charly910]

Bonjour,

je voudrais trier 2 listes de chaines, la première en ordre alphabétique en conservant la correspondance avec la seconde.

Si j'ai :

Liste1 ; Liste2
D ; 2
B ; 1
A ; 3
C ; 4

Je voudrais :

A ; 3
B ; 1
C ; 4
D ; 2

les listes comportent 1000 chaines environ

j'ai pensé regrouper les 2 listes dans une seule avec un séparateur, puis utiliser la méthode sort, puis séparer les 2 listes

Mais ça me parait un peu lourd. Est ce qu'il n'y a pas une méthode plus simple, peut être avec AddObject ?
(mais il faudrait quand même séparer la chaine de son objet ?)

A+
Charly

[papyvore]

salut
charger les listes dans une StringGrid et trier la grille peut être

[Charly910]

Je voudrais éviter de trier la stringGrid.

je pense utiliser ceci :

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
Type
  PElementListe=^TElementListe;
  TElementListe=Record
    elNom   : String ;
    elTaille : String ;
  End;
 
Var Liste:TList;
 
procedure TForm1.Ajouter(Nom, Taille : String ) ;
Var Ele:PElementListe;
begin
  New(Ele);
  With Ele^ Do
  Begin
    elNom    := Nom ;
    elTaille := Taille ;
  End;
  Liste.Add(Ele);
end;
 
 
Procedure TForm1.MAJListBox2;
Var i:Integer;
Begin
  ListBox1.Items.Clear;
  With Liste Do For i:=0 To Count-1 Do
    With TElementListe(Items[i]^) Do ListBox1.Items.Add(Format('%-20s%5s',[elNom,elTaille]));
//  lNombre.Caption := IntToStr(Liste.Count);
//  lCapacite.Caption := IntToStr(Liste.Capacity);
End;
 
Function FonctionTri(Item1,Item2:Pointer):Integer;
Begin
  If PElementListe(Item1).elnom<PElementListe(Item2).elnom Then 
    Result:=-1
  Else 
    If PElementListe(Item1).elnom>PElementListe(Item2).elnom Then 
      Result:= 1
    Else 
      Result := 0 ;
End;
 
 
procedure TForm1.TriListe;
begin
  Liste.Sort(FonctionTri);
  MAJListBox;
end;
 
 
Initialization
  Liste:=TList.Create;
Finalization
  Liste.Free;
end.

j'ai testé ça à l'air de marcher

A+
Charly

[SergioMaster]

Bonjour,

pour le tri, je suis d'accord. Je ne pensais pas que D7 le proposait déjà ou plutôt je ne l'avais jamais utilisé.
Pour les objets tu pourrais peut-être utilisé des paires clé=valeur ?

petit point où je tique : elTaille : String ; ce devrait plutôt être un entier quelconque non ?

D'un autre côté je présume que la demande a été fortement réduite au minimum

[Charly910]

Bonjour Serge,

elNmo est le nom d'une image et elTaille représente ses dimensions sous la forme '1200 x 800 pixels' par exemple. C'est donc une chaine.

Sinon je n'ai pas compris ta remarque sur les paires clé=valeur ? peux tu m'en dire un peu plus ou me donner un petit exemple ?

Merci

A+
Charly

[SergioMaster]

elNmo est le nom d'une image et elTaille représente ses dimensions sous la forme '1200 x 800 pixels' par exemple. C'est donc une chaine.

Tu avoueras que ton exemple de départ A ; 3 prétait à confusion !
Si ElTaille représente les dimensions alors pourquoi ne pas plutôt mettre elLargeur, ElHauteur tant qu'à faire
elTaille devenant un Format('%d x %d pixels',[elLargeur,elHauteur])

Sinon je n'ai pas compris ta remarque sur les paires clé=valeur ? peux tu m'en dire un peu plus ou me donner un petit exemple ?

Je me suis peut-être avancé D7 est loin et j'ai plus en mémoire maintenant les diverses collections génériques idem j'ai plus en tête des TObjects que Record

[Charly910]

Merci pour tes conseils, je vais potasser tout cela.

Sinon la solution actuelle me convient.

A+
Charly