求高手delphi7问题! [Error] Unit1.pas(62): Declaration expected but end of file found

procedureTForm1.Button1Click(Sender:TObject);VarnMonth,nDay,nYear,nDayInYear,nM:Integ... procedure TForm1.Button1Click(Sender: TObject);
Var
nMonth ,nDay ,nYear ,nDayInYear, nM:Integer;
begin
nYear :=SpinEdit1.Value ;
nMonth :=SpinEdit2.Value ;
nDAY :=SpinEdit3.Value ;
nDayInYear :=0;
For nM :=1 to nMonth-1 do
begin
Case nM of
4,6,9,11:nDayInYear :=nDayInYear +30;
2:
begin
nDayInYear :=nDayInYear +28;
if ((nYear mod 4)=0) and ((nYear mod 100)<>0) then

Inc (nDayInYear);
end;
else
nDayInYear :=nDayInYear+31;
end;
end;
nDayInYear:=nDayInYear+nDay;
Label5.Caption :='该天是本年中第' +InttoStr(nDayInYear)+'天';
end;

错误:
[Error] Unit1.pas(62): Declaration expected but end of file found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

问题出在哪啊!妹按一次运行,光标自动下一行,[Error] Unit1.pas(62): 就自动加1???
展开
 我来答
windblast
2012-03-12 · 知道合伙人软件行家
windblast
知道合伙人软件行家
采纳数:5633 获赞数:13621
毕业于空军第一航空学院电子专业,1991年开始接触电脑,从事多年计算机编程,具有较丰富的经验。

向TA提问 私信TA
展开全部
从错误提示看哪没,你的文件李慎纳没有正常结束。可能是你少了最后孝则的end.

文件不全,无法判断。
qian2988
2012-03-13 · 超过41用户采纳过TA的回答
知道小有建树答主
回答量:154
采纳率:100%
帮助的人:126万
展开全部
procedure TForm1.Button1Click(Sender: TObject);
Var
nMonth ,nDay ,nYear ,nDayInYear, nM:Integer;
begin
nYear :=SpinEdit1.Value ;
nMonth :=SpinEdit2.Value ;
nDAY :=SpinEdit3.Value ;
nDayInYear :=0;
For nM :=1 to nMonth-1 do
begin
Case nM of
4,6,9,11:nDayInYear :=nDayInYear +30;
2:
begin
nDayInYear :=nDayInYear +28;
if ((nYear mod 4)=0) and ((nYear mod 100)<>0) then
Inc (nDayInYear)
else
nDayInYear :=nDayInYear+31;
end;
end;
end;
nDayInYear:=nDayInYear+nDay;
Label5.Caption :='悄粗派该天是本凳信年中第启贺' +InttoStr(nDayInYear)+'天';
end;
本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
liu55721
2012-03-12 · TA获得超过922个赞
知道大有可为答主
回答量:1861
采纳率:100%
帮助的人:875万
展开全部
检查一下,BEGIN和end是否成对。这段代码本身应该没有什么问题。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
鲜活还悉心丶彩旗5319
2012-04-11 · TA获得超过5.8万个赞
知道大有可为答主
回答量:3.8万
采纳率:0%
帮助的人:5181万
展开全部
差end
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 2条折叠回答
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式