急﹗﹗﹗如何將此數組轉成指針來用?謝謝

[benxie]

原procedure mySendData(ComPort:String;bId:Byte;bDatatoSend:array of Byte)
調用時﹕其中bDatatoSend是傳進來一個數組﹐
如﹕toData:array[0..14] of Byte;
現要改成指針.

現﹕procedure mySendData(ComPort:String;bId:Byte;bDatatoSend:PByte;bDatatoSendLength:integer);

問題﹕
toData[0]:=$0b;
toData[1]:=$09;
toData[2]:=$08;
在指針中應該如何表示??

[dejoy]

(bDatatoSend+1)^ :=$0b

[僵哥]

var
p:PByte;
toData:array[0..5] of byte;

p:=@toData

[aiirii]

bDatatoSend := GetMem(...

bDatatoSend^ := $0b;
inc(bDatatoSend);
bDatatoSend := $09;

[何鲁青]

指针加一赋值，但是要保证不会出现内存错误，楼上的方法最合理...