Hiho,
ich habe folgende Klassenstruktur in meinem Projekt.
Delphi-Quellcode:
type
TItem = class(TCollectionItem)
private
FValue1: byte;
FValue2: int64;
...
FValueX: String;
...
public
property Wert1: BYTE read FValue1;
property Wert2: INT64 read FValue2;
...
property WertX: String read FValueX;
end;
...
TProgressItem = class(TItem)
private
...
public
constructor Create(aItem: TItem);
...
property <Einige neue Schlüssel>
...
end;
...
implementation
...
constructor TProgressItem.Create(aItem: TItem);
begin
inherited ...
...
TItem(self) := aItem;
end;
Mir geht es nun darum das ich beim erstellen der Klasse TProgressItem gern die
Daten aus einem TItem übernehmen möchte. Dies mache ich Moment mit
TItem(self) := aItem;
dies funktioniert zwar auch, aber irgendwie kommt mir dieser Aufruf seltsam vor. Daher
meine Frage, ist dieser Aufruf konform oder gibt es eine andere, elegantere,
sichere Methode?
Danke im voraus