Record, Array, Class und Schreiben in das Array

[matashen]

Guten Morgen DP,

hab jetzt den Code umgeschrieben von Record auf Class, leider kommen die Daten in der Liste nicht an, abweichend zu jaenicke habe ich nicht beim Item.Create die ganzen Variablen übergeben sondern ein Item erstellt, befüllt und dann per Add hinzugefügt. Es wird auch ein Item erstellt zumindest geht der Count hoch, aber der Inhalt ist dann leer. Muss ich wirjklich im Create des Items die Variablen schreiben, dachte das geht automatisch. Hab auch gegoogelt und dieses Beispiel sieht ziemlich nach meiner Anwendungaus.
https://www.codersblog.de/generische-listen-in-delphi/

Code Teile zusammenkopiert

Delphi-Quellcode:

type TProgReleaseItemClass=Class
      public
        ProductID:Integer;
        MachineTypeName:String;
        ProgfieldName:String;
     
End;

erweitert um einen Index - brauch ich für spätere Funktionen

Delphi-Quellcode:

type TProgReleaseclass=class(TObjectlist<TProgreleaseItemClass>)
       private
          FSelectedItem:Integer;
       public
       property ItemIndex:Integer read FSelectedItem write FSelectedItem;

end;

var   ReleaseSteps:TProgreleaseClass;
      myitem:TProgreleaseitemClass;

...
Releasesteps:=TProgreleaseClass.Create(true);
...
myitem:=TProgreleaseitemClass.create;
myitem.ProductID:=1234;
myitem.MachineTypeName:='Wunschkiste';
myitem.ProgfieldName:='Test';

releasesteps.add(myitem);
myitem.Free;

und dann versuche ich Daten raus zu lesen, bekomm aber nichts da ich

Gruß Matthias