怎么从一个buf中拷贝出我要的字符窜？

Question

我定义了一个1500大小的数组作为缓冲区（buf:array[0..1499] of char)用来接收别人发过来的数据，这段数据不全是字符窜，中间夹杂了很多其它数据，所以也就包含了很多零，所以我用searchbuf在缓冲区中查找我要的字符，但是当我找到他们的时候想用copy把他们拷贝出来的时候去发现我用来接受的string死活都为空！请各位高人为我指点迷津！

Answer 1

var
  a:pchar;
  b:string;
begin
  a := @buf;
  b := String(a);
end;
试试行不行
  

Answer 2

参照以下函数：
function GetWindowsDir:string;
begin
  SetLength(Result,255);
  GetWindowsDirectory(PChar(Result),256);
  SetLength(Result,StrLen(PChar(Result)));
end;