Speicherverbrauch überwachen - Speicherfresser finden

[MrMooed]

Hey DP,

ich bin gerade am verzweifeln Ich finde in meinem Programm einfach nicht die Stelle, an der er unnötig Arbeitsspeicher verballert. Im Extremfall kommt er an die 2gb grenze
Ich habe versucht den Fehler einzugrenzen und es kann eigentlich nur an einer function liegen.

Gibt es also von Delphi ein eigenes Mittel, um zu überwachen für welche Variablen er wie viel Speicher nutzt ?

Delphi-Quellcode:

//PostTerm enthällt einen Mathematischen Term in Postfix Notation (UPN). Die Werte wurden als Strings in eine Queue //eingefügt
function TMath.calc(xValue: Extended): Extended;
var
  tmp  : TStack;
  Term : TQueue;
  a,b  : Extended;
begin
  tmp := TStack.create;
  Term := TQueue.create;

  repeat
  Term.enqueue(PostTerm.front);    //PostTerm sichern, für den nächsten x-Wert
  case String(PostTerm.front)[1] of
    '0'..'9': tmp.push(TExtended.Create(StrToFloat(String(PostTerm.front))));  //Zahlen auf tmp pushen
    'x': tmp.push(TExtended.Create(xValue));  // Für X'e den aktuellen xValue pushen
    else if tmp.getItemCount >= 2   //existieren genug Operanden, wende den Operator an
           then begin
                a := TExtended(tmp.top).Value;
                tmp.pop;
                b := TExtended(tmp.top).Value;
                tmp.pop;
                if String(PostTerm.front) = '+'
                  then tmp.push(TExtended.Create(Add(a,b)))

                else if String(PostTerm.front) = '-'
                  then tmp.push(TExtended.Create(Sub(a,b)))

                else if String(PostTerm.front) = '*'
                  then tmp.push(TExtended.Create(Mul(a,b)))

                else if String(PostTerm.front) = '/'
                  then tmp.push(TExtended.Create(Dur(a,b)));
                end;
  end;
  PostTerm.dequeue; 
  until PostTerm.getItemCount = 0;

  result := TExtended(tmp.top).Value;
  tmp.pop;
  PostTerm := Term;  //PostTerm wiederherstellen
end;

//Edit: Gelöst mittels FastMM4

[Dalai]

tmp und Term werden jeweils mit .Create erzeugt, aber wo werden sie wieder freigegeben? In der gezeigten Methode jedenfalls nicht; das wäre aber der richtige Ort dafür.

MfG Dalai

[MrMooed]

stimmt. Dort sollte ich sie freigeben .. jedoch dachte ich, dass es mit einem einfachen TMath.Destroy reicht

Brachte jedenfalls keine sichtbare verbesserung Hat also wohl noch einen anderen Grund

[Dalai]

Zitat von MrMooed:

jedoch dachte ich, dass es mit einem einfachen TMath.Destroy reicht

Nun, ich habe mir angewöhnt, für jedes .Create auch ein .Free (oder auch FreeAndNil) an die passende Stelle zu setzen. Ich weiß grad nicht, welcher Owner bei einem .Create ohne Parameter benutzt wird und demzufolge für die Freigabe "zuständig" ist, aber richtig eingesetzt schadet ein .Free nicht.

Wenn aber - wie du selber sagst - die Prozessgrößengrenze erreicht wird, müssen entweder sehr viele kleine Objekte erzeugt werden oder wenige große. Schau mal durch, wo evtl. weitere Objektfreigaben fehlen. Es gibt da sicherlich Hilfsmittel zum Finden solcher Lecks (Speichermanager wie FastMM?), aber davon hab ich nicht wirklich Ahnung und überlasse dieses Feld den Wissenden.

MfG Dalai

[Klaus01]

Hallo,

normalerweise würde das ganze in Resourceschutzblöcke eingepackt.

Delphi-Quellcode:

begin
  tmp := TStack.create
  try
    term := TQueue.create
    try
      ....
    finally
      term.free;
    end;
  finally
    tmp.free;
  end;
end;

Du kannst auch FastMM nutzen um Memoryleaks zu finden.

Grüße
Klaus

[MrMooed]

Was gibt es nicht alles für nette Tools

Werde mir wohl angewöhnen müssen, Objekte nach der Benutzung wieder zu "freen"
Aber mit FastMM läuft es nun wunderbar - Nach den Berechnungen fällt er wieder auf <1mb Speicher zurück

Danke euch beiden