Discussion :

[sgmsg]

Bonjour a tous

Le programme a une fuite de mémoire.

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Est-ce que vous voyez la cause?

Merci d'avance

[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.

[sgmsg]

Parfait Merci

A+

[Ph. B.]

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...