Delphi Sortierfunktion - Delphi-PRAXiS

Thema durchsuchen

Ansicht

Themen-Optionen

Sortierfunktion

Ein Thema von HariboHunter · begonnen am 3. Jan 2006 · letzter Beitrag vom 18. Jan 2006

Vorheriger Beitrag

Nächster Beitrag

HariboHunter

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

Re: Sortierfunktion

18. Jan 2006, 08:54

markieren

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));