string与byte相互装换

procedure TMainForm.BtnSendClick(Sender: TObject);

var

str1,str2:string;

buf:array of byte;

i:integer;

begin

str1:='我们';

setlength(buf,length(str1));//设置buf长度

move(PChar(str1)^,buf[0],Length(Str1));

for I := 0 to Length(buf) - 1 do

str2:=str2+char(buf[i]);

Mem_content.Lines.add(str2);

end;