Delphi, скопировать строку в байтовый массив

Question

что у меня работает, но я смотрю, есть ли более быстрый способ скопировать строку в pByteArray

из sysutils

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

Предположим, a и s настроены правильно

 a:   pByteArray;
 s:   string;

Есть ли быстрый способ сделать это, то есть что-то вроде копирования

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

Delphi 7

Answer 1

Остерегайтесь, используя Move. Если вы используете Delphi 2009, он может потерпеть неудачу. Вместо этого используйте это:

Move (с [1], a ^, длина (с) * SizeOf (Char));

Вы также можете использовать класс TEncoding в SysUtils.pas (только Delphi 2009/2010 ++) для выполнения задачи.

Answer 2

Вы можете просто разыграть его:

  a := @s[1];

И наоборот:

  s := PChar(a);

Answer 3

не бери в голову, нашел его

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

Answer 4

Я думаю, вы можете использовать move процедуру, как в этом примере