简单问题，因为刚学计算机，简直是送分！！1

Question

//from
http://kingron.myetang.com/zsfunc01.htm(*//
标题:无限进制转换
说明:使用于数学领域进制之间相互转换
设计:Zswang
日期:2002-01-24
支持:[email protected]
//*)///////Begin Source
const
  cScaleChar = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';function IntPower(Base, Exponent: Integer): Integer; { 返回Base的Exponent次方 }
var
  I: Integer;
begin
  Result := 1;
  for I := 1 to Exponent do
    Result := Result * Base;
end; { IntPower }function IntToDigit(mNumber: Integer; mScale: Byte;
  mLength: Integer = 0): string;
{ 返回整数的进制表示;mScale指定多少进制;mLength指定长度,长度不足时向前补0 }
var
  I, J: Integer;
begin
  Result := '';
  I := mNumber;
  while (I >= mScale) and (mScale > 1) do begin
    J := I mod mScale;
    I := I div mScale;
    Result := cScaleChar[J + 1] + Result;
  end;
  Result := cScaleChar[I + 1] + Result;
  for I := 1 to mLength - Length(Result) do Result := '0' + Result;
end; { IntToDigit }function DigitToInt(mDigit: string; mScale: Byte): Integer;
{ 返回进制表示转换成整数;mScale指定多少进制 }
var
  I: Byte;
  L: Integer;
begin
  Result := 0;
  mDigit := UpperCase(mDigit);
  L := Length(mDigit);
  for I := 1 to L do
    Result := Result + (Pos(mDigit[L - I + 1], cScaleChar) - 1) *
      IntPower(mScale, I - 1);
end; { DigitToInt }
///////End Source///////Begin Demo
procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := IntToDigit(StrToIntDef(Edit2.Text, 0), 16);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  Edit2.Text := IntToStr(DigitToInt(Edit1.Text, 16));
end;
///////End Demo

Answer 1

//参考
S := IntToHex(I);
I := StrToIntDef('0x' + S, 0);

Answer 2

HexToBin()十六进制转换二进制
BinToHex()二进制转换十六进制
IntToHex()
StrToInt()  要求在字符串前面添加$即可！
把一个整数变成二进制字符串
function IntToBinaryStr(TheVal: LongInt): string;
var
  counter: LongInt;
begin
{This part is here because we remove leading zeros.  That
means that a zero value would return an empty string.}  if TheVal = 0 then begin
    result := '0';
    exit;
  end;  result := '';
  counter := $80000000;  {Suppress leading zeros}
  while  ((counter and TheVal) = 0) do begin
    counter := counter shr 1;
    if (counter = 0) then break; {We found our first "1".}
  end;  while counter > 0 do begin
    if (counter and TheVal) = 0 then result := result + '0'
    else  result := result + '1';
    counter := counter shr 1;
  end;