Sortierfunktion für Treestruktur

[omata]

Hallo Hans,

da du die PrevID auch speichern willst wirst du das wohl nicht direkt aus der DB auslesen können.

Hier mal mein Vorschlag...

Delphi-Quellcode:

type
  TItem = class
    fID : integer;
    fParentID : integer;
    fPrevID : integer;
  end;

  TItemList = class(TList)
  public
    procedure TreeSort;
  end;

:
:

procedure loadFromDB
var SDS:TSimpleDataSet;
    Item:TItem;
begin
  SDS:=TSimpleDataSet.Create(Self);
  try
    SDS.Connection:=...
    SDS.DataSet.CommandText:=
      'SELECT id, parentid, previd'#13 +
      'FROM treetable'#13 +
      'ORDER BY parentid, previd';

    SDS.Open;
    while not SDS.Eof do begin
      Item:=TItem.Create;
      Item.fID:=SDS.FieldByName('id').AsInteger;
      Item.fParentID:=SDS.FieldByName('parentid').AsInteger;
      Item.fPrevID:=SDS.FieldByName('previd').AsInteger;
      ItemList.Add(Item);
      SDS.Next;
    end;
    SDS.Close;
    ItemList.TreeSort;
  finally
    SDS.free;
  end;
end;

function CompareNames(Item1, Item2: Pointer): Integer;
var ItemA, ItemB:TItem;
begin
  ItemA:=TItem(Item1);
  ItemB:=TItem(Item2);
  if ItemA.fParentID > ItemB.fParentID then
    Result:=1
  else if ItemA.fParentID < ItemB.fParentID then
    Result:=-1
  else begin
    if ItemA.fID > ItemB.fID then
      Result:=1
    else if ItemA.fID < ItemB.fID then
      Result:=-1
    else
      Result:=0;
  end;
end;

procedure TItemList.TreeSort;
begin
  Self.Sort(@CompareNames);
end;

Edit: Mir fällt gerade auf, dass ich leider nicht verstehe was du eigentlich willst. Für mich ist deine Beschreibung leider nicht eindeutig genug. Was ist den die PrevID? Ich dachte das wäre die ID von dem Node vor dem aktuellen Node. Nur warum steht der in der DB? Ist das nicht redundant? Wie wäre es mit ID, ParentID, Reihenfolge..., ich bin verwirrt. Vielleicht hilft dir ja mein Beispiel trotzdem irgendwie weiter.

Gruss
Thorsten