Out Of Memory

**louay02** · 07/06/2011, 19h51

Bonjour

Je traite un fichier texte dans la mémoire et j’affiche le résultat dans un DBgrid via un composant Memorytable tous ca marche bien plus de ca j’ai ajouté un Botton pour effacé le contenue de la table afin de faire un autre traitement mais j’ai reçus un message qui m’informe que n’est pas une mémoire suffisante je croit ‘’ Out Of Memory’’ est ce qu’il mon code de suppression n’efface pas le contenue de la mémoire virtuel ?

Code :

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

1
2
3
4
5
6
repeat
table1.Delete;
table1.Last;
until table1.Bof;
button1.Enabled:=true;
table1.Free;

**alheuredudejeuner** · 07/06/2011, 21h36

Code :

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

1
2
3
4
5
6
7
8
9
10
with table1 do
begin
   while not eof do
   begin
      delete;
      next;
   end;
end;
button1.Enabled:=true;
table1.Free;

**ShaiLeTroll** · 08/06/2011, 09h55

Normalement, faire un Delete, cela fait déjà un Next !
Je pense que le code de alheuredudejeuner risque de sauter un enregistrement sur deux, donc cela n'efface que la moitié de la table ... à vérifier ...

Pourquoi ne pas utiliser EmptyTable du TMemoryTable si cela correspond à cet Objet de la RX Lib parce que des TMemoryTable tu en trouves à la pelle !

Ensuite, on peut espérer qu'un composant TMemoryTable libère toute sa mémoire durant son Destructeur !
Si ce n'est pas le cas, cela semble gravissime car comment accéder à la mémoire non libérée une fois que l'objet n'existe plus ! cela n'aurait pas de sens, je pense donc que cette boucle est totalement inutile ! le Free suffit !

Tu as un problème ailleurs !