Baumstruktur - rekursive Prodzedur???

[TriphunEM]

also der code müsste jetzt so aussehen

Delphi-Quellcode:

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

aber ich bekomme beim compilieren folgenden Fehlermeldung :

Zitat:

Operation bei geschlossener Datenmenge nicht ausführbar

???