Memory Leaks beheben

[igel457]

Hi,

mir ist nur ein Memoryleak in Andorra 2D bekannt, und das tritt unter Umständen beim Reinitialisieren von Andorra 2D auf (also TAdDraw.Finalize und Initialze in einer Kette).

Die von deinem Leak-Checker angezeigten Zeilen deuten aber eher darauf hin, dass du einfach manche Objekte nicht richtig frei gibst - um genau zu sein deine Imagelist, da diese natürlich eine Reihe von TAdImages lädt und die TAdImages wiederum in den aufgelisteten Operationen Speicher reservieren. Die TAdImagelist würde dann auch die Images wieder frei geben und diese den von sich reservierten Speicher.

Hoffe das hilft,
Andreas

[alzaimar]

Neben den schon erwähnten FastMM4 und MemCheck o.ä. solltest Du dir angewöhnen, das, was Du allokierst auch im gleichen Kontext freizugeben.

Beispiel:

Delphi-Quellcode:

Var
  localObject : TSomeOBject;

Begin
  localObject := TSomeObject.Create;
  Try
    DoSomethingWith(localObject);
  Finally
    localObject.Free
  End
End;
...
Type
  TSomeObject = Class (TSomeOtherObject)
  private
  fObject : TFoobar;
...

Constructor TSomeObject.Create;
begin
  inherited;
  fObject := TFoobar;
end;

Destructor TSomeObject.Destroy;
Begin
  fObject.Free;
  inherited
End;

[w4rheart]

Danke für all Eure Tips, die haben mir schonmal weiter geholfen.

@igel457 Du hast Recht, die Imagelist wurde nicht freigegeben. VOn Andorra2d aus treten jetzt keine Memory Leaks mehr auf.

Ich konnte den Leak auf folgende Prozedur zurückführen:

Delphi-Quellcode:

function Textwerkzeug.wortAn( pText: string; wortNummer: integer ): string;
var
  lText: string;
begin
  if copy( pText, length( pText ) - 1, 2 ) = CRLF then
    pText := copy( pText, 1, length( pText ) - 2 ); //LEAK
  lText := pText;
  while ( ansiPos( zTrennung, lText ) > 0 ) and ( wortNummer > 1 ) do begin
    delete( lText, 1, ansiPos( zTrennung, lText ) + length( zTrennung ) - 1 );
    dec( wortNummer );
  end;
  if wortNummer = 1 then
    if ansiPos( zTrennung, lText ) > 0 then
      result := copy( lText, 1, ansiPos( zTrennung, lText ) - 1 )  //LEAK
    else
      result := lText
  else
    result := '';
end;

Allerdings verstehe ich nicht genau wieso hier ein Memory Leak auftritt.
Das (pText/result über den copy Befehl) sind doch strings und keine Objekte? Wie soll man die denn freigeben/löschen?

[Sir Rufo]

pText riecht ein wenig danach, als ob du den irgendwo als PChar o.ä. definiert hast und damit dann die Procedure aufrufst.

Musst du das veränderte pText zwingend wieder zurückgeben?
Wenn nicht, dann kannst du das auch so machen:

Delphi-Quellcode:

function Textwerkzeug.wortAn( const pText: string; wortNummer: integer ): string;
var
  lText: string;
begin
  if copy( pText, length( pText ) - 1, 2 ) = CRLF then
    lText := copy( pText, 1, length( pText ) - 2 )
  else
    lText := pText;
  while ( ansiPos( zTrennung, lText ) > 0 ) and ( wortNummer > 1 ) do begin
    delete( lText, 1, ansiPos( zTrennung, lText ) + length( zTrennung ) - 1 );
    dec( wortNummer );
  end;
  if wortNummer = 1 then
    if ansiPos( zTrennung, lText ) > 0 then
      result := copy( lText, 1, ansiPos( zTrennung, lText ) - 1 ) //LEAK
    else
      result := lText
  else
    result := '';
end;

Eigentlich sollte man es vermeiden, die Parameter zu verändern es sei denn, die sollen auch bewusst wieder zurückgeliefert werden. (wortNummer)
Dann sollte man vor die Parameter aber auch ein var setzen.
Beim Benutzen der Func/Proc ist es einem dann auch bewusst, dass der Übergabeparameter nachher verändert sein kann.