[D6] Fuite de mémoire

Version imprimable

Bonjour a tous

Le programme a une fuite de mémoire.

En isolant les appels de procedure comme suit, la fuite est "cerné"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
type tarraySW=record
    Donnees:array[0..4000,0..20]of double;
    Ok:boolean;
end;
 
var
...
    avant,apres:integer;
    Mem:TMemoryStatus;
begin
...
            Mem.dwLength:=SizeOf(TMemoryStatus); GlobalMemoryStatus(Mem); avant:=Mem.dwAvailPhys;
            if not direct(DonneesBrutes, References, DonneesFiltrees) then beep;
            Mem.dwLength:=SizeOf(TMemoryStatus); GlobalMemoryStatus(Mem); apres:=Mem.dwAvailPhys;
            memo2.lines.Add('direct '+inttostr(apres-avant));avant:=apres;//15 s'affiche
...

Bon on sait que c'est la routine qui est fautive... Même petit manège...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
function TForm1.Direct(const Donnees:string;const References:tstringlist;var Filtrees:tarraySw):boolean;
var
    avant,apres:integer;
    Mem:TMemoryStatus;
 
...
begin
    Mem.dwLength:=SizeOf(TMemoryStatus); GlobalMemoryStatus(Mem); avant:=Mem.dwAvailPhys;
    ...
    Mem.dwLength:=SizeOf(TMemoryStatus); GlobalMemoryStatus(Mem); apres:=Mem.dwAvailPhys;
    memo2.lines.Add('direct '+inttostr(apres-avant));avant:=apres;//0 s'affiche
end;

Donc il appaire que la fuite se ferait au niveau de l'appel de la routine, mais non lors de son exécution :weird:

Est-ce que vous voyez la cause?

Merci d'avance

24/02/2015, 08h27
Linkin

Un appel ne peut pas produite de fuite mémoire, seul le code d'une fonction le peut.
La mémoire disponible n'est pas un bon indicateur pour détecter les fuites mémoires.

En Delphi 7, j'utilisais MemCheck comme outil pour les fuites mémoires. Cela t'indique le type de données restant en mémoire.
24/02/2015, 12h40
sgmsg

Parfait Merci

A+
24/02/2015, 14h32
Ph. B.

Citation:

Envoyé par Linkin

Un appel ne peut pas produite de fuite mémoire, seul le code d'une fonction le peut.
La mémoire disponible n'est pas un bon indicateur pour détecter les fuites mémoires.

En Delphi 7, j'utilisais MemCheck comme outil pour les fuites mémoires. Cela t'indique le type de données restant en mémoire.

FastMM est un gestionnaire de mémoire qui remplace avantageusement le gestionnaire de mémoire fourni par Borland et qui permet (un avantage parmi d'autres) de détecter finement les fuites de mémoire : http://sourceforge.net/projects/fastmm/
Ce gestionnaire est d'ailleurs celui fourni par défaut depuis Delphi 2006... ;)