Hallo,
wie sieht denn dein OnGetText jetzt aus ?
Hoffentlich nur so was wie
Delphi-Quellcode:
var
Daten : TOMB256PLUS;
begin
Daten := TOMB256PLUS(VST.GetNodeData(Node)^);
ohne das .Create
Zum zumüllen:
- Task-Manager benutzen
- MemCheck benutzen
Ausserdem habe ich gesehen, verwendest du RecordCount und Last, das ist schlecht,
wozu brauchst du das Count ?
Besser wäre es, es selber zu zählen.
RecordCount:
============
Select * from Tabelle und alle Datensätze übers Netz ziehen
und dabei laaaangsam zählen
-> durch Select Count(*) ersetzen
Last
====:
Ähnlich wie RecordCount
was benutzt du zum Zugriff auf Firebird ?
->
SQL-Monitor benutzen
Update
======
Jetzt habe ich mir mal die vorige eite angesehen.
Du bekommst über Generator/Trigger eine neue ID
und benutzt Select * -> Last, um an die Id ranzukommen.
Ist "Suboptimal".
Wenn du wirklich der einzige bist, der in die
DB schreibt,
reicht ein
Select Max(Id) As ID_Max From TableX
Das erneute Auslesne der Daten ist nicht nötig,
die hast du (abgesehen von der ID) ja gerade eingetragen.
Bist du nicht der einzige, holst du dir per
select Gen_Id(Generator_Variable,1)
den nächstgößten ID-wert (der Generator wird hier auch gleichzeitg mit erhöht)
und trägst den Datensatz incl. der ID ein.
Heiko
Heiko