Hallo nuclearping,
es geht doch sicherlich, im Ton, auch etwas freundlicher oder?
Zitat:
Vorallem verstehe ich hier wieder nicht, warum du in deinem Fall mit Klassen als Knotendaten arbeitest, statt mit Records?
Ist ganz einfach! In die Klasse werden später Objects aufgenommen. (Checkboxes, Comboboxes usw)
Zitat:
Oder erwartest du, dass jemand deinen Code kopiert, ein neues Projekt erstellt und es für dich debuggt? ... Oder oder oder?
Um Himmels Willen, das erwarte ich nicht. Aber es könnte ja sein, dass irgendjemand eine Idee hat.
Sobald ich die celltext aus der VSTGetText rausnehme funktioniert das.
Ich habe die get_entry Methode geändert. Bringt auch nichts.
Delphi-Quellcode:
function TForm1.add_entry(node:PVirtualNode;bez,f1,f2,f3,f4,f5,f6:string):PVirtualNode;
var daten:TOmeinedaten;
begin
If node<>nil then
Begin
daten:=vst.GetNodeData(node);
End
else
Begin
daten:=TOmeinedaten.Create;
End;
daten.Bezeichnung:=bez;
daten.Feld[1]:=f1;
daten.Feld[2]:=f2;
daten.Feld[3]:=f3;
daten.Feld[4]:=f4;
daten.Feld[5]:=f5;
daten.Feld[6]:=f6;
result:=vst.addchild(node,daten);
end;
Grüsse
Rainer