📄 unit1.pas
字号:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, XPMan, Menus;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Button9: TButton;
Button10: TButton;
Button12: TButton;
XPManifest1: TXPManifest;
Button11: TButton;
Button1: TButton;
Button13: TButton;
Button14: TButton;
Button15: TButton;
Button16: TButton;
Button17: TButton;
Button18: TButton;
MainMenu1: TMainMenu;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
X1: TMenuItem;
A1: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure Button12Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Button13Click(Sender: TObject);
procedure Button17Click(Sender: TObject);
procedure Button14Click(Sender: TObject);
procedure Button15Click(Sender: TObject);
procedure Button16Click(Sender: TObject);
procedure Button18Click(Sender: TObject);
procedure X1Click(Sender: TObject);
procedure A1Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N10Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
jia:integer=0;
jian:integer=0;
cheng:integer=0;
chu:integer=0;
huan:boolean=false;
deng:boolean=true;
dian:boolean=false;
jiafa,jianfa,chengfa,chufa:real;
implementation
uses Unit2, Unit3;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
if ((jia=1) or (jian=1) or (cheng=1) or(chu=1)) and (huan=true)
then
begin
huan:=false;
dian:=false;
Edit1.Text:='';
if length(Edit1.Text)>10
then
Edit1.Text:=Edit1.Text
else
Edit1.Text:=Edit1.Text+'1';
end
else
if deng=false
then
if length(Edit1.Text)>10
then
Edit1.Text:=Edit1.Text
else
begin
Edit1.Text:='';
Edit1.Text:=Edit1.Text+'1';
deng:=true;
dian:=false;
end
else
if length(Edit1.Text)>10
then
Edit1.Text:=Edit1.Text
else
Edit1.Text:=Edit1.Text+'1';
dian:=false;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if ((jia=1) or (jian=1) or (cheng=1) or(chu=1)) and (huan=true)
then
begin
huan:=false;
dian:=false;
Edit1.Text:='';
if length(Edit1.Text)>10
then
Edit1.Text:=Edit1.Text
else
Edit1.Text:=Edit1.Text+'2';
end
else
if deng=false
then
if length(Edit1.Text)>10
then
Edit1.Text:=Edit1.Text
else
begin
Edit1.Text:='';
Edit1.Text:=Edit1.Text+'2';
deng:=true;
dian:=false;
end
else
if length(Edit1.Text)>10
then
Edit1.Text:=Edit1.Text
else
Edit1.Text:=Edit1.Text+'2';
dian:=false;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
if ((jia=1) or (jian=1) or (cheng=1) or(chu=1)) and (huan=true)
then
begin
huan:=false;
dian:=false;
Edit1.Text:='';
if length(Edit1.Text)>10
then
Edit1.Text:=Edit1.Text
else
Edit1.Text:=Edit1.Text+'3';
end
else
if deng=false
then
if length(Edit1.Text)>10
then
Edit1.Text:=Edit1.Text
else
begin
Edit1.Text:='';
Edit1.Text:=Edit1.Text+'3';
deng:=true;
dian:=false;
end
else
if length(Edit1.Text)>10
then
Edit1.Text:=Edit1.Text
else
Edit1.Text:=Edit1.Text+'3';
dian:=false;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
if ((jia=1) or (jian=1) or (cheng=1) or(chu=1)) and (huan=true)
then
begin
huan:=false;
dian:=false;
Edit1.Text:='';
if length(Edit1.Text)>10
then
Edit1.Text:=Edit1.Text
else
Edit1.Text:=Edit1.Text+'4';
end
else
if deng=false
then
if length(Edit1.Text)>10
then
Edit1.Text:=Edit1.Text
else
begin
Edit1.Text:='';
Edit1.Text:=Edit1.Text+'4';
deng:=true;
dian:=false;
end
else
if length(Edit1.Text)>10
then
Edit1.Text:=Edit1.Text
else
Edit1.Text:=Edit1.Text+'4';
dian:=false;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
if ((jia=1) or (jian=1) or (cheng=1) or(chu=1)) and (huan=true)
then
begin
huan:=false;
dian:=false;
Edit1.Text:='';
if length(Edit1.Text)>10
then
Edit1.Text:=Edit1.Text
else
Edit1.Text:=Edit1.Text+'5';
end
else
if deng=false
then
if length(Edit1.Text)>10
then
Edit1.Text:=Edit1.Text
else
begin
Edit1.Text:='';
Edit1.Text:=Edit1.Text+'5';
dian:=false;
deng:=true;
end
else
if length(Edit1.Text)>10
then
Edit1.Text:=Edit1.Text
else
Edit1.Text:=Edit1.Text+'5';
dian:=false;
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
if ((jia=1) or (jian=1) or (cheng=1) or(chu=1)) and (huan=true)
then
begin
huan:=false;
dian:=false;
Edit1.Text:='';
if length(Edit1.Text)>10
then
Edit1.Text:=Edit1.Text
else
Edit1.Text:=Edit1.Text+'6';
end
else
if deng=false
then
if length(Edit1.Text)>10
then
Edit1.Text:=Edit1.Text
else
begin
Edit1.Text:='';
Edit1.Text:=Edit1.Text+'6';
deng:=true;
dian:=false;
end
else
if length(Edit1.Text)>10
then
Edit1.Text:=Edit1.Text
else
Edit1.Text:=Edit1.Text+'6';
dian:=false;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -