unit Unit1;interfaceuses
Windows, Messages,menus, SysUtils, Math,Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
pmPrinters: TMainMenu;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
procedure MyClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}
procedure TForm1.MyClick(Sender: TObject);
begin
showmessage((Sender as TMenuItem).caption);
end;
function BinToInt(InStr:String):Integer;
var
LoopCounter:Integer;
begin
Result := 0;
for LoopCounter := 1 to Length(Instr) do
Result := Result + Trunc( StrToInt(InStr[LoopCounter])*Power(2, Length(InStr)-LoopCounter ) );
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
Showmessage(INttostr(bintoint(edit1.text)));
end;
end.
Windows, Messages,menus, SysUtils, Math,Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
pmPrinters: TMainMenu;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
procedure MyClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}
procedure TForm1.MyClick(Sender: TObject);
begin
showmessage((Sender as TMenuItem).caption);
end;
function BinToInt(InStr:String):Integer;
var
LoopCounter:Integer;
begin
Result := 0;
for LoopCounter := 1 to Length(Instr) do
Result := Result + Trunc( StrToInt(InStr[LoopCounter])*Power(2, Length(InStr)-LoopCounter ) );
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
Showmessage(INttostr(bintoint(edit1.text)));
end;
end.
解决方案 »
- 皮肤控件中的SkinData是什么作用?
- 请问如何利用Delphi实现向Web数据库实现POST递交数据,请注意,本地MIS应用,非ISAPI,非CGI。
- 有没有语法作色显示XML代码的控件?
- 急(怎样判断数据库表的主键是否重复)
- 关于usb的问题
- sql server 数据库,用wise9发布,如何使其发布后,不再需要安装sql server,就能顺利运行??
- 关于netusergetinfo
- 如何获得文件的信息,如版本号等?
- protel 二次开发 资料征集,UP有分
- dbchart控件坐标覆盖问题?
- 如何响应F1-F12几个键?
- 问问大家,为什么我用adoquery控件进行oracle插入时总是报错
/////////////
function BinToInt(InStr:String):Integer;
var
LoopCounter:Integer;
begin
Result := 0;
for LoopCounter := 1 to Length(Instr) do
Result := Result + Trunc( StrToInt(InStr[LoopCounter])*Power(2, Length(InStr)-LoopCounter ) );
end;
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