String，PChar，PByte，Array of Char，Array of Byte 转换---来自大富翁

*****************引用******************************
var
s:string;
pc:pchar;
pb:pbyte;
ac:array[1..100] of char;
ab:array[1..100] of byte;
i:integer;
begin
s:='this is a test';
pc:=pchar(s); //string->pchar
pb:=pbyte(pc); //pchar->pbyte
for i:=1 to length(s) do
begin
ac[i]:=s[i]; //string->arrary of char
ab[i]:=byte(s[i]); //string->arrary of byte
end;

s:=pc; //pchar->string
s:=string(pb); //pbyte->string
s:=c; //arrary of char->string;

end;