Delphi-PRAXiS - Einzelnen Beitrag anzeigen - Delphi VirtualTreeView: Es klappt nicht ganz

**JPSelter**

So, jetzt stosse ich an erste Probleme. Ich habe ein Objekt erzeugt und möchte es an den Baum anhängen. Da läuft er auch durch, aber am Ende (scheinbar bevor er den VTV anzeigen will) kommt eine EAccessViolation. Ich kann den Fehler leider nicht ganz zurückverfolgen, ich weiss nur, dass er aus der VTV Klasse kommt. Delphi bleibt in der Funktion TCustomVirtualStringTree.DoGetText stehen, aber auch nach 2-maligem Durchlauf von TBaseVirtualTree.WndProc. Hier erstmal mein bisheriger Code:

Objekt-Definition:

zusammenfalten · markieren

Delphi-Quellcode:

			// Ebene 0: Sitzungsdaten

  TSessionObject = class

    private

      fdatum: integer;

      fsessiontyp: string;

      fprotokollant: string;

      fteilnehmer: string;

      fverteiler: string;

      fndatum: integer;

    published

      property datum: integer read fdatum write fdatum;

      property sessiontyp: string read fsessiontyp write fsessiontyp;

      property protokollant: string read fprotokollant write fprotokollant;

      property teilnehmer: string read fteilnehmer write fteilnehmer;

      property verteiler: string read fverteiler write fverteiler;

      property ndatum: integer read fndatum write fndatum;

  end;

Neues Objekt wird mit Daten versehen und an den Baum gehangen:

zusammenfalten · markieren

Delphi-Quellcode:

			// insert new session

procedure insertSession();

var SessionObject: TSessionObject;

    datum, ndatum: integer;

begin

  Form1.VST1.NodeDataSize:=SizeOf(TTreeData);

  SessionObject:=TSessionObject.Create;

  try

    datum:=DateTimeToUnix(Form1.DateTimePicker1.Date);

    ndatum:=DateTimeToUnix(Form1.DateTimePicker2.Date);

    SessionObject.datum:=datum;

    SessionObject.sessiontyp:=Form1.ComboBox1.Text;

    SessionObject.protokollant:=Form1.Edit1.text;

    SessionObject.teilnehmer:=Form1.Edit2.Text;

    SessionObject.verteiler:=Form1.Edit3.Text;

    SessionObject.ndatum:=ndatum;

    AddVSTObject(Form1.VST1,nil,SessionObject);

  except

    SessionObject.Free;

  end;

end;

Die eigentliche Anhänge-Funktion:

zusammenfalten · markieren

Delphi-Quellcode:

			// add new structure into VST

function AddVSTObject(AVST: TCustomVirtualStringTree; ANode: PVirtualNode;

  AObject: TObject): PVirtualNode;

var

  Data: PTreeData;

begin

  Result:=AVST.AddChild(ANode);

  AVST.ValidateNode(Result,False);

  Data:=AVST.GetNodeData(Result);

  Data^.FObject:=AObject;

end;

Er läuft da überall ohne Probleme durch, keine Fehlermeldungen, nur am Ende dieses EAccessViolation... vielleicht kennt sich da jemand genauer aus. Danke!