Recherche d'une procédure efficiente (asm) basée sur la procédure FillMemory mais avec incrément de la valeur Fill.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
var
  tab : array of byte;
  Fill : byte;
 
for i := 0 to n-1 do tab[i] := Fill +i;
idem en version cardinal (4 bytes)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
var
  tab : array of cardinal;
  Fill : cardinal;
 
for i := 0 to n-1 do tab[i] := Fill +i;