Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
25. Feb 2010
Und du hast das auch in deinem D2010 getestet?
was mir grade auffällt ... Sort und Sort heißen gleich, was natürlich nicht grad von Vorteil ist.
eventuell ja so :gruebel:
procedure TXyzList.Sort;
begin
inherited Sort(
function(Item1, Item2: Pointer): Integer
begin
Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
25. Feb 2010
Was bemängelt denn der Compiler an der anonymen Prozedur? (also an dem ersten Beispiel)
Immerhin hab ich es direkt von Emba aus deren eigenem Sortaufruf.
Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
25. Feb 2010
TListSortCompare ist nunmal nur als Funktion deklariert ... also kann man da nicht einfach eine Methode übergeben.
Versuch mal eines davon
procedure TXyzList.Sort;
begin
Sort(function(Item1, Item2: Pointer): Integer
begin
Result := myCompare(Item1, Item2);
end);
end;