Thema: Delphi Sortierfunktion

Einzelnen Beitrag anzeigen

Benutzerbild von HariboHunter
HariboHunter

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

Re: Sortierfunktion

  Alt 18. Jan 2006, 08:54
Delphi-Quellcode:
  if (Node1.ImageIndex = 0) and (Node2.ImageIndex <> 0) then
  Result := -1
else if (Node2.ImageIndex = 0) and (Node1.ImageIndex <> 0) then
  Result := 1
else if Data = 0 then
  Result := AnsiStrIComp(Pchar(Node1.Text), PChar(Node2.Text))
else
  Result := -AnsiStrIComp(PChar(Node1.Text), PChar(Node2.Text));
waren noch ein paar kleine Flüchtigkeitsfehler.
So passt es, vielen Dank

->> Problem solved
  Mit Zitat antworten Zitat