关于udp传输的结构体中string长度

var
  strsend:string;
  
  strsend := packdata（xt); 
  sendbuffer（ip,
             port,
             pchar（strsend)（*这里面根据需要，具体看参数，如果不是pchar类型，而可以用pchar（strsend)^或者strsend[1]代替*),
             length（strsend));

type 
    txtdata=record 
    cmd:string; 
    s:string; 
end; 

xt:txtdata; 

idudpserver1.sendbuffer（serverip,1001,xt,sizeof（xt));

txtdata=record 
private
  fid:string;
  ftitle:string;
public

  function getdata（var ap:pointer):integer;
published
  property id:string read fid write fid;
  property title:string read ftitle write ftitle;
end;

//得到值的指针和长度,注意,用完后要释放ap
function txtdata.getdata（var ap: pointer): integer;
var
  acmd:string;
  astr:string;
  pint:pinteger;
  len:integer;
  xd:txtdata;
begin
  len:=length（fid)+length（ftitle)+sizeof（integer)*3;
  ap:=getmemory（len);

  pint:=ap;
  pint^:=len; //保存总长度

  pint:=pointer（integer（pint)+sizeof（integer));
  pint^:=length（fid); //保存第一个字符串长度

  pint:=pointer（integer（pint)+sizeof（integer));
  copymemory（pint,@fid[1],length（fid));//保存第一个字符串内容

  pint:=pointer（integer（pint)+length（fid));
  pint^:=length（ftitle); //保存第二个字符串长度

  pint:=pointer（integer（pint)+sizeof（integer));
  copymemory（pint,@ftitle[1],length（ftitle));//保存第二个字符串内容

 // freememory（ap);
  result:=len;
end;

//从收到的值中恢复
procedure txtdata.setdata（const ap: pointer; len: integer);
var
  pint:pinteger;
  i:integer;
  xd:txtdata;
begin
  pint:=ap;
 // len:=integer（pint);
  copymemory（@xd,ap,len);
  i:=pinteger（pint)^;//得到总长度

  pint:=pointer（integer（pint)+sizeof（integer));
  i:=pinteger（pint)^;//得到第一个字符串长度
  setlength（fid,i);

  pint:=pointer（integer（pint)+sizeof（integer));
  copymemory（@fid[1],pint,length（fid));//得到第一个字符串内容


  pint:=pointer（integer（pint)+length（fid));
  i:=pinteger（pint)^;
  setlength（ftitle,i);//得到第二个字符串长度

  pint:=pointer（integer（pint)+sizeof（integer));
  copymemory（@ftitle[1],pint,length（ftitle));//得到第二个字符串内容


end;