TList.Sort führt zu Stacküberlauf

[Luckie]

Eigentlich habe ich es so gemact wie in den Beispielen auch, nur bekomme ich einen Stacküberlauf:

Delphi-Quellcode:

function CustomCompare(Item1, Item2: Pointer): Integer;
var
  Contact1: TContact;
  Contact2: TContact;
begin
  Result := 0;

  Contact1 := TContact(Item1);
  Contact2 := TContact(Item2);
  if Contact1.FName > Contact2.FName then
    Result := 1
  else
    Result := -1;

procedure TContactCollection.SortContacts;
begin
  FContactList.Sort(CustomCompare);
end;

FContactList ist eine TList.

Aufruf mit:

Delphi-Quellcode:

procedure TfrmAdressen.FillListbox;
var
  i                 : Integer;
begin
  lbContacts.Clear;
  //ContactCollection.MySort;
  ContactCollection.SortContacts;
  for i := 0 to ContactCollection.Count - 1 do
  begin
    lbContacts.Items.AddObject('ItemCaption', ContactCollection.Items[i])
  end;
end;

[alzaimar]

Bei Gleichheit liefert die Funktion nicht 0, sondern -1. Verwende lieber CompareStr bzw. CompareText.

[Luckie]

Mist, das hab eich übersehen. Aber mit CompareStr ist es viel einfachher. Danke für den Tipp.