字节数组的问题 急啊。

Question

请问关于字节数组怎样转化成字符串的操作，能具体给点列子吗，我对这个非常生疏，实在是急啊

Answer 1

const
  a:array [0..5] of byte = ($30,$31,$32,$33,$34,0);;//'12345'
var
  p:pchar;
begin
  p:=@a;
  caption:=p;
end;

Answer 2

给你举个例子吧：
procedure TForm1.Button1Click(Sender: TObject);
var b:array[0..3] of byte;
    s:string;
begin
    b[0]:=97;    //0..255之间
    b[1]:=120;
    b[2]:=86;
    b[3]:=125;
    s:=char(b[0]) + char(b[1]) + char(b[2]) + char(b[3]);
    showmessage(s);
end;

Answer 3

var
ac:array [1..10] of byte;
i:integer;
pstr:pchar;
begin
 for i:=1 to 10 do
 begin
 ac[i]:=byte('A');
 pstr:=@ac;
 edit1.text:=pstr;
 end;
end;

Answer 4

用这个方法好简单：
真接调用字节数组的 toString() 方法，如：byte[] a=new btye[20];System.out.println(a.toString());他重写了 toString()的方法了。

Answer 5

假设
var 
  Buffer:array[0..1023] of char;
  str:String;
begin
  //对Buffer操作
  str:=String(Buffer); //这样str就是Buffer里的东西了
  ....
  
end;

Answer 6

var b:array[0..3] of byte;
    s:string;
begin
    b[0]:=1;   
    s:=char(b[0]);
    showmessage(s);