Sortierung in einem Treeview

[s14]

Hallo torud,
mit dieser Funktion sollte es gehen:

Delphi-Quellcode:

function CustomSortProc(Node1, Node2: TTreeNode; Data: Integer): Integer; stdcall;
// für das Sortieren von TreeViews, als Parameter an Customsort übergeben:
// Aufruf: TreeView1.CustomSort(@CustomSortProc, 0);
// Data: 0 = Absteigend, 1 = Aufsteigend
begin
  if Data = 0 then
    Result := AnsiStrIComp(Pchar(Node1.Text), PChar(Node2.Text))
  else
    Result := -AnsiStrIComp(PChar(Node1.Text), PChar(Node2.Text));
end;

Delphi-Quellcode:

procedure TForm1.Absteigend1Click(Sender: TObject);
begin
  TV1.CustomSort(@CustomSortProc, 0);
end;

Gruß
s14