Record, Array, Class und Schreiben in das Array

[haentschman]

Was passiert?

Delphi-Quellcode:

Releasesteps:=TProgreleaseClass.Create(true); //True = Liste ist Eigentümer der Items

myitem:=TProgreleaseitemClass.create; // erzeugen Item
releasesteps.add(myitem); // Item in Liste
myitem.Free; // Item wegwerfen ... auch auch aus der Liste. Die hällt nur dem Pointer auf das Objekt.

PS: Müßte eine Zugriffsverletzung geben beim "Free" der Liste, weil der Poiner in der Liste schon freigegeben ist.
PS: Dein Code ist schwierig zu lesen wegen der ungewöhnlichen Einrückung und der ungewöhnlichen Groß/Kleinschreibung.

[matashen]

Zitat:

PS: Müßte eine Zugriffsverletzung geben beim "Free" der Liste, weil der Poiner in der Liste schon freigegeben ist.

ja, hab das mit den Pointer vermutet

mir hilft aber dann auch kein

progrelease.items[0]:=myitem, denn dann wird ja auch nur der Pointer verschoben wenn ich das richtig verstehe. also doch im add die Werte in das Item schreiben - schade hatte gehofft es geht einfacher

Zitat:

PS: Dein Code ist schwierig zu lesen wegen der ungewöhnlichen Einrückung und der ungewöhnlichen Groß/Kleinschreibung.

Für die Profis unter euch brauchts halt ein Handicap das es nicht zu luschi ist

Danke für die Erklärung.

[haentschman]

Lass das myItem.Free weg.

Delphi-Quellcode:

type 
  TProgReleaseclass = class(TObjectlist<TProgreleaseItemClass>)
  //private
  //  FSelectedItem:Integer;
  //public
  //  property ItemIndex:Integer read FSelectedItem write FSelectedItem;
  // nicht nötig weil die Liste das kennt

end;

var 
  ReleaseSteps: TProgreleaseClass;
  myItem: TProgreleaseitemClass;

  myObject: TProgreleaseitemClass; // anderes Objekt 
...
Releasesteps := TProgreleaseClass.Create(True);
try
  myItem := TProgreleaseitemClass.Create; 
  myItem.ProductID := 1234;
  myItem.MachineTypeName := 'Wunschkiste';
  myItem.ProgfieldName := 'Test';
  Releasesteps.Add(myItem);

  myObject := Releasesteps[0]; // Index aus der Liste
  myObject.MachineTypeName := 'Bla';

  // [B]myItem[/B] ist das gleiche wie [B]myObject[/B] weil der gleiche Pointer aus der Liste
finally
  Releasesteps.Free; // Alle Items werden feigegeben
end;

[matashen]

Das heist beim Freigeben der gesamten Liste wirds dann automatisch mit weggeballert??

[haentschman]

Zitat:

Das heist beim Freigeben der gesamten Liste wirds dann automatisch mit weggeballert?

...ja wenn der Owner des Objektes die Liste ist. Beim Erzeugen der Liste gibst du das an. http://docwiki.embarcadero.com/Libra...ectList.Create

Delphi-Quellcode:

Releasesteps := TProgreleaseClass.Create(True); // True = Liste ist Owner
...

PS: Bei einer TObjectlist<> ist der Owner standardmäßig immer True. Deshalb reicht auch Releasesteps := TProgreleaseClass.Create;