Discussion :

[sp2308]

Bonjour

Jusqu'à ce que je ne teste pas mes fuites memoires, je me contentais de cette procedure pour effacer une ligne dans une grille :

Code :

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

1
2
3
4
5
6
7
8
procedure TForm2.ReduitGRille(Idx: Integer);
var
  I: Integer;
begin
  for I := Idx to Grid1.rowcount - 2 do
    Grid1.Rows[I].Assign(Grid1.Rows[I + 1]);
  Grid1.rowcount := Grid1.rowcount - 1;
end;

mais cela provoque une fuite memoire!
j'ai le message ..byte UnicodeString x110 & ...bytes TCellProperties x110)

j'apelle ma procedure ainsi

while I < Grid1.rowcount - 1 do
begin
inc(I);
if cbx_sens_filtre.itemindex = 0 then
if (strtofloat(Grid1.cells[cbx_filtre_1.itemindex + 1, I]) <
strtofloat(ed_filtre_1.Text)) then
begin
ReduitGRille(I);
I := 0;
end;
if cbx_sens_filtre.itemindex = 1 then
if (strtofloat(Grid1.cells[cbx_filtre_1.itemindex + 1, I]) >
strtofloat(ed_filtre_1.Text)) then
begin
ReduitGRille(I);
I := 0;
end;
end;

Donc ma question est toute bête, comment supprimer une ligne dans un TstringGrid sans fuite mémoire ?

Merci de votre aide

[ShaiLeTroll]

J'ai aussi utilisé Assign dans un code de test

je pense qu'il faudrait le refaire via un BeginUpdate for row for col ... Cells[] ... EndUpdate

le Assign ne gère peut-être pas l'écrasement et ne libère pas les TCellProperties du receveur

le EnsureColRows de la TStringGrid est assez tordu !

[sp2308]

Je pense que tu veux dire ça :

Code :

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

1
2
3
4
5
6
7
8
var
  J, I: Integer;
begin
  for I := 0 to Grid1.rowcount - 1 do
    for J := 0 to Grid1.ColCount - 1 do
      Grid1.cells[J, I] := Grid1.cells[J, I + 1];
  Grid1.rowcount := Grid1.rowcount - 1;
end;

J ai la même fuite mémoire

[ShaiLeTroll]

A quel moment tu fais ce code ?
Est-ce dans un evenement de la grille elle-même ?

Avec les UnicodeString ou des Variants membre d'une Interface, si l'on les inspecte, le débogueur peut créer aussi des fuites mémoires

Sur ton 2eme code, I + 1 dépasse RowCount !
Veille au RowCount - 2 aussi dans cette variante !

[sp2308]

Pour mon deuxieme code c est vrai, j ai fais ça à la va vite pour savoir si c etait ce dont tu parlais mais codé proprement il produit la même fuite mémoire.

la procedure reduitgrille est appellé depuis un onclick sur un bouton non pas sur un evenement de la grille.

Edit : Je precise que je n ai aucune fuite quand je ne declenche pas cette procedure.