用DELPHI写的一个2进制转10进制源码

一路随云

1. unit Unit1;
   
2. 
   
3. interface
   
4. 
   
5. uses
   
6. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   
7. Dialogs, StdCtrls, Math;
   
8. 
   
9. type
   
10. TForm1 = class(TForm)
    
11. edt1: TEdit;
    
12. btn1: TButton;
    
13. lbl1: TLabel;
    
14. procedure btn1Click(Sender: TObject);
    
15. procedure edt1Click(Sender: TObject);
    
16. procedure edt1KeyPress(Sender: TObject; var Key: Char);
    
17. 
    
18. private
    
19. { Private declarations }
    
20. public
    
21. { Public declarations }
    
22. end;
    
23. 
    
24. function spos(pos, g_length: Integer): Integer;
    
25. 
    
26. var
    
27. Form1: TForm1;
    
28. 
    
29. implementation
    
30. 
    
31. 
    
32. {$R *.dfm}
    
33. 
    
34. procedure TForm1.btn1Click(Sender: TObject);
    
35. var
    
36. str: string; //编辑框的内容
    
37. i: Integer; //循环计次
    
38. Num: Extended; //转换后的值 因为POWER命令返回是EXTENDED类型
    
39. temp: Extended; //临时下每个位为1的值
    
40. Pos: Integer; //当前位置
    
41. lgh: Integer; //字符串总长度
    
42. 
    
43. begin
    
44. 
    
45. str := edt1.text;
    
46. lgh := Length(str);
    
47. num := 0;
    
48. for i := lgh downto 1 do
    
49. begin
    
50. if str[i] = '1' then
    
51. begin
    
52. Pos := spos(i, lgh);
    
53. temp := Power(2, pos - 1);
    
54. Num := Num + temp;
    
55. end;
    
56. 
    
57. end;
    
58. lbl1.Caption := '10进制的值为：'+floatToStr(Num);
    
59. end;
    
60. 
    
61. function spos(pos, g_length: Integer): Integer; //自定义的一个函数用来取从右到左的位置
    
62. var
    
63. nowpos: Integer;
    
64. begin
    
65. nowpos := g_length - pos + 1;
    
66. Result := nowpos;
    
67. end;
    
68. procedure TForm1.edt1Click(Sender: TObject);
    
69. begin
    
70. edt1.Text:=''
    
71. end;
    
72. 
    
73. procedure TForm1.edt1KeyPress(Sender: TObject; var Key: Char);
    
74. begin
    
75. if Key in ['0','1'] = False then //如果输入的不是0,1的话就不给显示
    
76. Key:=#0;
    
77. end;
    
78. 
    
79. end.
    
80. 
    

复制代码

程序有三个组件  一个 叫edt1 的编辑框
一个叫btn1的按钮
一个叫lbl1的标签

aa7769640

这个帖子不错，大家快来顶起来！

ygrong_2008

这个不难

hynw0000

1