Discussion :

[defluc]

Hello,

Je poste ce sujet pour ne pas réinventer la roue.

Je voudrais trier le tableau dynamique déclaré comme suit

Code :

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

ShapeList : Array of Array of Integer;

et dimensionné par

Code :

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

    SetLength(ShapeList, Length(TmpPolygList), 3);

Chaque ligne du tableau est affectée de la façon suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
    For i := 0 to Length(TmpPolygList) - 1 do
    begin
      .
      .
      ShapeList[i, 0] := NoPolyg;
      ShapeList[i, 1] := NoLine;
      ShapeList[i, 2] := Round(LenSegm);
      .
      .
  end

Je voudrais que mon tableau soit trié sur la 3ème colonne.

Merci d'avance

[ShaiLeTroll]

Regarde la function CustomSort d'une TList, prend le code et adapte le à ton tableau ...

[Montor]

Code :

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

ShapeList : Array of Array of Integer;

Je pense qu'il sera mieux si tu déclare ton tableau comme ca

Code :

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

1
2
3
4
5
6
7
8
9
10
type
 PMyType=^TMyType;
 TMyType= record
  Champ1:integer;
  Champ2:integer;
  Champ3:integer;
 end;
TMyTypeArray=array of TMyType;
var
ShapeList : TMyTypeArray;

dimension

Code :

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

SetLength(ShapeList, Length(TmpPolygList));

affectation

Code :

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

1
2
3
4
5
6
7
8
9
10
For i := 0 to Length(TmpPolygList) - 1 do
    begin
      .
      .
      ShapeList[i].Champ1 := NoPolyg;
      ShapeList[i].Champ2 := NoLine;
      ShapeList[i].Champ3 := Round(LenSegm);
      .
      .
  end

fonction de comparaison

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
function comparer(Item1,Item2:Pointer): Integer;
var
 P1,P2:PMyType;
begin
     P1:=Item1;
     P2:=Item2;
    if P1^.Champ3 > P2^.Champ3 then
       Result := 1
    else if P1^.Champ3 = P2^.Champ3 then
      Result :=  0
    else
      Result := -1;
end;

fonctions de trie Bulle pour les tableaux de petite taille et QuickSort pour les gandes tailles

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
procedure QuickSort(var SortList:TMyTypeArray; L, R: Integer;
  SCompare: TListSortCompare);
var
  I, J: Integer;
  P, T: TMyType;
begin
  repeat
    I := L;
    J := R;
    P := SortList[(L + R) shr 1];
    repeat
      while SCompare(@SortList[I], @P) < 0 do
        Inc(I);
      while SCompare(@SortList[J], @P) > 0 do
        Dec(J);
      if I <= J then
      begin
        T := SortList[I];
        SortList[I] := SortList[J];
        SortList[J] := T;
        Inc(I);
        Dec(J);
      end;
    until I > J;
    if L < J then
      QuickSort(SortList, L, J, SCompare);
    L := I;
  until I >= R;
end;
procedure Bulle(var SortList:TMyTypeArray ;L, R: Integer;
  SCompare: TListSortCompare);
var
  I:Integer;
  Permut:boolean;
  T: TMyType;
begin
  repeat
        Permut:=false;
       for I:=L to R-1 do
       if SCompare(@SortList[I],@SortList[I+1])=1 then
         begin
          T:=SortList[I];
          SortList[I]:=SortList[I+1];
          SortList[I+1]:=T;
          Permut:=true;
         end;
  until not Permut;
end;

Opération de trie avec Bulle ou QuickSort

Code :

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

1
2
Bulle(ShapeList,0,Length(ShapeList)-1,comparer);
//QuickSort(ShapeList,0,Length(ShapeList)-1,comparer);

Si tu veux utiliser un Tlist comme Shai a proposé

Code :

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

1
2
var
 ShapeList:TList;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
var
 i:integer;
 element:PMyType;
begin
    For i := 0 to Length(TmpPolygList) - 1 do
    begin
      new(element);
      element^.Champ1:=NoPolyg;
      element^.Champ2:=NoLine;
      element^.Champ3:=Round(LenSegm);
      ShapeList.Add(element);
    end;
    ShapeList.Sort(comparer);

pour supprimer les elements

Code :

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

1
2
For i := 0 to ShapeList.Count - 1 do
    Dispose(ShapeList[i]);

[defluc]

C'est super complet.

Un tout grand merci.

[Andnotor]

Si tu as vraiment un gros tableau, tu pourrais aussi créer un 2ème tableau te servant d'index. Un TSegmentIndex à deux dimensions. La 1ère étant le nombre de segments et la 2ème un index sur ta ShapeList.