Hallo an Alle!
Ich hab ein großes Problem!
Ich bin Delphi-Anfänger und hab eine kleine Applikation geschrieben mit einem TTreeView. Es funktioniert, aber: Erstens hab ich Performanceprobleme und zweitens kann ich einige wichtige Dinge damit nicht machen.
Nun hab ich hier im Forum den Verweis auf TVirtualStringTree gesehen, dieses downgeloadet, ca. 1 Stunde mit der Installation verbraten
und jetzt weiß ich nicht mehr weiter
.
Wie kann ich TTreeView nach TVirtualStringTree umsetzen.
Zur Erläuterung mein Code vom TTreeView:
Delphi-Quellcode:
procedure Tstamm.TreeViewInit;
var
tv: TTreeView;
n: TTreeNode;
m: TTreeNode;
ipSender : string;
begin
tv := TreeView1;
tv.Items.BeginUpdate;
tv.Items.Clear;
db_database1.First;
db_database2.First;
db_database3.First;
while not db_database1.Eof do
begin
n := tv.Items.AddChild(nil,db_database1.FieldByName('Name').AsString);
while not db_database2.eof do
begin
m := tv.Items.AddChild(n, db_database2.FieldByName('Nummerbeschreibung').AsString);
while not db_database3.eof do
begin
ipSender := db_database3.FieldByName('Bezeichnung').AsString;
with tv.Items.AddChild(m, ipSender) do
begin
end;
db_database3.Next;
end;
db_database2.Next;
end;
db_database1.Next;
end;
tv.FullExpand;
tv.Items.EndUpdate;
end;
Hoffentlich kann mir jemand helfen, wär sehr wichtig für mich.
Besten Dank im Voraus an Alle, die sich meinetwegen bemühen.
LG Karl