在delphi中Char,PChar,PByte,Byte,String的相互转换示例

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;