Utilisation de Sort d'un Objet TObjectList

Version imprimable

18/04/2007, 16h46
ero-sennin

Utilisation de Sort d'un Objet TObjectList

Bonjour,

Depuis peu, je me suis mis à la programmation objet !
Afin de gérer une collection d'objets, j'ai utilisé un TObjectList.

Dans ce dernier, j'ajoute différents objets qui sont soit de type TEntite ou TRelation... et j'ai besoin de trié cette collection d'objets de façon à avoir, lors de la lecture de la collection, tous les objets de type TEntite puis seulement ceux de TRelation.

J'ai vu qu'il existait une méthode Sort mais je ne sais pas comment elle fonctionne. J'ai biensur regarder dans l'aide de Delphi et sur ce forum mais je n'avance pas pour autant.

Donc pour résumer, mon programme créé des objets de type TEntite et TRelation qui sont stockés dans une collection que je dois trié selon la description si dessus.
Pourriez vous me décrire la démarche à suivre?
Est-ce cette méthode qu'il faut utiliser?

J'espère que vous me suivez :roll:

Merci

tu dois implémenter une fonction de type TListSortCompare
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 function RelationEntiteListCompareProc (Item1, Item2: Pointer): Integer; function GetScore(AItem: Pointer): Integer; begin try if TObject(AItem).ClassType = TEntite then Result := -1; else if TObject(AItem).ClassType = TRelation then Result := 0; else Result := 1; except Result := 1; end; end; begin Result := GetScore(Item1) - GetScore(Item2); end;
test j'ai pondu ça à l'instant je suis pas sur du calcul ... j'ai plus l'habitude du TStringListSortCompare qui semble être calculé dans l'autre sens ...
Edit 1 : d'après le code, l'aide est fausse !
Edit 2 : l'aide de Delphi 6 semble bonne, c'est de D7 non !
Edit 3 : ces problèmes d'aide, m'ont poussé à testé, donc cela fonctionne ...

Code:

TheList.sort(RelationEntiteListCompareProc );

Merci d'avoir répondu si rapidement :P

Citation:

function RelationEntiteListCompareProc (Item1, Item2: Pointer): Integer;

function GetScore(AItem: Pointer): Integer;

La j'avoue ne pas trop comprendre pourquoi utiliser 2 fonctions :?
Peux-tu m'en dire plus ?

Je voyez plus un truc du genre :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 function TCollectionDeTables.TrierTables(Item1, Item2: Pointer): Integer; begin try if TObject(Item1).ClassType > TObject(Item2).ClassType then Result := -1; else begin if TObject(Item1).ClassType < TObject(Item2).ClassType then Result := 0; else Result := 1; end; except Result := 1; end; end;
Merci

18/04/2007, 20h36
ShaiLeTroll

Tu voulais utiliser la méthode Sort de la Liste non ?

Code:

TheList.sort(RelationEntiteListCompareProc );

ton TrierTables c'est pareil que RelationEntiteListCompareProc , à partir que les opérateurs > sur les classtype, je n'en suis pas convaincu ...

ensuite GetScore est une function interne à RelationEntiteListCompareProc, seule cette dernière peu y accèder

sinon, c'est des procédures non objet par que Sort veut une function non objet ...
18/04/2007, 21h07
ero-sennin

Ah ok!

J'ai repris ton code et j'essaie de compiler mais apparemment je m'y prends mal !

Alors voilà :

J'ai différente classe :
TBD
TRelation
TEntite
TCollectionDeTables

(J'ai simplifié).

J'ai déclaré et implémenté la fonction TrierTables dans la classe TCollectionDeTables.(j'ai donc repris ton code)

Ensuite, dans la classe TBD, j'ai une variables lesTables de type CollectionDeTables et c'est de la que je veux appeler la méthode Sort.

Je fais donc, à partir de la classe TBD ceci:

Code:

lesTables.Sort(lesTables.TrierTables);

Cependant, j'ai une erreur :?

Code:

[Erreur] Bd.pas(51): Types incompatibles : 'procédure normale et pointeur de méthode'

On ne peut pas faire de cette façon?

Voici un exemple d'un TObjectList qui trie ses objets en fonction du nom de la classe :

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
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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, contnrs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
  TObjectListTriable = class(TObjectList)
  public
    procedure trierParClasse;
  end;
 
var
  Form1: TForm1;
 
implementation
 
function compareClassName(item1, item2 : pointer) : integer;
begin
  if TObject(item1).className > TObject(item2).className then
    result := 1
  else if TObject(item1).className < TObject(item2).className then
    result := -1
  else
    result := 0;
end;
 
{$R *.dfm}
 
{ TObjectListTriable }
 
procedure TObjectListTriable.trierParClasse;
begin
  sort(@compareClassName);
end;
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
var
  l : TObjectListTriable;
  i : integer;
begin
  l := TObjectListTriable.Create(true);
  l.add(TButton.Create(nil));
  l.add(TForm.Create(nil));
  l.add(TEdit.Create(nil));
  l.add(TButton.Create(nil));
  l.add(TEdit.Create(nil));
  memo1.Lines.Add('Avant le tri :');
  for i := 0 to l.count - 1 do
    memo1.Lines.Add(intToStr(i) + ' : ' + l.items[i].className);
  l.trierParClasse;
  memo1.Lines.Add('Après le tri :');
  for i := 0 to l.count - 1 do
    memo1.Lines.Add(intToStr(i) + ' : ' + l.items[i].className);
  l.Free;
end;
 
end.

Bloon

19/04/2007, 10h13
ebastien

Bonjour,

Citation:

Envoyé par ero-sennin

Cependant, j'ai une erreur

C'est normal : La méthode TList.sort attend comme paramètre un pointeur sur une fonction et tu lui fournis un pointeur de méthode. Dans les exemples qui t'ont été donnés, regarde bien, c'est une simple fonction et non une méthode d'objet qui détermine la façon comparer 2 éléments de la liste.
De plus, fait attention, ta fonction TrierTables me semble incorrecte : Le resultat doit être égal à 0 si tes deux items sont identiques. Regarde bien les exemples de fonction de ShaiLeTroll et de Bloon.
Eb.
19/04/2007, 13h11
ero-sennin

Ah ok! Autant pour moi, je n'avais pas vraiment fait attention :aie:

Merci à tous , et merci de m'avoir expliqué mon erreur!

Sur ce, je tag :resolu:

;)