没有这样的函数,其实自已编一个也不难啊,用div 和mod应该行
解决方案 »
- SyneditStudio安装问题?
- OLE方法导出数据到Excel过程,打开其Excel文件的问题。
- 使用SendMessage 模拟鼠标点击
- 菜鸟求助[Fatal Error] Unit1.pas(6): File not found: 'MessageBox.dcu'的问题!
- 关于一个动态创建控件的问题
- 如何编写,listview所选择项为蓝色
- 新人初来乍到 问候下大家 希望可以共同提高,并向大家虚心求教!
- delphi如何操作autocad,up有分!
- 大侠帮忙啊!!!
- 关于 ADO 的初级问题
- query等组件 中sql语句,怎样才可以一次execsql多条语句
- ···刚刚做完一个缩略图控件,有要的进来!!!!!!!!!
var
I: Integer;
begin
Result := 1;
for I := 1 to mExponent do Result := Result * mBase;
end; { IntPower }const
cScaleChar = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';function IntToDigit(mNumber: Integer; mScale: Byte;
mLength: Integer = 0): string;
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;
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);
var
A, B: Integer;
begin
A := DigitToInt('00100000', 16);
ShowMessage(IntToDigit(A, 2));
B := DigitToInt('131072', 10);
ShowMessage(IntToDigit(B, 2));
ShowMessage(IntToDigit(A or B, 2));
end;
var
I: Integer;
begin
Result := 1;
for I := 1 to mExponent do Result := Result * mBase;
end; { IntPower }const
cScaleChar = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';function IntToDigit(mNumber: Integer; mScale: Byte;
mLength: Integer = 0): string;
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;
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);
var
A, B: Integer;
begin
A := DigitToInt('00100000', 16);
ShowMessage(IntToDigit(A, 2));
B := DigitToInt('131072', 10);
ShowMessage(IntToDigit(B, 2));
ShowMessage(IntToDigit(A or B, 2));
end;
// uses IdGlobal
procedure TForm1.Button1Click(Sender: TObject);
begin
Caption := IntToBin($00100000);
end;
var
I: Integer;
begin
Result := 1;
for I := 1 to mExponent do Result := Result * mBase;
end; { IntPower }const
cScaleChar = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';function IntToDigit(mNumber: Integer; mScale: Byte;
mLength: Integer = 0): string;
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;
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);
var
A, B: Integer;
begin
A := DigitToInt('00100000', 16);
ShowMessage(IntToDigit(A, 2));
B := DigitToInt('131072', 10);
ShowMessage(IntToDigit(B, 2));
ShowMessage(IntToDigit(A or B, 2));
end;
var
I: Integer;
begin
Result := 1;
for I := 1 to mExponent do Result := Result * mBase;
end; { IntPower }const
cScaleChar = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';function IntToDigit(mNumber: Integer; mScale: Byte;
mLength: Integer = 0): string;
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;
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);
var
A, B: Integer;
begin
A := DigitToInt('00100000', 16);
ShowMessage(IntToDigit(A, 2));
B := DigitToInt('131072', 10);
ShowMessage(IntToDigit(B, 2));
ShowMessage(IntToDigit(A or B, 2));
end;