[fpc-pascal]How to copy a lot of data?

[Jonas Maebe]

On woensdag, dec 4, 2002, at 05:04 Europe/Brussels, Judison wrote:

> procedure MyGetData(x: integer; var data; var rsize: integer);
> var
>   lData: Pointer;
> begin
>   GetData(x, @ldata, @rsize);
>   {copy lData^ to Data, (rsize div 4) bytes}

     move(ldata^,data,rsize div 4);

>   FreeData(lData);
> end;


Jonas