Andnotor, J'ai mis ton code dans un projet vide pour voir mais j'ai une erreur ligne 35 de ton code (4 de cet extrait), la ligne var Id := 1; dans le begin/end
Bien sur j'ai eu l'idée de le remonter au dessus du begin, mais je coince ...
Tiens, on peut déclarer les variables dans le code ... (for var i := ...) et sans les typer
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.FormCreate(Sender: TObject); begin // Remplissage quelconque pour test var Id := 1; for var i := 1 to StringGrid1.RowCount -1 do begin StringGrid1.Cells[IdCol, i] := Id.ToString; if i mod 3 = 0 then inc(Id); end; end;
Partager