Delphi 2006正确使用END

Question

看这段代码：

if Poruka(BM_UWARN, GetMsg('Da li zaista želite da odbijete nalog?')) = mrOk then
  begin
    tmps := TRN.ss;
    TrnPom.ss := TRN.ss;
    RadnikOdbio.l := AdresniSlog.Rabotnik;
    if Zakljucaj(1011, tmps, 3) then
      begin
        FRazlogOdbNal.ShowModal;
        case FRazlogOdbNal.ModalResult of
          mrOk:              
            BeBankComment.ss := FRazlogOdbNal.beRazlogOdbijanja.ss;              
          else
            Otkljucaj(1011, tmps, 3);
            exit;
        end;
      end;
   end;

这段代码的作用并不重要，我需要帮助的是我在这部分代码中是否使用了足够的 ENDs。所以第一个 END 是 CASE 语句。第二个 END 关闭 if Zakljucaj(1011,tmps,3) 的 BEGIN，最后一个 END 关闭 BEGIN 的开始 IF。这是关闭它们的正确方法吗，编译器现在哪一端指的是代码的哪一部分？而且，编译器是否知道 else 部分引用 case 语句？如果没有，有没有办法明确地做到这一点？

Answer 1

您的代码在语法上是正确的。但是缩进有点偏离，你不应该缩进块的 begin 。 Rad Studio 自动格式化程序的默认行为是像这样对齐它们：

if Poruka(BM_UWARN, GetMsg('Da li zaista želite da odbijete nalog?')) = mrOk then
begin
  tmps := TRN.ss;
  TrnPom.ss := TRN.ss;
  RadnikOdbio.l := AdresniSlog.Rabotnik;
  if Zakljucaj(1011, tmps, 3) then
  begin
    FRazlogOdbNal.ShowModal;
    case FRazlogOdbNal.ModalResult of
      mrOk:
        BeBankComment.ss := FRazlogOdbNal.beRazlogOdbijanja.ss;
    else
      Otkljucaj(1011, tmps, 3);
      exit;
    end;
  end;
end;

你在问题中陈述的其他内容都是正确的。

Delphi 2006正确使用END

Delphi 2006 proper use of END

delphi

if-statement

case

delphi-2006