Discussion :

[linda80]

Bonjour ;

j'ai un composant stringgrid que j'étend dynamiquement (initialement, il contient une seule ligne et j'ajoute en cours d'exécution des lignes) lorsque je ferme cette fiche, je supprime ces lignes pour revenir à un état initial en utilisant les instructions :

Code :

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

1
2
3
4
 
while sgrid1.RowCount-1>0 do TPublicStringGrid(SGrid1).DeleteRow(sgrid1.RowCount-1);
sgrid1.Cells[0,0]:='';
sgrid1.RowCount:=1;

le problème est que quand je recrée de nouvelles lignes dans ce stringgrid, elles sont créées non pas vierges mais contenant leurs anciennes valeurs.

j'ai pensé mettre toutes les valeurs du stringgrid à la chaine vide puis à supprimer les lignes mais je voudrai trouver une méthode plus élégante pour effacer définitivement une ligne.

Merci d'avance.

[Jipété]

'lut !
C'est quoi, ça :

Code :

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

while sgrid1.RowCount-1>0 do TPublicStringGrid(SGrid1).DeleteRow(sgrid1.RowCount-1);

Pourquoi pas :

Code :

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

while sgrid1.RowCount-1>0 do SGrid1.DeleteRow(sgrid1.RowCount-1);

? J'ai rien testé, c'est juste une question sur un truc qui me rend perplexe.
Pour tester plus, faudrait du code et j'ai la flemme d'en pondre...
Mes 2 cts,
--
jp

[linda80]

SGrid1.DeleteRow(sgrid1.RowCount-1) ne marche pas, voir le lien suivant :
http://www.developpez.com/delphi/faq...ucolstringgrid

[Cl@udius]

Salut

Si ton StringGrid se nomme bien SGrid1, essaye comme ceci:

Code :

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

1
2
 
TCustomGrid(SGrid1).DeleteRow(SGrid1.RowCount-1);

@+ Claudius

[linda80]

en fait ça revient à ce que j'ai fait, j'avais oublié de préciser que j'avais déclaré :
TPublicStringGrid = class(TCustomGrid);
puis j'ai mis :
TPublicStringGrid(SGrid1).DeleteRow(sgrid1.RowCount-1);

Mais mon problème ce n'est pas cette instruction, c'est que la suppression opérée par cette suppression n'est pas définitive, dans le sens où quand je réinsère une ligne après suppression, la ligne créée contient la valeur de la ligne supprimée auparavant. une solution serait de vider la ligne avant de la supprimer en faisant :
SGrid1.cells[0, RowCount-1]:=''
mais comme je fais la suppression de plusieurs lignes à la fois, je voudrai une solution plus élégante

[Jipété]

Ben alors, faudrait aller voir ce que fait le code de DeleteRow dans Grids.pas (que je n'ai pas, édition perso ), parce que si l'aide dit bien que ça supprime,
peut-être que ça ne fait que cacher ?
(encore que, si après tu fais des "Add", c'est comme si ça se transformait en "show" ? Bizarre, ça...)

Que dit un

Code :

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

ShowMessage(IntToStr(SGrid1.RowCount));

en fin de boucle de suppression ?

Mes 2 cts et joyeux Noël !
--
jp

[linda80]

ShowMessage(IntToStr(SGrid1.RowCount)) retourne 1 , je laisse toujours une ligne

[Jipété]

Yep, Linda !

Je crois que tu devrais faire une 'tite maquette pour tester le 'blème, un tout 'tit truc avec juste une form, ta grille, un bouton pour la vider un bouton pour la remplir avec du bidon (remplissage initial au FormCreate), qu'on puisse voir (flemme de faire ce code... )
Et tu postes ce code.
--
jp

[Aka Guymelef]

Je crois que vous allez trouver votre bonheur en vous rendant ici
http://delphi.developpez.com/faq/?pa...ignestringgrid

[linda80]

Aka Guymelef, ce qui est dans le lien correspnd à ce que j'ai fait.

j'ai mis au point une petite maquette ci-joint, qui montre que l'instruction : TPublicStringGrid(SGrid1).DeleteRow(lig); ne fait que cacher une ligne et que pour ne pas voir réapparaitre les valeurs de la ligne supprimée en cas d'insertion d'une nouvelle ligne, il faut vider la ligne avant de la supprimer par l'instruction : sgrid1.Cells[0,lig]:=''; (qui est en commentaire dans le source)

je crois que je vais me résigner à cette astuce.

[ero-sennin]

Salut,

En effet, ça ne supprime pas la ligne ...Les données persistent.

Je pense que tu seras obligé de passer par un vidage... Néanmoins, je te propose d'utiliser une autre syntaxe pour vider une ligne :

A la place de ceci :

Code :

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

sgrid1.Cells[0,lig]:='';

Utilise celà :

Code :

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

SGrid1.Rows[lig].Clear;

Ca aura pour effet de supprimer la ligne entière et non une cellule d'une ligne comme le fait ton code précédent

A+