Fragmentation du contenu des cellules dans une StringGrid

Version imprimable

3 pièce(s) jointe(s)

Bonjour à tous,

Dans mon appli les cellules de la StringGrid sont remplies après ouverture d'un record :
Code:

1 2 3 const TITRES : array[0..12] of string = ('Identité', 'Privé', 'Bureau', 'Fax', 'Portable', 'NET', 'EMail', 'Adresse', 'Notes', 'Autres1', 'Autres2', 'Autres3', 'Autres4');
Mais ici pas besoin d'ouvrir le fichier, le problème restant le même :

Sur la fiche : une StringGrid vide (5 Rows, 13 Lignes) et deux Memo contenant du texte préalablement saisi.

1- Je clique sur le bouton "Copier Adresse et Notes" pour coller les textes dans les cellules
de la StringGrid. (Image1)
2- Je clique sur "Ajouter Row" et il se passe que le contenu des deux cellules est dispatché
dans les cellules suivantes (Image2)...

Pourriez-vous m'expliquer pourquoi, et surtout comment y remédier.

3- Pour info : Quand je clique sur le bouton "Supprimer Row" il n'y a pas de souci car le texte est bien
recopié vers le haut sans déformation...

Cordialement.

26/11/2018, 12h22
tourlourou

Peut-être le code de "Ajouter Row" serait-il éclairant ?
26/11/2018, 14h03
mm_71
Comme dit tourlourou le code de la procédure serait nécessaire, mais à vue ta procédure change de cellule à chaque saut de ligne des listboxs donc erreur de code. Tu dois d'abord remettre le contenu de ta liste dans une seule chaîne avec une boucle, l'envoyer dans la cellule voulue et ensuite faire la même chose avec la seconde liste en l'envoyant dans la cellule suivante:
Code:

1 2 3 4 Composer Chaîne1 LaStringList.Cells[LeRowEnCours,LacelluleVoulue]:=LaChaîneComplète1; Composer Chaîne2 LaStringList.Cells[LeRowEnCours,LacelluleVoulue+1]:=LaChaîneComplète2;
Autres trucs: Ton bandeau de sélection est tout en haut de la grille et ton texte déboule en plein milieu, ce serait à revoir, il serait mieux sur le premier rang. Et mettre l'identité dans une colfixed est une idée curieuse ?
26/11/2018, 17h12
Cézarbi

Re bonjour,

En testant la même chose avec Delphi 10 que je viens de télécharger, => pas de problème... Donc Je cherche mon erreur...

Question : Je voudrais supprimer ce topic inutile mais je ne sais pas comment faire.

Cordialement.

Bonsoir à vous deux,

Ca fait deux semaines que je me casse la tête la dessus ... avec le code suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.Button7Click(Sender: TObject);
var
 m,n, i:integer;            
 begin
 n := StringGrid1.RowCount;
 m:= StringGrid1.Row;
 i:= n-m;
 StringGrid1.RowCount := StringGrid1.RowCount+1;
  for i:= 0 to n-m-1  do
  StringGrid1.Rows[n-i].Text:=StringGrid1.Rows[n-i-1].text;
 
 StringGrid1.RowCount := StringGrid1.RowCount+1;    // Ecrire dans les cellules de la StringGrid
 StringGrid1.RowCount := StringGrid1.RowCount-1;  // Sinon OutOfRange ... ?   Je ne comprends pas
end;

Le code ancien avec Delphi 3 réutilisé avec D10 est :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
ocedure TForm1.AjoutClick(Sender: TObject);
 var
n:integer;
n1:integer;
x:integer;
begin
  StringGrid1.RowCount:=StringGrid1.RowCount+1;
   x:=StringGrid1.RowCount;
   n:=StringGrid1.Row;
   n1:=x-n;
   for n1:= 0 to x-n do
    StringGrid1.Rows[x-n1+1]:=StringGrid1.Rows[x-n1];
    StringGrid1.Cells[0,4] := 'Fred' ;  // Utile ici pour mieux signaler l'item de la colonne 0
end;

Cordialement.

26/11/2018, 17h44
Cézarbi

J'ai ajouté .text dans la ligne :

Code:

StringGrid1.Rows[n-i].Text:=StringGrid1.Rows[n-i-1].text;

Et c'est la cause de l'erreur...