StringGrid vers Ttable

Bonjour
Voila mon projet de cahier de notes est presque terminé mais il me manque quelques retouches esthétique :
Mon problème c’est que je veut faire une saisie sur un StringGrid dont les changements seront prises en compte par une Table j’ai fait ce code mais la table n’enregistre pas les valeurs de StringGrid

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

procedure TForm1.Button1Click(Sender: TObject); var r,c:integer; begin   table1.Open;   for r:=1 to StringGrid1.RowCount-1 do for c:=1 to StringGrid1.ColCount-1 do begin Table1.Edit; Table1.Fields[c].AsString:=StringGrid1.Cells[c,r]; Table1.Post; end; ShowMessage('Enregistrement effectuer'); end;

---

je ne sais ce qui manque ?

je joint le fichier a corrigé.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure TForm1.Button1Click(Sender: TObject); var r,c:integer; begin table1.Open; for r:=1 to StringGrid1.RowCount-1 do begin Table1.Append; //<--------- ajout d'enregistrement for c:=1 to StringGrid1.ColCount-1 do Table1.Fields[c].AsString:=StringGrid1.Cells[c,r]; Table1.Post; end; ShowMessage('Enregistrement effectué'); end;

---

Si la table est vide c'est un append ou insert qu'il faut utiliser
sinon il faut d'abord se positionner sur l'enregistrement (soit par locate, findkey etc..)
ensuite c'est un enregistrement par ligne d'où ma correction des boucles

Nota : je ne télécharge et ne regarde que rarement les pièces jointes

Citation:

---

Si la table est vide c'est un append ou insert qu'il faut utiliser
sinon il faut d'abord se positionner sur l'enregistrement (soit par locate, findkey etc..)
ensuite c'est un enregistrement par ligne d'où ma correction des boucles

Nota : je ne télécharge et ne regarde que rarement les pièces jointes

---

:ccool:

Effectivement la table est n’est pas vide . et dans mon cas je doit faire Table1.Edit

MR : SergioMaster

J’ai résolu le problème

:merci: + :rose:+:rose:+:rose:+:rose: