怎么向PChar类型的变量填充一组含有$00的字符的字符串

Question

比方说34个字节字符串，其16进制表示为7E FF FF 81 10 00 00 00 00 00 00 00 00 00 00 00  00  00 00 00 00 00 00 00 00 00 00 00 00 00 00 8F 02 0D，其中包含有$00字符(字符串结束符)，怎么将其填充至一个PChar变量？

Answer 1

var
  Ch: PChar;
begin
  GetMem(Ch, 34);
  Ch[0] := Char($7E);
  Ch[1] := Char($00); //实际上已经填充到了Ch的单元中了。
  Ch[2] := Char($34);
  ShowMessage(Ch[2]); //只能以下标访问，此时Ch[2]的值为'4'
  ShowMessage(Ch);    //编译器会认为到Ch[1]时已经结束，只输出Ch[0]的值。
  FreeMem(Ch);
end;