Baumstruktur - rekursive Prodzedur???

[TriphunEM]

hat keiner eine lösung?

[Stevie]

1. pushen erst nach 24 Stunden

2. Die Methode oben funktioniert 100%ig!

Delphi-Quellcode:

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

Schmeiß deine TZReadOnlyQuery vom Form und fertig! :wink:

[TriphunEM]

oh krass. danke hast recht funzt doch...

Danke 1000 mal!