FastIniFiles Memory Leaks

[API]

Hallo

Bin auf FastIniFiles (http://home.arcor.de/smartprog4u/) umgestiegen weil es ein paar nette Funktionen bietet und schneller läuft.
Das Problem: Beim Beenden des Programms gibt es Memory Leaks.

Testcode:

Delphi-Quellcode:

uses
 FastIniFiles;

procedure TForm1.FormCreate(Sender: TObject);
begin
  with TFIniFile.Create('C:\...\test.ini') do
  try
  (*........*)
  finally
    Free;
  end;
end;

Leaks:

Zitat:

----------------------------------------------------------------------------
|+Memory Leak: Type=Data; Total size=32; Count=2 |
|--------------------------------------------------------------------------|
|004AD2E6|Project1.exe|FastIniFiles.pas|TFIniFile| Create |346[92] |
|004AD2FC|Project1.exe|FastIniFiles.pas|TFIniFile| Create |347[93] |
|--------------------------------------------------------------------------|
| |
|+Memory Leak: Type=TFIniValue; Total size=32; Count=2 |
|--------------------------------------------------------------------------|
|004AD361|Project1.exe|FastIniFiles.pas|TFIniFile| Create |354[100]|
|004ACF13|Project1.exe|FastIniFiles.pas|TFIniFile| Create |243[9] |
----------------------------------------------------------------------------

Ein Leak soll gem. Anzeige oben hier auftreten:

Delphi-Quellcode:

constructor TFIniFile.Create(const FileName: string; CommentChar: Char = '#');
var
  Stream: TStream;
begin
  //...
  Self := Create(Stream);
  Stream.Free;
end;

Warum denn? Das Ini File wird ja wieder freigegeben und sobit der Stream auch??

Zudem gibt es noch etliche andere Leaks. Vermutlich in den Destruktoren. Wer findet noch welche?

Genügt z.B das Finalize oder braucht es noch ein for i := Low(Values) to High(Values) do Values[i].Free; ?

Delphi-Quellcode:

destructor TFIniSection.Free;
var
 i: Integer;
begin
  Name := '';
  Finalize(Values);
  inherited Free;
end;

[Chemiker]

Hallo API,

ich kenne jetzt nicht FastIniFiles, aber ich könnte mir vorstellen wenn es sich um eine Class handelt, dass man sie nicht mit free freigibt, sondern mit destory.

Bis bald Chemiker

[jfheins]

.Free ist ein Prozedur, die auf <>nil prüft und dann destroy aufruft, .Free ist also mindestens equivalent, wenn nicht gar vorzuziehen ggü. destroy

[hoika]

Hallo,

wer programmiert denn so schlimm

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  FIniFile: TFIniFile;
begin
  FIniFile:= TFIniFile.Create('C:\...\test.ini');
  try
  finally
    FIniFile.Free;
  end;
end;

oder mit dem with

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  with TFIniFile.Create('C:\...\test.ini') do
  begin
    try
    (*........*)
    finally
      Free;
    end;
  end;
end;

Schönes Bsp., wie man sich mit with Probleme bereiten kann
(liegt aber nicht am with, sondern an der Programmierung).

Delphi-Quellcode:

constructor TFIniFile.Create(const FileName: string; CommentChar: Char = '#');
var
  Stream: TStream;
begin
  //...
  Create(Stream);
  Stream.Free;
end;

Heiko

[jfheins]

Ich glaube eher es liegt hier: Self := Create(Stream);

Das passiert eigentlich implizit im constructor - mit anderen Worten: Es wird ein Objekt erstellt, an Self zugewiesen und dann der Kontruktor aufgerufen. Wenn der jetzt noch ein Objekt erstellt und wieder an Self zuweist dann geht jede Referenz auf das erste verloren, aber der Speicher wird nicht freigegeben.

[API]

Zitat von jfheins:

Ich glaube eher es liegt hier: Self := Create(Stream);

Das passiert eigentlich implizit im constructor - mit anderen Worten: Es wird ein Objekt erstellt, an Self zugewiesen und dann der Kontruktor aufgerufen. Wenn der jetzt noch ein Objekt erstellt und wieder an Self zuweist dann geht jede Referenz auf das erste verloren, aber der Speicher wird nicht freigegeben.

Wie kann man das beheben?

@hoika: Was ist denn daran falsch?

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject); 
var 
  FIniFile: TFIniFile; 
begin 
  FIniFile:= TFIniFile.Create('C:\...\test.ini'); 
  try 
  finally 
    FIniFile.Free; 
  end; 
end;

[hoika]

Hallo,

Delphi-Quellcode:

destructor TFIniSection.Free;
var
i: Integer;
begin
  Name := '';
  Finalize(Values);
  inherited Free;
end;

Delphi-Quellcode:

destructor TFIniSection.Destroy;
var
i: Integer;
begin
  Name := '';
  Finalize(Values);
  inherited Destroy;
end;

Heiko

[himitsu]

Delphi-Quellcode:

destructor TObject.Destroy;
procedure TObject.Free;

Destroy ist der Destructor !

Und beim Destructor nie das Override vergessen !

[API]

@hoika: Bei beiden Varianten wird der
destructor TFIniFile.Free(SaveChanges: Boolean = true); aufgerufen.

Zudem: Warum kann man das nicht mit with machen? Danach muss überall ein FIniFile. geschrieben werden, der Code wird unschön (/größer)

Delphi-Quellcode:

var
  FIniFile: TFIniFile;
begin
  FIniFile:= TFIniFile.Create('C:\...\test.ini');
  try
    if FIniFile.SectionExists('Section') then 
    begin
      FIniFile.EnterSection;
      ... := FIniFile.ReadString('Value1');
    end;
    FIniFile....
    FIniFile.....
    FIniFile.... usw..
  finally
    FIniFile.Free;
  end;

[API]

Zitat von himitsu:

Delphi-Quellcode:

destructor TObject.Destroy;
procedure TObject.Free;

Destroy ist der Destructor !

Und beim Destructor nie das Override vergessen !

Nach hinzufügen des override kommt aber eine Fehlermeldung.

[Error] FastIniFiles.pas(77): Cannot override a static

@hoika: auch nach ändern durch inherited Destroy; geht der Leak nicht weg.