Delphi 中,Byte数组如何赋值呢？

请给个例子..谢谢...
我照着你的复制的，但是，提示cannot initialize local variables

---

{转换 tbytes 到 integer}
procedure tform1.button1click(sender: tobject);
var
bs: tbytes; {tbytes 就是 byte 的动态数组}
i: integer;
begin
{它应该和 integer 一样大小才橘猜裂适合转换}
setlength(bs, 4);
bs[0] := $10;
bs[1] := $27;
bs[2] := 0;
bs[3] := 0;
{因为 tbytes 是动态数组, 所以它的变量 bs 是个指针; 所以先转换到 pinteger} i := pinteger(bs)^;
showmessage(inttostr(i)); {10000}
end;
{从 bytes 静态数组到 integer 的转换会方便些}
procedure tform1.button2click(sender: tobject);
var
bs: array[0..3] of byte;
i: integer;
begin
bs[0] := $10;
bs[1] := $27;
bs[2] := 0;
bs[3] := 0;
i := integer(bs);
showmessage(inttostr(i)); {10000}
end;
{转换到自定义的结构}
procedure tform1.button3click(sender: tobject);
type
tdata = packed record
a: integer;
b: word;
end;
var
bs: array[0..5] of byte; {这个数组应该和结构大小一直}
data: tdata;
begin
fillchar(bs, length(bs), 0);
bs[0] := $10;
bs[1] := $27;
data := tdata(bs);
showmessage(inttostr(data.a)); {10000}
end;
{转兆晌换给自定义结构的一个成员圆闭}
procedure tform1.button4click(sender: tobject);
type
tdata = packed record
a: integer;
b: word;
end;
var
bs: array[0..3] of byte;
data: tdata;
begin
fillchar(bs, length(bs), 0);
bs[0] := $10;
bs[1] := $27;
data.a := integer(bs);
showmessage(inttostr(data.a)); {10000}
end;

---

例子程序毕缓：

{$apptype console}
PROGRAM exp;
var a:array [1..10] of byte=(1,3,5,7,9,2,4,6,8,10);
i:integer;
begin
for i:=1 to 10 do writeln(a[i]);
end.

运行结果数高：薯数尺
E:\ygb>dcc32 a.dpr
Borland Delphi Version 15.0
Copyright (c) 1983,2002 Borland Software Corporation
a.dpr(8)
9 lines, 0.12 seconds, 10636 bytes code, 1813 bytes data.

E:\ygb>dcc32 a.dpr
Borland Delphi Version 15.0
Copyright (c) 1983,2002 Borland Software Corporation
a.dpr(7)
8 lines, 0.05 seconds, 10636 bytes code, 1813 bytes data.

E:\ygb>a.exe
1
3
5
7
9
2
4
6
8
10

---