Delphi-Quellcode:
TFIniEntry = class
public
// Markiert den Wert zum löschen, d.h. er wird nicht geschrieben
Deleted: Boolean;
constructor Create;
end;
TFIniFile = class
private
// Sektionen in der Datei
Entries: array of TFIniEntry;
// Index der geöffneten Sektion
CurrentSection: Integer;
Delphi-Quellcode:
destructor TFIniFile.Free(SaveChanges: Boolean = true);
begin
if isChanged and SaveChanges then Save;
Finalize(Entries);
inherited Destroy;
end;
Ich denke, dass Finalize nur das dyn Array dereferenziert aber
nicht die Instanzen von TFIniEntry freigibt.
Dazu müßte vorher durch das Array iteriert werden und die Instanzen
freigeben werden.
Grüße
Klaus