德爾福，複製字符串到字節數組

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