Informations sur les differents types de “Containers” en Pascal.

• Data Structures, Containers, Collections/fr
• TFPList

• TFPList VS TStringList : il vaudrait mieux utiliser TStringList d'aprés les informations contenues sur cette page

Pour utiliser la méthode Sort sur un TList il faut lui fournir une function de comparaison

unit Classes

procedure TList.Sort(Compare: TListSortCompare);
// avec
  TListSortCompare = function (Item1, Item2: Pointer): Integer;

Exemple d'implémentation.

function CompareMarkers(Item1, Item2: Pointer): integer;
var
   vQ1, vQ2: THT_Addr;
begin
   vQ1 := THO_Marker(Item1).Range.Left;
   vQ2 := THO_Marker(Item2).Range.Left;
 
   if vQ2 < vQ1 then
      Result := -1
   else
      Result := 1;
   if vQ2 = vQ1 then
      Result := 0;
end;
procedure THO_MarkerList.SortM;
begin
  Sort(@CompareMarkers);
end;

On en parle ici → https://www.freepascal.org/docs-html/current/rtl/system/ienumerator.html

//A for in loop like the following:
 
For O in MyObject do
  begin
  // do things
  end;
 
//is treated by the compiler as equivalent to the following code:
 
Var
  I : IEnumerator;
  O : TObject;
 
begin
  I:=MyObject.GetEnumerator;
  While I.MoveNext do
    begin
    O:=I.GetCurrent;
    // Do things
    end; 
end.

avec TThreadList → https://www.freepascal.org/docs-html/rtl/classes/tthreadlist.html

• TCollection VS TList VS TObjectList
• TList Of Records : Utilisation d'un TList a la place d'un Array ou Dynamic Array pour contenir des Records.
• les templates -> TList<object>