Hallo erstmal an alle Delhpispezialisten!!!
Ich habe folgendes Problem:
So sieht im Mom mein Code aus:
Delphi-Quellcode:
procedure TMainForm.GetTablesT2;
var
i, j : Integer;
node, fnode : TTreeNode;
list : TStrings;
begin
i := 14; // Database-Nr.: KSH_Programming
ADOConnection1.GetTableNames(ComboBox1.Items);
TreeView2.Items.Clear;
list := TStringList.Create;
try
begin
node := TreeView2.Items.AddChild(nil, ComboBox1.Items[i]);
ADOConnection1.GetFieldNames(ComboBox1.Items[i], list);
for j:=0 to list.Count -1 do
begin
fnode := TreeView2.Items.AddChild(node, list[j]);
end;
end;
finally
list.Free;
end;
end;
Ich moechte jetzt aber nicht die TableNames, sondern direkt auf die FiledNames zugreifen und aus denen den Baum erstellen. Denn im Moment wird ein Bau aus den Spalten der Tabelle erstellt.
Die Tabelle hat 3 Spalten: id, owner_id, bla;
die id mit owner_id=0 soll immer ein Knoten sein.
Ich hoffe ich hab mich nicht unverstaendlich ausgedrueckt.