Question

Delphi如何操作16进制的字符串

表达能力有限，所以就弄了一张以上的图应该都明白吧，就是说每次我得来的这串16进制
有些不规律，但开头都是一样的 然后有长度的代表在来就是我需要的数据，我想操作其他其他的只要我要的数据并且转成ASCII码，希望能给出代码，小弟感激不进

Answer 1

function getdata(str: string): string;
var
  i, j, len: integer;
  temp, ascii: string;
begin
  str := trim(str);
  len := length(str);
  if len < 8 then getdata := ''; //不足8位返回空
  i := strtoint('$' + copy(str, 7, 2));
  j := 11 + i * 2;
  if len >= j-1 then j := i * 2 else j := ((len - 11) div 2) * 2; //是否有满足长度的数据位
  temp := copy(str, 11, j);
  ascii := '';
  for i := 1 to (j div 2 ) do
  begin
    ascii := ascii + chr(strtoint('$' + copy(temp, (i - 1) * 2 + 1, 2)));
  end;
  getdata := ascii;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  str: string;
begin
  showmessage(getdata('7800030600353536363737'));//为556677
  showmessage(getdata('7800030A007177657273787A313233589E'));//qwersxz123
end;
end.