Thema: Delphi Sortierfunktion

Einzelnen Beitrag anzeigen

Benutzerbild von HariboHunter
HariboHunter

Registriert seit: 5. Okt 2004
Ort: Kentucky
78 Beiträge
 
#1

Sortierfunktion

  Alt 3. Jan 2006, 15:00
Hi Jungs,
Ich hab hier eine Sortierfunktion für eine Treeview.

Code:
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;
die Funktioniert auch wunderbar.
ich möchte aber, das Einträge mit einer bestimmten image, ganz nach oben kommen.
Leider haben ich keinen blassen dunst wie ich das implementieren soll, also frag ich hier.
  Mit Zitat antworten Zitat