Discussion :

[Cézarbi]

Bonjour à tous,

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

Code :

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

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.

[tourlourou]

Peut-être le code de "Ajouter Row" serait-il éclairant ?

[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 :

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

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 ?

[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.

[Cézarbi]

Bonsoir à vous deux,

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

Code :

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

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 :

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

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.

[Cézarbi]

J'ai ajouté .text dans la ligne :

Code :

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

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

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