一个10进制数转成16进制的函数！写好就给分！

Question

谁能帮我写一个10进制数转成16进制的函数！写好就给分！

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Edit2: TEdit;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}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 }
procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := IntToDigit(StrToIntDef(Edit2.Text, 0), 2);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  Edit2.Text := IntToStr(DigitToInt(Edit1.Text, 16));
end;end.
===============================
任意进制之间的转换，Delphi6编译通过。好像分不够哦！