Discussion :

[Aos]

Bonjour,

J'ai une procedure qui va recuperer dans un fichier texte des informations et qui remplit un tableau. (5000 entrées environ).

Cela prend 2Mo de mèmoire.

Apres avoir fini de traiter les informations du tableau, je souhaiterai libéré cette mémoire.

donc je fais une boucle sur le tableau

Code :

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

1
2
3
4
5
for i := 0 to length(CPVILLE) - 1 do
  begin
    CPVILLE[i][0]:='';
    CPVILLE[i][1]:='';
  end;

Mais rien n'y fait, les 2Mo ne sont pas libérées.
Oui 2Mo c'est peu, mais la procédure est exécuté au moins 500x par jour.

Oui je peux largement régler le problème autrement, mais j'aimerai tout de même savoir comment récupérer cette mémoire par acquis de conscience .

Est-il possible de "détruire" un tableau ?

[Andnotor]

Mets simplement la taille du tableau a zéro.

Code :

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

SetLength(CPVILLE, 0);

[Aos]

Ce n'est pas un tableau dynamique
Le tableau est defini comme tel :

Code :

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

CPVILLE : array [0..2950,0..1] of string;

[Aos]

Bon, comme dis plus haut, j'ai résolu le problème (ou plutôt contourné le problème) sans utilisation de tableau statique.

Je laisse tout de même le poste ouvert encore aujourd'hui au cas ou quelqu'un aurait une solution éventuelle.

[Aquaa]

Bonjour

mets le tout dans une classe et libère cette dernière à la fin

Code :

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

1
2
3
  Tmesdonnes = class
  CPVILLE: array[0 .. 50000] of string ;
  end;

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
17
18
19
20
21
22
23
 
var
  maclasse : Tmesdonnes;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.charger(Sender: TObject);
var
i : integer ;
begin
  try
  begin
    maclasse := Tmesdonnes.Create;
    for i:=0  to 50000 do
      maclasse.CPVILLE[i] := '888888888888888888888888888888888'
    end;
  finally
    maclasse.Free
  end;
end;
end.

[guillemouze]

Ce n'est pas un tableau dynamique
Le tableau est defini comme tel :

Code :

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

CPVILLE : array [0..2950,0..1] of string;

si ton tableau est statique, il est alloué :
- au debut de ta procedure si il est declaré dans une procedure
- a la creation de l'objet si il appartient a une classe
- a l'initialisation de l'application si c'est une variable globale

il sera automatiquement libere a la fin de vie de ce dernier, et je suis quasiment sur qu'il n'y a pas moyen de liberer la memoire autrement.

[Aos]

oui guillemouze, dans la logique, c'est ça, mais mon tableau est JAMAIS liberé, il est la le probleme
Il appartient a une procedure donc a priori, a la fin de la procedure, il doit etre liberé, mais c'est pas le cas...

Je le mets en DELESTAGE, le probleme vient peut etre d'ailleurs.
Si un jour je trouve, je posterai.

Merci quand meme a tous !

[Aquaa]

un pointeur fera l'affaire aussi

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
procedure charger_decharger;
type
  TTabTest = array[1..5000] of string;
  PTabTest = ^TTabTest;
var
  References: PTabTest;
  indx: integer;
begin
  New(References);
  try
    for indx := 1 to 5000 do
     References^[indx] := 'AZERTYUIOPQSDFGHJKLMWXCVBN'; {ton traitement}
  finally
    Dispose(References);
  end;
end;