VirtualTreeView und Baumstruktur (SQL)

[sh17]

dann kannst Du die Struktur ja so lassen

Baum erstellen

aus

Delphi-Quellcode:

TWarengruppe = class;
public
  ID : String;
  Untergruppen : TWarengruppeObjectList;
end;

var
  root : TWarengruppe;


procedure fuellen;
var
  currNode : TWarengruppe;
  i : Integer;
begin
  
  über alle tabellenzeilen do
  begin
  currNode := root;

  for i := 0 to 9 do
  begin
    if wrg[i] <> '' then
    begin
      currNode := currNode.Untergruppen.GetWrg(wrg[i]); //in getWrg Obj bei Bedarf erstellen
    end else
      break;
  end;

  end;

end;

Ich hoffe, ich hab nix übersehen