Discussion :

[eric_de_bretagne]

Bonjour,
je suis débutant, j'aimerais améliorer ma méthode de trie de mon TObjectList
en vous remercient d'avance,
voici mon code:

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
function compare(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;
 
procedure TForm1.Button1Click(Sender: TObject);var
  Liste : TListeDeTrucs;
  i : integer;
begin
 Liste := TListeDeTrucs.Create(true);
 Liste.Add(TTruc.Create('A'));
Liste.Add(TTruc.Create('C'));
Liste.Add(TTruc.Create('D'));
Liste.Add(TTruc.Create('B'));
Liste.Sort(@compare);
  for i := 0 to Liste.count - 1 do
   begin 
    showMessage(Liste.items[i].libelle);
   end;
  Liste.Free;
end;

le résultat:
D,B,A,C
alors, que je voudrais A,B,C,D
merci d'avance

[free07]

Bonjour,

Effectivement, dans ta fonction Compare tu ne fais pas la comparaison sur la propriété Libelle mais sur la propriété ClassName de l'objet.

( ClassName renvoie une chaine de caractère indiquant le type de l'objet )

[Paul TOTH]

Code :

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

1
2
3
4
5
6
7
8
 
function compare(item1, item2 : pointer) : integer;
var
  truc1: TTruc; absolute item1;
  truc2: TTruc; absolute item2;
begin
  Result := CompareText(truc1.Libelle, truc2.Libelle);
end;

[eric_de_bretagne]

Bonsoir,
Un grand merci pour vos réponses,
merci Paul THOTH, pour votre exemple, je vais le mettre en place.
Je m'y étais très mal pris , car, j'avais essayé une fonction de ce même genre.
Un grand merci
Cordialement

[Andnotor]

On peut directement typer les arguments :

Code :

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

1
2
3
4
function Compare(Truc1, Truc2 : TTruc) : integer;
begin
  Result := CompareText(Truc1.Libelle, Truc2.Libelle);
end;

[Paul TOTH]

On peut directement typer les arguments :

Code :

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

1
2
3
4
function Compare(Truc1, Truc2 : TTruc) : integer;
begin
  Result := CompareText(Truc1.Libelle, Truc2.Libelle);
end;

tu n'as pas l'erreur E2010 Types incompatibles : 'Pointer' et 'TTruc' ? lors de l'appel à TList.Sort(Compare) ?

[Andnotor]

Non, pas d'erreur.

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
type
  TProc = procedure(p :pointer);
 
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    procedure CallProc(aProc :TProc);
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure Proc(aForm: TCustomForm);
begin
  aForm.Caption := 'Andnotor';
end;
 
procedure TForm1.CallProc(aProc: TProc);
begin
  aProc(Self);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  CallProc(@Proc);
end;

[Paul TOTH]

ok, en ajoutant @ devant le nom de la fonction tu peux passer ce que tu veux (avec $T- ce qui est par défaut) mais du coup tu peux utiliser effectivement n'importe quoi, même une variable si tu veux...je ne recommande pas cette approche

[Andnotor]

Je te rejoins, c'est sûr que se passer du contrôle de type doit être fait avec une grande prudence.

Cela dit, le fait que TObjectList.Sort n'ait pas été surchargé est surprenant du fait justement de l'incohérence des arguments. Déclarer des pointeurs sur TList.Sort est logique mais pas sur TObjectList.Sort qui sont effectivement des TObject.
A la première lecture, je me suis d'ailleurs dis que tu t'étais trompé :

Code :

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

1
2
3
4
function compare(item1, item2 : pointer) : integer;
var
  truc1: PTruc; absolute item1;
  truc2: PTruc; absolute item2;

J'ai pris un raccourci mais il y en a aussi dans le code original

[Paul TOTH]

il y a des choses plus évoluées maintenant comme IComparer ou une fonction anonyme.

ceci dit je suppose que TTruc est une classe, donc c'est bien des TTruc et non des PTruc qu'il faut utiliser

[Andnotor]

ceci dit je suppose que TTruc est une classe, donc c'est bien des TTruc et non des PTruc qu'il faut utiliser

C'est ça, une supposition, logique sur TObjectList mais toujours qu'une supposition. Il n'y aurait aucune ambiguïté si TObject était utilisé.

[eric_de_bretagne]

Bonjour,
Merci à tous pour votre aide,
J'ai résolu mon problème,
Discussion résolue
cordialement à tous et bon codding