Delphi7关于declaration expected but if found 10
出现declarationexpectedbutiffound，怎样解决？procedureTForm1.BitBtn1Click(Sender:TObject);ifA...
出现declaration expected but if found，怎样解决？procedure TForm1.BitBtn1Click(Sender: TObject);
if ADOTable1.locate('学号',Edit1.Text,[ ]) then
Application.MessageBox('乱七八糟','有',MB_OK+MB_ICONSTOP);
else
begin
ADOTable1.Append;
ADOTable1.FieldByName('编号').AsString := Edit1.Text;
ADOTable1.FieldByName('姓名').AsString := Edit2.Text;
ADOTable1.FieldByName('文科').AsFloat := StrToFloat( Edit3.Text);
ADOTable1.FieldByName('理科').AsFloat := StrToFloat( Edit4.Text);
ADOTable1.Post;
end; 展开
if ADOTable1.locate('学号',Edit1.Text,[ ]) then
Application.MessageBox('乱七八糟','有',MB_OK+MB_ICONSTOP);
else
begin
ADOTable1.Append;
ADOTable1.FieldByName('编号').AsString := Edit1.Text;
ADOTable1.FieldByName('姓名').AsString := Edit2.Text;
ADOTable1.FieldByName('文科').AsFloat := StrToFloat( Edit3.Text);
ADOTable1.FieldByName('理科').AsFloat := StrToFloat( Edit4.Text);
ADOTable1.Post;
end; 展开
1个回答
展开全部
if 上面一行没有加begin最后一行没有end。所以你这按钮点击过程是有语法错误的
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
