非高手莫进

Question

一个小问题,现在有一十进制数,将其转化成十六进制,取其每两位在将其变为十进制.如1000,变为03e8,再变为3和232,如何实现,最好有源码.谢谢

Answer 1

S := IntToHex(1000);
IntToStr(Hi(Short(1000))); IntToStr(Lo(Short(1000)));

Answer 2

function TForm1.IntegerParser(I: Integer): TStringList;
var
  J: Integer;
begin
  Result := TStringList.Create;
  J := I;
  while J <> 0 do
  begin
    Result.Insert(0, IntToStr(Lo(J)));
    J := J shr 8;
  end;
end;如果调用IntegerParser(1000)，则返回字符串列表的[0]为3，[1]为232—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————