Registriert seit: 24. Okt 2006
Ort: Seifhennersdorf / Sachsen
5.387 Beiträge
Delphi 12 Athens
|
AW: Record, Array, Class und Schreiben in das Array
11. Jul 2024, 11:37
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;
Geändert von haentschman (11. Jul 2024 um 11:56 Uhr)
|