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

Question

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

更快的方法

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]); 

德尔福7

Answer 1

小心使用移动。如果您使用的是Delphi 2009，则可能会失败。相反，使用这个：

Move（s [1]，a ^，Length（s）* SizeOf（Char））;

您也可以在SysUtils.pas（仅限Delphi 2009/2010 ++）中使用类TEncoding来执行任务。

Answer 2

没关系，发现它

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

Answer 3

我认为你可以使用move过程就像在这个example

Answer 4

你可以简单地将它转换：

a := @s[1]; 

相反的方法是：

s := PChar(a);