*****************引用******************************
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;
String,PChar,PByte,Array of Char,Array of Byte 转换---来自大富翁
最新推荐文章于 2017-10-19 17:38:03 发布