Baumstruktur selber zeichnen

[ibp]

Hallo,
ist zwar nicht optimal aber als Grundstruktur sollte es so gehen...

Delphi-Quellcode:

procedure printTree(const aPR, alevel:integer);
var
 aQuery:TQuery
begin
  aQuery:=TQuery.Create(nil);
  try
    aQuery.Database := 'myTrallalal'
    aQuery.SQL.Text := 'select INR,aa,bb,cc from myTable where PR=:pPR';
    aQuery.params[0].asinteger = aPR;
    aQuery.Open;
    while not aQuery.eof do 
    begin
      // hier jetzt print Daten, den aLevel kann man 
      // als Multiplikator für den Einzug benutzen
      ....
      printTree(aQuery.fieldbyname('INR',aLevel+1); // rekursiver Aufruf der Childs
      aQuery.next;
    end;
  finally
    aQuery.Free;
  end;
end


begin
  ..
  printTree(1,0);
  ..
end;