Delphi典型例子资料.doc

习题1 procedure TForm1.Button1Click(Sender: TObject); begin if (edtName.Text=admin)and(edtPass.Text=123456) then begin showmessage(豋录成功。); end else showmessage(姓名戓密码错。); end; 习题2 var Form1: TForm1; implementation {$R *.dfm} const iname=user; ipassword=00000; procedure TForm1.Button1Click(Sender: TObject); begin if ( edit1.text=iname)and(edit2.text=ipassword) then ShowMessage( 欢迎使用学生管理系统) else MessageDlg( 用户名或密码不正确,请重新输入!,mtError,[mbOk],0); end; 习题3 var r,c,s:real; const pi=3.14159; // 常量的定义 begin r:=strtofloat(edit1.Text); c:=2*pi*r; s:=pi*sqr(r); label2.Caption:=该圆的周长为：+floattostr(c)+ +chr(13)+面积为:+floattostr(s); end; procedure TForm1.Button2Click(Sender: TObject); begin close; end; 习题4 if 2 1 then begin a:=A;end else c:=Cend; 求分段函数的值： procedure TForm1.Button1Click(Sender: TObject); var x,y:real; begin x:=strtofloat(edit1.text); y:=x^2+x*x-x+2; edit2.Text:=floattostr(y); end; procedure TForm1.Button2Click(Sender: TObject); begin close; end; (*清除按钮的OnClick事件处理代码*) procedure TForm1.Button2Click(Sender: TObject); begin Edit1.Text:=; Edit2.Text:=; Edit3.Text:=; Edit4.Text:=; end; 习题4 procedure TForm1.Button3Click(Sender: TObject); begin Close; begin if Label1.Visible then begin Label1.Visible:=False; //如果是显示的，则隐藏 Button1.Caption:=显示; end else begin Label1.Visible:=True; //如果是隐藏的，则显示 Button1.Caption:=隐藏; end; end; 习题 procedure TForm1.Button1Click(Sender: TObject); var year:Integer; flag:Boolean; begin year:=StrtoInt(Edit1.text); //将字符串转变为整型 if year mod 4 = 0 then begin if year mod 100 =0 then begin if year mod 400=0 then flag:=true else flag:=false; end else flag:=true; end else flag:=false; if flag then Label2.Caption:=Edit1.text+年是闰年。 else