如何用CopyMemory的方法从Array of byte中取出String;

Question

GETMEM（）？
sTemp:='12345';
不出问题吗？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  sTemp: PChar;
  sStr: string;
  Buffer: array [0..9] of byte;
begin
  sTemp:='12345';
  CopyMemory(@Buffer, sTemp,3);
  SetLength(sStr, 2);
  CopyMemory(PChar(sStr), @Buffer, 2);
  ShowMessage(sStr);
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  sTemp: PChar;
  sStr: string;
  Buffer: array [0..9] of byte;
begin
  sTemp:='12345';
  CopyMemory(@Buffer, sTemp,3);
  SetLength(sStr, 2);
  CopyMemory(PChar(sStr), @Buffer, 2);
  ShowMessage(sStr);
end;