Habe den ganzen Abend noch an meinem Fehler gesucht, nur leider ohne Ergebnis.
Das Einzige, wo ich vermute, wo das her kommt liegt bei dem Event GetOnText.
Kommentiere ich diesen Teil aus, Läuft mein Programm.
Delphi-Quellcode:
var
Daten : TOMB256PLUS;
begin
Daten := TOMB256PLUS.Create;
Daten := TOMB256PLUS(VST.GetNodeData(Node)^);
case Column of
0: CellText:= IntToStr(Daten.ID);
1: CellText:= IntToStr(Daten.LfdNr);
2: CellText:= Daten.Datum;
3: CellText:= Daten.Uhrzeit;
4: CellText:= Daten.Ereignis;
5: CellText:= Daten.Teilnehmer;
6: CellText:= Daten.Bereich;
end;
end;
Irgenjemand da vieleicht noch eine Idee