Alle Felder einer Klasse resetten

[Dax]

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]