Problem mit TObject

[Eppos]

Hallo zusammen,

ich habe ein Problem mit TObject.

Ich habe folgendes gemacht:

Delphi-Quellcode:

Kopf : TObject;

.....

Kopf.Free;

Der Kopf wird aber durch das Free nicht gelöscht?!
Was muss ich tun damit der Kopf gelöscht wird?

Vielen Dank!

[mkinzler]

FreeAndNil( Kopf);

[Eppos]

wenn ich dann aber "kopf" wieder erstelle, bekomme ich eine Fehlermeldung(Access Violation).

[sirius]

Könntest du mal ein bisschen mehr verraten, was du machst?

[Der_Unwissende]

Hi,
erstmal vorweg möchte ich Sirius voll zustimmen, es sind echt wenige Info's die Du da bereit stellst, das macht es nicht gerade einfach Dir zu helfen!

Da Du aber von einem Kopf und Löschen sprichst, denke ich mal, dass Du eine Aufgabe hast, die das Thema Queue/Schlange oder verkettete Liste behandelt? Wenn dem so ist, dann wird kein einfacher Befehl das Löschen übernehmen. Da musst Du schon zeigen, wie Dein kompletter Ansatz bisher aussieht.
Gelöscht wird der Kopf im übrigen mit dem Free schon (aus dem Speicher wird er entfernt), aber Du behälst noch eine Referenz auf diesen Speicherbereich (der allerdings kein gültiges Datum mehr enthält). Mit FreeAndNil sorgst Du dann dafür, dass die Referenz aut. auf nil zeigt, einen Speicherbereich von dem Du (und Delphi) weißt dass er nicht gültig sein kann. Mittels assigned kannst Du dann prüfen, ob der Kopf im Moment auf nil zeigt oder nicht (achtung, Du kannst nicht prüfen ob der Speicher schon frei gegeben wurde!)

Gruß Der Unwissende

[Eppos]

Ich generiere ein TObject mit

kopf.create; In diesem kopf werden mehrere TObjects geladen.

Ich Lösche das TObject mit

kopf.free; dann steht aber im Kopf noch sämtliche Daten drin.
d.h. wenn ich das TObject nochmals erstelle, dann nimmt er die Daten aus dem vorherigen Kopf, obwohl ich diese mit free gelöscht habe.
NilAndFree habe ich auch schon ausprobiert.

Ich komme aber auf keinen grünen Zweig.

[Muetze1]

Zitat von Eppos:

Ich generiere ein TObject mit

kopf.create;

Damit generierst du nix. Wenn, dann den Constructor der Klasse aufrufen:

kopf := TKopf.Create;

Zitat von Eppos:

dann steht aber im Kopf noch sämtliche Daten drin.
d.h. wenn ich das TObject nochmals erstelle, dann nimmt er die Daten aus dem vorherigen Kopf, obwohl ich diese mit free gelöscht habe.

Weil du kein neue Instanz erzeugt hast, hast du natürlich alles beim alten...

[Eppos]

so ungefähr siehts aus...

Delphi-Quellcode:

TKopf = class(TObject)
  A : TObject
...

end;


Kopf := TKopf.Create;
...

Kopf.Free;
Kopf := nil;


...


Kopf := TKopf.Create;
// Fehler Access Violation
// Daten wurden aus vorherigem TKopf nicht gelöscht

[sirius]

Was willst du?
Nach "Kopf:=TObject.create" ist A immer nil.

[Eppos]

ja ist nil, ist richtig, aber ich kann den zweiten create Befehl nicht ausführen, weil ich eine Access Violation bekomme.