Baumstruktur - rekursive Prodzedur???

[TriphunEM]

Hallo,

ich habe eine MySQL-DB in der Bookmarks in einer Baumstruktur gespeichert sind.
=> id, parent_id, url, description
(parent_id=0 ist root)

In PHP ist es kein Problem den Baum in einer rekursiven Function auszugeben, aber mit Delphi haut das ne ganz hin.

In PHP siehts so aus :

Delphi-Quellcode:

function get_bookmarks($parent_id,$ebene)
{
   $cmd="SELECT * FROM bookmarks WHERE parent_id=$parent_id";
   $result=mysql_query($cmd);
   while ($bookmark=mysql_fetch_array($result))
    {
       echo $ebene.$bookmark['url'];
       get_bookmarks($bookmark['id'],$ebene."- ");
   }
}

get_bookmarks(0,"");

Ergebnis (So wie es sein soll) :

Zitat:

www.1.de
- www.1-1.de
www.2.de
- www.2-1.de
- - www.2-1-1.de
www.3.de

In Delphi benutze ich die Komponente von Zeos. Das funzt auch alles bloß mit der Rekursion komm ich ne ganz hin.
Der zeigt mit nur den ersten Zweig mit Unterzweige an. Aber dort ist das Schluß!

So sieht meine Prozedure aus (Wird erstmal in einer Listbox ausgegeben) :

Delphi-Quellcode:

procedure get_bookmarks(parent_id:integer;ebene:string);
begin
  form1.SqlReadOnlyQuery.SQL.Text:='SELECT * FROM bookmarks WHERE parent_id='+inttostr(parent_id);
  form1.SqlReadOnlyQuery.Open;
  form1.SqlReadOnlyQuery.FieldByName('id').AsString;
  while not form1.SqlReadOnlyQuery.Eof do
  begin
     form1.listbox1.Items.Add(form1.SqlReadOnlyQuery.FieldByName('url').AsString);
     get_bookmarks(form1.SqlReadOnlyQuery.FieldByName('id').AsInteger,'- ');
     form1.SqlReadOnlyQuery.Next;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  get_bookmarks(0,'');
end;

Ergebnis (So wie es NICHT sein soll) :

Zitat:

www.1.de
- www.1-1.de

Was ist in der Prozedure falsch??? Kann es sein, dass die vorherigen Daten aus SqlReadOnlyQuery verloren gehen?

Was muss in der Prozedure anders gemacht werden?

Danke!