mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-16 02:09:12 +02:00
* Bytes start at index 0
git-svn-id: trunk@39332 -
This commit is contained in:
parent
b859d486b4
commit
33056c1858
@ -1160,7 +1160,7 @@ Var
|
|||||||
|
|
||||||
begin
|
begin
|
||||||
SetLength(Temp,ASize);
|
SetLength(Temp,ASize);
|
||||||
Move(Buffer^,Temp[1],ASize);
|
Move(Buffer^,Temp[0],ASize);
|
||||||
AsBlob:=Temp;
|
AsBlob:=Temp;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user