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 : Sélectionner tout - Visualiser dans une fenêtre à part
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é.