It sounds as though the best option is to write my own function:

procedure loadValues(var buffer: Array of Byte; value, startPos,
finPos: integer);
var i: integer;
begin
 for i:=startPos to finPos do
 begin
 buffer[i]:=value and 255;
 value:=value shr 8;
 end;
end;
_______________________________________________
Lazarus mailing list
[email protected]
http://www.lazarus.freepascal.org/mailman/listinfo/lazarus

Reply via email to