注册 登录
编程论坛 Delphi论坛

初学Delphi, 求高手教我if-else用法.(我攻ASP.net的,所以结构上有点不懂)

tw920217 发布于 2011-06-03 10:58, 1398 次点击
procedure TProjectForm.btnYesClick(Sender: TObject);
begin
  if StrToInt(cbStage.Items.Text) in [010,020,030,110] then
    qryStage.Close;
    qryStage.SQL.Clear;
    qryStage.SQL.Add('select * from DStageDetail where Stage='''+cbStage.Text+'''');
    qryStage.SQL.Add(' and outputdate >= '+formatdatetime('yyyymmdd',dtpSta.Date) );
    qryStage.SQL.Add(' and outputdate <= '+formatdatetime('yyyymmdd',dtpOver.Date) );
    qryStage.Open;
  else
    qryStage.Close;
    qryStage.SQL.Clear;
    qryStage.SQL.Add('select * from DFQCDetail where Stage='''+cbStage.Text+'''');
    qryStage.SQL.Add(' and outputdate >= '+formatdatetime('yyyymmdd',dtpSta.Date) );
    qryStage.SQL.Add(' and outputdate <= '+formatdatetime('yyyymmdd',dtpOver.Date) );
    qryStage.Open;
end

     begin
     
     end;

-------我是分割线--------

在网上有看一点资料.对于这个begin的概念似乎有点模糊.再就是对于if-else说跟的条件结构也有点模糊.求好心人指点指点.(注:现工作需要)
3 回复
#2
tw9202172011-06-03 10:59
求好心人指点哈..如遇ASP问题,我也可以帮助解答的!!
#3
zin59702011-06-03 14:53
begin
end

相当于.net 的{}

。net 中 用
if ()
{
}
else
{
}

delphi格式就为
if () then
begin
end
else
begin
end;
 
#4
tw9202172011-06-03 15:20
回复 3楼 zin5970
非常感謝.. 其實我知道這個語法.就是想確認下.畢竟在網上看到的不太相信
1