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;