bind arguments

[hansmaad]

Hi,
es geht um das Sortieren einer Liste bzw. ganz allgemein um Funktions- /Methodenzeiger.
Von der C++ STL ist man Funktionsobjekte von fast jedem Algorithmus gewöhnt und benutzt fleißig Funktionen wie binder1st, mem_fun oder tr1::bind. Nun suche ich vergeblich nach einer entsprechenden Funktionalität in Delphi. Ein Beispiel:

Delphi-Quellcode:

function MyCompare(asc:Boolean; lh, rh: Pointer): Integer;
begin
  if asc then
    // so
  else
   // anders
end;

type
  MyCompareClass=class
  asc:Boolean;
  constructor Create(a:Boolean);
  function Compare(lh, rh:Pointer):Integer;
  end;

procedure MyProc();
var
  L:TObjectList;
  C:MyCompareClass;
begin
  L := TObjectList.Create();
  // ....
  // binde false an MyCompare
  L.Sort(Bind(@MyCompare, false));

  C := MyCompareClass.Create(false);
  // Binde Objektzeiger an Methode
  L.Sort(Bind(@MyCompareClass.Create, @C));

  C.Free;
  L.Free;
end;

Die Frage ist nicht wie das Beispiel zu lösen ist, sondern ob Prinzipiell die Möglichkeit besteht Argumente an Funktionen zu binden.
Besonders interresant wäre ein Objekt an eine Methode zu binden um diese als Vergleichsfunktion für Sort verwenden zu können.

Danke&Gruß

pselphi 5