Hi Leute
Ich bastel grad an einer Klasse, die ich ab und zu mal in den Ursprungszustand zurückführen muss. Allerdings hat diese Klasse ziemlich viele Felder, die ich nicht alle einzeln auf 0 zurücksetzen will. Also was tun, wo TObject doch kein Assign kann?
Ich machs so:
Delphi-Quellcode:
type
TMiep = class(TObject)
protected
procedure Reset;
end;
procedure TMiep.Reset;
begin
FillChar(Pointer(Integer(Self)+4)^, Self.InstanceSize-4, 0);
end;
Nachher ist jedes Byte der Klasse, das einem Feld entspricht, 0. Das funktioniert jedoch nur bei
TObject und auch nur dann, wenn die Klasse keine weiteren Klassenstrukturen als Felder besitzt, da ansonsten ein Speicherleck ensteht.
Außerdem wird empfohlen zur Sicherheit vor dem Resetten
CleanUpInstance aufzurufen, damit eventuell vorhandene Strings freigegeben werden.
Hoffe es hilft jemandem
read you,
Dax
[edit=Chakotay1308]Hinweise angefügt. Mfg, Chakotay1308[/edit]