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!

[Stevie]

Zitat:

Zitat von TriphunEM

Kann es sein, dass die vorherigen Daten aus SqlReadOnlyQuery verloren gehen?

Genauso ist es! Du führst ja bei jedem Aufruf der Methode die Abfrage neu aus, deshalb stehen dort beim Rücksprung in die nächst höhere Aufrufebene die Daten des letzten Aufrufs drin. Wenn du das so lösen willst, wie du es in php machst, dann musst du das Abfrage-Ergebnis speichern oder in jedem Aufruf ein Query-Objekt erstellen.

[TriphunEM]

hab bloß keine ahnung wie und wo ich anfangen soll!

[Stevie]

Nicht getestet, aber so ungefähr:

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; 
  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; 

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

[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

???

[Stevie]

Sorry, Fehler oben (aber schon korrigiert). :oops:
Es muss

Delphi-Quellcode:

TempQuery := TZReadOnlyQuery.Create(nil);

heißen!

[TriphunEM]

ja, den hatte ich ja im code schon korrigiert. trotzdem bleibt der oben genannte fehler!
????

[TriphunEM]

wenn ich FreeAndNil(TempQuery); weglassen kommt der fehler nicht mehr, aber das problem wie ganz oben beschrieben ist immer noch. er zeigt mir nicht den ganzen baum an nur den ersten zweig!

[Stevie]

Zitat:

Zitat von TriphunEM

ja, den hatte ich ja im code schon korrigiert. trotzdem bleibt der oben genannte fehler!
????

:shock: Klasse.Create <> Objekt.Create

Wann kommt der Fehler, und wo steht der Debugger danach?

[TriphunEM]

na ne, der fehler kommt nicht mehr. aber mit deinem beispiel hat sich nicht gegenüber dem ersten Problem geändert!

ich bekomm immernoch

Zitat:

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

anstatt

Zitat:

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

???