salut
Code:
1
2 table,buffer : Array of array of integer;
@+ PhilCode:
1
2
3
4
5 for i := 0 to (width) - 1 do begin move(table[i,0],buffer[i,0],(Height - 1)*SizeOf(Integer)); end;
Version imprimable
salut
Code:
1
2 table,buffer : Array of array of integer;
@+ PhilCode:
1
2
3
4
5 for i := 0 to (width) - 1 do begin move(table[i,0],buffer[i,0],(Height - 1)*SizeOf(Integer)); end;
anapurna t'a 17 min de retard :aie:
salut
effectivement je n'avait pas lu ton code a fond
je ne me suis concentré que sur l'essentiel ;)
a savoir que si c'est pas en entier dans le tableau
exemple
@+ PhilCode:
1
2
3
4
5
6
7
8
9
10
11
12
13 type TRecord = Record Id : Integer; Nom : String[20]; // attention cela ne marche qu'avec des shortstring end; Var table,buffer : Array of array of TRecord; .... for i := 0 to (width) - 1 do begin move(table[i,0],buffer[i,0],(Height - 1)*SizeOf(TRecord)); end;
(Height - 1) ??? c'est quoi Height et width, si ce que je crois, alors soit
ouCode:
1
2
3
4 for i := 0 to (width) - 1 do begin move(table[i,0],buffer[i,0],(width)*SizeOf(Integer)); end;
:aie::?Code:
1
2
3
4 for i := 0 to Height do begin move(table[i,0],buffer[i,0],( Height+1)*SizeOf(Integer)); end;
salut
bin non justement c'est bien la longueur de mon tableau que je parcourt
et c'est la hauteur que je lui copie
@+ PhilCode:
1
2
3
4
5 for i := 0 to pred(length(table[0]))do begin move(table[i,0],buffer[i,0],(Pred(length(table[i])))*SizeOf(Integer)); end;
PS : desolé pour le copier coller. je m'en suis servi pour un test de capture video
Pourquoi pas
Code:
1
2 B:array of array of integer; B:=Copy(A)