一聚教程网:一个值得你收藏的教程网站

热门教程

String,PChar,PByte,Array of Char,Array of Byte

时间:2022-06-25 05:02:24 编辑:袖梨 来源:一聚教程网

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;

热门栏目