德尔福，复制字符串字节数组

Question

我有什么作品，但即时寻找，如果有一个字符串复制到pByteArray

更快的方法

是sysutils

  PByteArray = ^TByteArray;
  TByteArray = array[0..32767] of Byte;

假设的一个和<强>取值是正确设置

 a:   pByteArray;
 s:   string;

有一个快速的方法来做到这一点，即像复制

  for i := 1 TO Length(s) - 1 do
   a^[i] := Ord(s[i]);

Delphi 7中

Answer 1

小心使用移动。如果使用的是德尔福2009年，它可能会失败。相反，使用这样的：

移动（S [1]，一^，长度（秒）*中SizeOf（CHAR））;

您还可以使用在SysUtils.pas类TEncoding（DELPHI二千○一十分之二千○九++只），以执行任务。

Answer 2

从未头脑，发现它

 Move(s[1], a^, Length(s));

Answer 3

您可以简单地将它转换：

  a := @s[1];

其他的方式是：

  s := PChar(a);

Answer 4

我想你可以使用move过程就像在这个例如