ListView "extern" sortieren

[Markus K.]

Hallo Yheeky,
du kannst es ja mal mit diesem Code versuchen.

Delphi-Quellcode:

function CustomSortProc(Item1, Item2: TListItem; ParamSort: integer): integer; stdcall;
begin
  Result := -CompareText(Item1.Caption,Item2.Caption);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListView1.CustomSort(@CustomSortProc, Spalte);
end;

Ein + vor CompareText sollte aufsteigend sortieren, ein - absteigend.

Tschüß Markus