heap bereinigung

[slai]

Hallo zusammen

gibt es in freepascal eine möglichkeit den heap zu bereinigen, so im stiel des CarbageCollector in Java?

danke für antworten
gruss

[theo]

Sauber Programmieren und alles nicht benötigte freigeben, dann ist der Heap immer "rein"

Strings und Dynamische Arrays werden automatisch freigegeben. Diese kann man auch mit Finalize explizit freigeben, muss man aber nicht.

[mschnell]

Wenn Du mit "Bereinigen" nicht meinst dass die Elemente entfernt werden sollen, die der Programmierer vergessen hat zu entfernen (wir sind hier nicht in einer .NET Umgebung, die über die Verwendung durch den Programmierer von Objekten Buch führt und dafür zusätzliche Ressourcen verbrät), sondern eine "Heap-Defragmentierung" ansprichst: Das geht nicht, weil überall im Programm Pointer auf im Heap liegende Elemente gehalten werden und man diese also nicht hinterrücks verschieben kann.

-Michael

[slai]

Hy theo und mschnell

Danke für die antworten.
mschnell: Ich meinte eigendlich schon das erste also das entfernen von elementen die der Programmierer vergessen hat, habe jedoch nun das problem gefunden das mir mein ram zumüllt, das währe dann der punkt sauber Programmieren von theo

Nun habe ich aber trozdem noch eine frage, ich habe eine Funktion die mir mit result := TZTable(...) irgend ein table meines datamods zurückgibt. Nun ist jedoch (glaube ich zumindest) das problem das mir die funktion jedesmal wenn es mir ein Table zurückgibt eine neue instanz desjenigen erzeugt. Wie kann ich einenPointer auf das jeweilige Table zurückgeben, gibt es da irgendein tutorial oder anleitung wie man in freepascal mit pointern arbeiten kann?

danke für die antworten

[pluto]

Eine Lösung währe den Rückgabe wert aufzufangen und wenn dieser nicht mehr gebraucht wird, einfach die klasse über free z.b. freigeben.

Damit müsste meine ich auch die Instans in der Funktion frei geben werden. Da es ja Pointer sind.

[Christian]

result := TZTable(...)

erzeugt garantiert keine neue instanz der tabelle

[pluto]

nein so nicht, aber um was zurückzugeben z.b. eine TStringlist muss sie ja erstmal erzeugt werden...

[monta]

das kann man ja aber auch umgehen, als Procedure und der Übergabe mit var, dann kannst du sie vor Aufruf erstellen, danach auswerten und freigeben.

Code: Alles auswählen

procedure...;
begin
  TObject... := TObject...CREATE;
  Rückgabe(Tobject...);
  TObject...Free;
end;
 
procedure Rückgabe(var TRückgabe: TObject...)

[pluto]

Irgendwie stellt "deine" code Higleiter Funktion einige Schlüsselwörter falsch da wie z.b. begin end, und var *G*.

Aber dann währe es keine Funktion mehr...var Parameter sind wirklich Praktisch..