|
Registriert seit: 23. Jun 2003
416 Beiträge
Delphi 2006 Professional
|
Re: Sortierfunktion
3. Jan 2006, 16: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)
|