Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Codehunter,
30. Sep 2013
Ich habe jetzt testweise zum ersten Mal überhaupt mit TDictionary gearbeitet und muss sagen: WHOOOSA!! Das rennt wie die Hölle :-) Den Code jetzt wie folgt umgebaut:procedure TfrmMain.LoadPlacesTree;
var
Node, ParentNode: PVirtualNode;
Place: PPlaceRec;
Dictionary: TDictionary<Integer, PVirtualNode>;
begin
with qryPlacesList do begin
if not Active then Active:= TRUE;
if...
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Codehunter,
30. Sep 2013
Moin!
Ich habe eine Datenbanktabelle mit ca. 1600 Records. Jeder Record hat u.A. eine ID und eine ParentID. Letztere ist ein Verweis auf die ID eines anderen Datensatzes (beides Integer-Werte). Die Daten füttern einen VirtualTreeView. Hier mein bisheriger Code, der zwar ganz exakt das tut was er soll (die Baumstruktur anhand von ID und ParentID bilden), arbeitet aber gaaaanz schröcklich...