Hallo User,
ich habe Speicherlecks: 8 mal TBrush und 3 mal Unknown.
Die Zeile, die mir die Lecks erzeugt, steht im Quellcode unten.
Sie zeichnet 8 Grafikbalken mit bestimmten Werten in bestimmten Farben.
Doch wie nur räume ich auf?
Ich habe schon alles durch: Free, Release, Clear, ClearInstance, SetLength(..,0),....
Meine Speicherlecks bleiben bestehen.
Delphi-Quellcode:
function TForm_Entry.Prozente_rechnen_und_zeichnen(wert: integer; von: string):double;
Var i: Integer;
color: TColor;
begin
result:=0;
if Entry_Check.anzahl <= 0 then exit;
result:= (wert / Entry_Check.anzahl) * 100;
if result < 52 then color:=$008A8A8A;
if result < 45 then color:=$004323D4;
if result > 52 then color:=$008DD47C;
if result > 55 then color:=$00309B21;
Form_Entry.Chart_summary[0].Add(result, von, Color); // diese Zeile erzeugt die Speicherlecks
end;
Dabei ist Form_entry ein Formular und Chart_summary ein TChart.
Das Formular selbst wird OnClose mit Form_entry.Release entsorgt. Spannenderweise scheine ich dieses Release gar nicht zu brauchen.
Nicole