Delphi典型例子
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
procedure TForm1.Button1Click(Sender: TObject);
begin
if (edtName.Text='admin')and(edtPass.Text='123456') then begin
showmessage('豋录成功。');
end
else
showmessage('姓名戓密码错。');
end;
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:=C
end;
求分段函数的值：
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;
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
Label2.Caption:=Edit1.text+'年不是闰年。'; end;
procedure TForm1.Button1Click(Sender: TObject); var
n,i,p:integer;
begin
n:=strtoint(Edit1.Text);
i:=1;
p:=1;
if n>0 then
begin
while i<=n do
begin
p:=p*i;
i:=i+1;
end;
Label2.Caption:=inttostr(n)+'!='+inttostr(p);
end
else
messageDlg('数据无效!',mtError,[MbOk],0);
end;