TVirtualStringTree mit TObjectList

[bcvs]

Du musst für jeden Node eine eigene Instanz von TDataClass erzeugen und die auch in der DataLst speichern:

Delphi-Quellcode:

  Data := TDataClass.Create;
  DataLst.Add(Data);
  Data.Zeitraum := '01/2019';
  vnHead:= AddVSTStructureHeadClass(vstSP, nil, Data);

  Data := TDataClass.Create;
  DataLst.Add(Data);
  Data.Detail.Caption:='Zeile1:';
  Data.Detail.Wert1 := 'Det1 - Wert1';
  Data.Detail.Wert2 := 'Det1 - Wert2';
  Data.Detail.Wert3 := 'Det1 - Wert3';
  AddVSTStructureDetailClass(vstSP, vnHead, Data.Detail);

  Data := TDataClass.Create;
  DataLst.Add(Data);
  Data.Detail.Caption:='Zeile2:';
  Data.Detail.Wert1 := 'Det2 - Wert1';
  Data.Detail.Wert2 := 'Det2 - Wert2';
  Data.Detail.Wert3 := 'Det2 - Wert3';
  AddVSTStructureDetailClass(vstSP, vnHead, Data.Detail);