函数调用:

Question

现有一个函数定义如下:
  readprot1(var pdata:byte;ilen:integer):integer
其中:pdata代表缓冲区的地址
     ilen:代表长度
现在想发送一个字符串:如str:='abcdefghijklmv';
  请问如何用?

Answer 1

readprot1(byte(s[1]), length(s));

Answer 2

如果是地址的话， Byte改为PByte好一点
function readprot1(var pdata:PByte;ilen:integer):integer;
beginend;
procedure TForm1.Button1Click(Sender: TObject);
var
  str:string;
  b : PByte;
begin
  str:='abcdefghijklmv';
  b := PByte(@str);
  readprot1(b,10);end;