Publié : mar. 27/janv./2009 16:01
L'Idiotman de Srod? Mais comment t'as fait?!? Faut que tu me retrouves le lien...
Je reviens sur la méthode de Flaith et sur la mise en garde de LSI.
Autant pour moi, n'alloue pas continuellement dans une boucle sinon tu crashes le programme tôt ou tard. J'ai un peu de mal à suivre si tu surbugues... Désolé.
Ollivier
Je reviens sur la méthode de Flaith et sur la mise en garde de LSI.
Code : Tout sélectionner
Procedure StoreMem(*Adr, TailleEnOctets.L, X.B)
Protected i.L
For i = *Adr to *Adr + (TailleEnOctets - 1)
PokeB(i, X)
Next
EndProcedure
Procedure ZeroMemory(*Adr, TailleEnOctets.L)
StoreMem(*Adr, TailleEnOctets, 0)
EndProcedure
Define i.L
Define *ZoneTest
*ZoneTest = AllocateMemory(1000)
For i = 1 To 1000
StoreMem(*ZoneTest, 1000, Random(255) )
ZeroMemory(*ZoneTest, 1000)
Next
FreeMemory(*ZoneTest)
Ollivier