如何把一个字符串填充到一个无类型的指针 - 回复 "豪杰的爸爸" 的问题

问题来源: http://www.cnblogs.com/del/archive/2008/11/08/1329543.html#2016234

---

procedure TForm1.Button1Click(Sender: TObject);
var
  p: Pointer;
  str: string;
  size: Integer;
begin
  str := Edit1.Text;
  size := (Length(str) + 1) * SizeOf(Char);
  p := GetMemory(size);
  ZeroMemory(p, size);
  CopyMemory(p, @str[1], size);
  ShowMessage(PChar(p));
  FreeMemory(p);
end;

---