Question

Delphi程序高手请帮帮我。一个关于显示是不是闰年的程序。

我在Delphi中新建了一个窗体,放置了一个Edit组件,一个Label组件,一个Button组件.我想实现的功能是在Edit组件中输入一个年份(比如输入2006)
然后通过单击Button按钮就可以在Label组件中显示该年份是不是闰年.我想请问这个编程代码怎样输入?

Answer 1

procedure TForm1.btn1Click(Sender: TObject);
var
y: integer;
begin
y := StrToInt(edt1.Text);
if (y mod 4 = 0) and (y mod 100 <> 0) or (y mod 400 = 0) then
lbl1.Caption := edt1.Text + '是闰年'
else
lbl1.Caption := edt1.Text + '不是闰年';
end;

Answer 2

上面的程序是对的
只要将Button1、Label1、Edit1的caption依次改为btn1,lbl1,edt1拷过去就能运行的