摘要： implementation{$R *.dfm}procedure jiecheng(var a,varlue:Int64); //自定义一个过程：求a的阶乘，值为valuevar i:Integer;begin varlue:=1; for i:=1 to a do varlue:=varlue*i;end;procedure TForm1.Button1Click(Sender: TObject);var c,b:Int64;begin c:=StrToInt(edt1.Text); //edit1中输入一个数c jiecheng(c,b); //调用前面的自定义过程 edt2.Text: 阅读全文

摘要： 首先祝贺自己的博客开通！其次要特别感谢万一老师！潜水这么久，一直看万一老师的delphi博客。我从中学到好多东西，很实在，比看书来的快多了。今天终于开通自己的博客了，真的好开心！现在特别需要这么一个博客，在里面记录自己在工作和学习中的点点滴滴。 阅读全文