byte数组的问题

Question

本帖最后由 cnmjzr 于 2011-05-11 17:12:39 编辑

Answer 1

可以这样
var
  a:array[0..255] of char;
begin
  a[0] := #13;
  a[1] := #33;
...
end;

Answer 2

 
procedure TForm1.Button13Click(Sender: TObject); 
var 
  a:array[0..255] of byte;
  pdata:pchar;
begin
a[0]:=13;
a[1]:=33;
...
a[255]:=89;//当调用时//**************************
//稍做转换就行了
pdata = @a;
//**************************  swr_4442(icdev,0,255,pdata);
end;
//另附一个示例
procedure TForm1.dosth(data: pchar);
 var
   str:string;
   len:integer;
begin
   len := strlen(data);
   if len=0 then exit;
   str := data;
   showmessage(str);
end;procedure TForm1.FormCreate(Sender: TObject);
 var
  data:array [0..255] of byte;
  pdata:pchar;
begin  data[0] := ord('a');
  data[1] := ord('b');
  pdata := @data;
  dosth(pdata);
end;

Answer 3

swr_4442(icdev,0,255,PChar(@a));

Answer 4

如果是swr_4442(icdev,0,255,@a[3]);时，这个怎么用PCHAR?