|
Por lo que veo en el código en cada bucle que se crea un NUEVO stream, es decir no liberas la memoria que utiliza. Por otra parte cada vez que se ejecuta setsize limitas el tamaño del stream al parametro del procedimiento. El código sería:
ms:=Tmemorystream.create;
try
for i:=0 to 10000 do
ms.write(aux,sizeof(aux)); //bucle ,rellenar con 100000 datos
... //ejecutar el códico que se quiera
finally
ms.free
end
Última edición por jam fecha: 19-01-2004 a las 16:42:25.
|