关于进制转换的问题

Question

我想把一个十进制或二进制的数据转换成八进制或十六进制，或者反过来转换，
请问有没有相关的转换函数啊？在线等

Answer 1

十六进制
var
  i:integer;
begin
  i:=StrtoInt('0x10');
  Edit1.Text:=inttohex(i,2);
end;

Answer 2

另外
uses  IdGlobal;
...
  edit2.Text:=IntToBin(i); //整型转2进制字符

Answer 3

10-〉16
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
Label1.Caption := '';
for i := 1 to Length(Edit1.Text) do
begin
try
Label1.Caption := Label1.Caption + IntToHex(Edit1.Text[i],2) + ' ';
except
Beep;
end;
end;
end;