Remplir un TStringGrid avec delphi 7

Signaler
-
Messages postés
107
Date d'inscription
mardi 13 novembre 2007
Statut
Membre
Dernière intervention
20 juillet 2021
-
Bonjour, je ne sais pas pourquoi le debut de mon programme ne fonctionne pas.
J'ai bien placé un StringGrid1 dans ma form.
J'ai créer une procedure que j'ai nommé RemplissageStringGrind1. En paramètre j'ai mis StringGring1.

Dans la peocedure je fais juste StringGrid1. Cells[1,1]=IntoStr (1);

Il n'y a aucune erreur quanf j'exécute le programme mais rien ne s'écrit sur mon StringGrid. Je ne sais pas pourquoi.

Merci pour votre aide. Cela fait longtemps que j'ai programmé. Soyez indulgents.

2 réponses

Messages postés
265
Date d'inscription
lundi 27 octobre 2003
Statut
Membre
Dernière intervention
19 juillet 2021
13
Salut,
Avec le code ca serait bien plus simple, ici on ne peut faire que des suppositions...
"en paramètre j'ai mis StringGring1" veut dire quoi ? que tu as créé une procédure qui appel en paramètre StringGring1 au lieu de StringGrid1 dans la procedure RemplissageStringGrind1au lieu de RemplissageStringGrid1...
Aie...
@+
Messages postés
107
Date d'inscription
mardi 13 novembre 2007
Statut
Membre
Dernière intervention
20 juillet 2021
3
Bonjour,
Voici le code fourni par l'aide de Delphi pour le remplissage d'un TStringGrid.
procedure TForm1.Button1Click(Sender: TObject);
var I, J, K : Integer;
begin
  K := 0;
  with StringGrid1 do
    for I := 0 to ColCount - 1 do
      for J:= 0 to RowCount - 1 do
        begin
          K := K + 1;
          Cells[I,J] := IntToStr(K);
        end;
end;

Amicalement