Discussion :

[ero-sennin]

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

Merci

[ShaiLeTroll]

tu dois implémenter une fonction de type TListSortCompare

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

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

TheList.sort(RelationEntiteListCompareProc );

[ero-sennin]

Merci d'avoir répondu si rapidement

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 :

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

[ShaiLeTroll]

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

Code :

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

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

[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 :

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

lesTables.Sort(lesTables.TrierTables);

Cependant, j'ai une erreur

Code :

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

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

On ne peut pas faire de cette façon?

[Bloon]

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

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

[ebastien]

Bonjour,

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.

[ero-sennin]

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

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

Sur ce, je tag