为了方便自己阅读,  喜欢把类似的语句用begin...end; 圈起来。  也有点强迫症, 这样和if while等语句排榜比较整齐, 编译可以通过, 就是不知道对程序有没有是弊端.比如
procedure TForm1.FormCreate(Sender: TObject);
var
  a, b, c: Integer;
begin  begin
    a := 1;
    b := 2;
    c := 3;
  end;  if a > b then
  begin
    //
    //
    //
  end;  begin
    Caption := 'hh';
    top := 111;
    Left := 222;
  end;end;

解决方案 »

  1.   

    不好的习惯,无意义的begin end; 改用注释分隔线
      begin
        a := 1;
        b := 2;
        c := 3;
      end;好的习惯,即使begin end 内只有一条语句
      if a > b then
      begin
        //
        //
        //
      end;编码习惯的好坏通常对别人(维护、二次开发、学习你代码的第三方)而言,代码永远只有你自己在维护的话是无太多所谓的
      

  2.   

    单你的这个强迫beigin end对程序是没什么弊端的,通常情况也会被编译器优化掉。