mohamedredha
Messages postés18Date d'inscriptionlundi 20 juin 2005StatutMembreDernière intervention18 février 2010
-
29 mars 2008 à 11:14
cs_cantador
Messages postés4720Date d'inscriptiondimanche 26 février 2006StatutModérateurDernière intervention31 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] ;
cs_cantador
Messages postés4720Date d'inscriptiondimanche 26 février 2006StatutModérateurDernière intervention31 juillet 202113 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;