TreeView dynamisch aus einer Datenbank füllen

[RWarnecke]

Hallo zusammen,

ich schreibe gerade an einem Programm, wo ich gerne einen TTreeView dynmaisch aus einer Datenbank füllen möchte. Ich habe dazu zwei Tabellen. Die eine Tabelle heißt Category und die andere heißt FAQ.

Strukture von Tabelle Category : (Feld ID ist autoinc)

SQL-Code:

CREATE TABLE CATEGORY (
    ID           INTEGER NOT NULL,
    PARENTID     INTEGER,
    DESCRIPTION  VARCHAR(50) NOT NULL,
    "SEQUENCE"   INTEGER NOT NULL
);

Strukture von Tabelle FAQ : (Feld ID ist autoinc)

SQL-Code:

CREATE TABLE FAQ (
    ID           INTEGER NOT NULL,
    CATID        INTEGER NOT NULL,
    HEADER       VARCHAR(255) NOT NULL,
    CODE         BLOB SUB_TYPE 0 SEGMENT SIZE 120 NOT NULL,
    DESCRIPTION  BLOB SUB_TYPE 0 SEGMENT SIZE 120 NOT NULL,
    NOTES        BLOB SUB_TYPE 0 SEGMENT SIZE 120 NOT NULL
);

Im Moment fülle ich den TreeView mit diesen beiden Funktionen :

Delphi-Quellcode:

procedure TMainForm.FillTreeView;
var
  tmpNode   : TNodeArray;
  I, Count  : integer;
begin
  Count := 0;
  TV_Category.Items.Clear;
  with IBQuery do
  begin
    SQL.Clear;
    SQL.Text := 'SELECT * FROM CATEGORY WHERE PARENTID=0;';
    Open;
    Active := true;
    while not EOF do
    begin
      Setlength(tmpNode, count + 1);
      tmpNode[Count] := TV_Category.Items.Add(nil, Fields[2].AsString);
      Inc(Count);
      next;
    end;
    Active := false;
    for I := 0 to length(tmpNode) - 1 do
    begin
      SQL.Clear;
      SQL.Text := Format('SELECT * FROM CATEGORY WHERE parentid=%d  ORDER BY description;', [i + 1]);
      Open;
      Active := true;
      while not EOF do
      begin
        FillCodeEntries(TV_Category.Items.AddChild(tmpNode[i], Fields[2].AsString), Fields[0].AsInteger);
        next;
      end;
      Active := false;
    end;
  end;
end;

procedure TMainForm.FillCodeEntries(aNode: TTreeNode; catid: integer);
var
  tmpNode : TTreeNode;
begin
  with IBTmpQuery do
  begin
    SQL.Clear;
    SQL.Text := Format('SELECT * FROM faq WHERE catid=''%d'' ORDER BY header;', [catid]);
    Open;
    Active := true;
    while not EOF do
    begin
      tmpNode := TV_Category.Items.AddChild(aNode, Fields[2].AsString);
      tmpNode.ImageIndex := 2;
      tmpNode.SelectedIndex := 2;
      next;
    end;
    Active := false;
  end;
end;

Derzeit sieht meine TreeView so aus :

Zitat:

A
|--AA
|---|
|---|-- Überschrift 1
|---|
|---|-- Überschrift 2
|--AB
|---|
|---|-- Überschrift 1
|---|
|---|-- Überschrift 2
B
|--BA
|---|
|---|-- Überschrift 1
|---|
|---|-- Überschrift 2
|--BB
|---|
|---|-- Überschrift 1
|---|
|---|-- Überschrift 2
C
...

Was auch sehr gut funktioniert. Mein Ziel ist es, eine dynmaische tiefe der Struktur zu bekommen. Das heißt, wenn es keine Unterkategorie mehr gibt, dann sollen die Überschriften aus der Tabelle FAQ als Node eingefügt werden. Ich weiß durch einige Beiträge hier im Forum, dass ich um eine rekursiven Suche nicht drum hinkomme. Wie mache ich am besten aus meinen Zwei Proceduren etwas rekusives ?

Edit: Ansicht der Baumstruktur geändert.