关于DELPHI上位机的报告 陈哲 控制科学与技术 2010000766
procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); private
{ Private declarations } public
Function ADD(A,B:Integer):Integer; Function DEC(A,B:Integer):Integer; Function MUL(A,B:Integer):Integer; Function DEV(A,B:Integer):real; { Public declarations } end; var
Form1: TForm1; implementation
function TForm1.ADD(A,B:integer):Integer; begin
result:=A+B; end;
function TForm1.DEC(A,B:integer):Integer; begin result:=A-B; end;
function TForm1.MUL(A,B:integer):Integer; begin
result:=A*B; end;
function TForm1.DEV(A,B:integer):real; begin result:=A/B; end;
11
关于DELPHI上位机的报告 陈哲 控制科学与技术 2010000766
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject); var
X,Y:Integer; begin
X:=StrToInt(Edit1.Text); Y:=StrToInt(Edit2.Text); Edit3.Text:=IntToStr(ADD(X,Y)); end;
procedure TForm1.Button2Click(Sender: TObject); var
X,Y:Integer; begin
X:=StrToInt(Edit1.Text); Y:=StrToInt(Edit2.Text); Edit3.Text:=IntToStr(DEC(X,Y)); end;
procedure TForm1.Button3Click(Sender: TObject); var
X,Y:Integer; begin
X:=StrToInt(Edit1.Text); Y:=StrToInt(Edit2.Text); Edit3.Text:=IntToStr(MUL(X,Y)); end;
procedure TForm1.Button4Click(Sender: TObject); var
X,Y:Integer; begin
X:=StrToInt(Edit1.Text); Y:=StrToInt(Edit2.Text);
12
关于DELPHI上位机的报告 陈哲 控制科学与技术 2010000766
Edit3.Text:=FloatToStr(DEV(X,Y)); end; end.
程序运行结果如下：
五．总结
Delphi的确是一款功能强大的上位机软件，学习Delphi的过程是一件充满愉快的事情，给人带来很大的成就感。遗憾的是目前，我的掌握程度还很浅，将来做更深入的研究之后，一定再向林老师汇报。
13