Na denn: Eine Prozedur, um alle Artikel einer Kategorie und Unterkategorien auszulesen.
Delphi-Quellcode:
Procedure ListArticles (aParentID : Integer; aArticles : TStrings);
Begin
myQuery := TADSQuery.Create(...);
...
myQuery.SQL.Text := 'Select * from Artikel a join categories c on a.catID = c.catID where c.ParentID = '+IntTostr (aParentID);
myQuery.Active := True;
while not myQuery.eof do begin
if aArtikles.IndexOf(myQuery['ARTIKELNAME'])=-1 then begin
aArticles.add(myQuery['ARTIKELNAME']);
ListArticles (myQuery['CATID'], aArticles);
end;
myQuery.next;
end;
myQuery.Close;
myQuery.Free;
End;
Na ja, und Resourcenschutzblöcke noch, und die Feldnamen und Tabellennamen richtig machen und so.