Remplire un tringgrid depuis un autre stringgrid

Résolu
mohamedredha Messages postés 18 Date d'inscription lundi 20 juin 2005 Statut Membre Dernière intervention 18 février 2010 - 29 mars 2008 à 11:14
cs_cantador Messages postés 4720 Date d'inscription dimanche 26 février 2006 Statut Modérateur Dernière intervention 31 juillet 2021 - 29 mars 2008 à 15:31
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

cs_cantador Messages postés 4720 Date d'inscription dimanche 26 février 2006 Statut Modérateur Dernière intervention 31 juillet 2021 14
29 mars 2008 à 15:31
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
3