Objekt ohne Rückstände aus Speicher löschen

[St.Pauli]

Ich möchte in meiner Basisklasse eine Funktion implementieren, die beim Zerstören der Klasse den kompletten zugewiesenen Speicher auf 0 setzt.

Ist das möglich? Wenn ja, wie kann ich an die Sache herangehen?

[3_of_8]

Du müsstest die Größe der Klasse herausbekommen und dann Einfach alle Bytes von @Self bis PByte(Integer(@Self)+GRÖßE)^ mit 0en überschreiben. Andere Frage: Wozu brauchst du das?

[Dax]

Kuck dir doch mal TObject.InitInstance an ;)

@Drohne: Nein. Das täte es:

Delphi-Quellcode:

FillChar(PInteger(Self)^, InstanceSize, 0);

[3_of_8]

Zugegeben, das ist dann etwas leichter. :mrgreen:

[Dax]

Vor allem das einzig funktionierende ;)

[St.Pauli]

Das Problem ist, dass ich die Methode um den Speicher zu überschreiben im Free der Klasse haben will, also nach dem Motto:

Delphi-Quellcode:

destructor TMeinObjekt.Free;
begin
  JetztLöscheDichSelbst();
end;

[St.Pauli]

OK, ich mache jetzt

Delphi-Quellcode:

procedure TMeineKlasse.FreeInstance;
begin
  FillChar(PInteger(self)^, InstanceSize, 0);
end;

Funktioniert, nur überschreibt es so wirklich alles mit 0?

[3_of_8]

Womit denn sonst? *kratz*

[Dax]

Delphi-Quellcode:

procedure TMeineKlasse.FreeInstance;
begin
  FillChar(PInteger(self)^, InstanceSize, 0);
  inherited;
end;

Sorum! Ansonsten wird der Speicher für das Objekt zwar überschrieben, aber nie freigegeben.

[St.Pauli]

Zitat:

Zitat von 3_of_8

Womit denn sonst? *kratz*

Mit der Frage "nur überschreibt es so wirklich alles mit 0?" stand nicht zur Debatte, ob es 0 oder x oder # in den Speicher schreibt, sondern ob es 0 im ganzen vom Objekt benutzten Speicher schreibt! :roll:

Zitat:

Zitat von Dax

Delphi-Quellcode:

procedure TMeineKlasse.FreeInstance;
begin
  FillChar(PInteger(self)^, InstanceSize, 0);
  inherited;
end;

Sorum! Ansonsten wird der Speicher für das Objekt zwar überschrieben, aber nie freigegeben.

Danke!!!