简单问题,有答必有分。。。。进来看看呀!!!
各位我现在想完成的功能是:
在Memo框中输入十六进制数字,然后依次取两个作为一个字节,
将其赋给a1数组(a1是byte类型)。
比如说:在memo框中输入:1234567890abcdef,先取出‘12’送给a1[1],
再取‘34’送给a1[2],依次这样取完。
procedure TForm1.Button1Click(Sender: TObject);
var
s,s1:string;
a1:array[1..10] of byte;
i:integer;
begin
s1:=memo1.Lines.Text;//s1='1234567890abcdef'
for i:=1 to 10 do
begin
s:=copy(s1,(2*i-1),2);//第一次取‘12’,第二次取‘34’......
a1[i]:=byte($s);//将‘12’做为一个字节送给a1[1],‘34’做为一个字节
送给a2[2]......这句话为什么不对呢?
end;
end;
十分感谢各位的回答。