非高手莫进

[ekin]

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

[westfly]

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

[lxpbuaa]

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

—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————

[guestroad]

:) 不好意思，进错了。

[深宇]

me too!:)