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

DELPHI里把STRING转来BYTE再转回STRING的方法或代码Byte是8位的，只能代表一个字符。所以应该只有在String只有一位时才能转。String只有一位那就是个Char所以用Ord()和Chr()两个函数就可以互相转。