procedure TFormWorkView.Timer1Timer(Sender: TObject);
var
ByteArray: array of Byte;
i:integer;
y:integer;
Number:integer;
Devstr:string;
begin
ListBox1.Clear;
//setlength(ByteArray,length(relaystr));
setlength(ByteArray,7);
//Edit2.Text:=inttostr(length(relaystr));
Number:=(length(relaystr)-5) div 7;
for i:=0 to Number-1 do
begin
Devstr:=copy(relaystr,5+i*7,7);
for y:=0 to length(Devstr)-1 do
begin
ByteArray[y]:=byte(Devstr[y+1]);
end;
//这里处理数据,要更新动态按纽的图标、还要每条写入数据库,多子,介面会死掉
ListBox1.Items.Add(inttostr(ByteArray[0])+'-'+inttostr(ByteArray[1])+'-'+inttostr(MAKEWORD(ByteArray[2],ByteArray[3])));
end;
end;