Thema: Delphi Sortierfunktion

Einzelnen Beitrag anzeigen

Niko

Registriert seit: 23. Jun 2003
416 Beiträge
 
Delphi 2006 Professional
 
#2

Re: Sortierfunktion

  Alt 3. Jan 2006, 17:51
Hi,

das müsste mit folgender Vergleichsfunktion funktionieren, wobei myIdx der Index des Bildes ist, das nach oben soll:

Delphi-Quellcode:
if (Node1.ImageIndex = myIdx and Node2.ImageIndex <> myIdx) then
  Result := -1;
else if (Node2.ImageIndex = myIdx and Node1.ImageIndex <> myIdx) 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));
"Electricity is actually made up of extremely tiny particles called electrons, that you cannot see with the naked eye unless you have been drinking." (Dave Barry)
  Mit Zitat antworten Zitat