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

Jonas Maebe jonas at zeus.rug.ac.be
Wed Dec 4 09:30:53 CET 2002


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





More information about the fpc-pascal mailing list