delphi - 如何从十六进制字符串中去除前导零？

Question

如果我有一个字符串 '0000FFFF' 或 '0000F0F0'，如何让输出分别为 'FFFF' 和 'F0F0'，从中删除不重要的 0？

Answer 1

此函数将去除前导零:

function StripLeadingZeros(const s: string): string;
var
  i, Len: Integer;
begin
  Len := Length(s);
  for i := 1 to Len do begin
    if s[i]<>'0' then begin
      Result := Copy(s, i, Len);
      exit;
    end;
  end;
  Result := '0';
end;