Remplire un tringgrid depuis un autre stringgrid

Résolu
Signaler
Messages postés
18
Date d'inscription
lundi 20 juin 2005
Statut
Membre
Dernière intervention
18 février 2010
-
Messages postés
4720
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
31 juillet 2021
-
Bonjour tous le monde et un merçi pour ceux qui aide des gents comme nous !!
voila je sais pour vous c'est surement facile mais pour un débutant c' est un vrais casse tête :
je veut remplire 16 cellule en lignedu  tringgrid2 depuis 16 cellules en colonne du  stringgrid2 comme suite:
----------------------------------------------------
begin
for i := 0 to 15 do
for j:= 7 to 22 do

stringgrid2.cells [ I ,0] : =  stringgrid1.cells [0,J] ;

end;
----------------------------------------------------

biensur ca ne marche pas, je voudrai savoir ou ca coince

Merçi d'avance pour votre aide

1 réponse

Messages postés
4720
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
31 juillet 2021
14
Procedure ButtonClick(sender: TObject);
var
i, j, ACol : integer;
begin
   ACol := 0;
   for i:= 0 to StringGrid1.ColCount - 1 do
   for j:= 0 to StringGrid1.RowCount - 1 do
   if StrinGrid1.Cells[i,j] <> "" then
     begin
      StringGrid2.Cells[ACol,0] := StrinGrid1.Cells[i,j];
      Inc(ACol);
    end:
end;

J'ai pas testé...

cantador