var
s : string;
t : string;
begin
s := '36 31 35 20 0E BA D3 C4 CF D0 C2 C3 DC D3 D0 0F 33 30 2D 33 35 0E B6 D6 0F 20 30 34 31 37 20 35 38 36 37 32 34 38 20 0E BA C2 C5 AE CA BF 0F 20 20 23 35 30 37 0E';
while s<>'' do
begin
t:=t+chr(strtoint('$'+copy(s,1,2)));
delete(s,1,3);
end;
end;
转载于:https://blog.51cto.com/1274916/679691