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!
