这种书写习惯，需要改正吗?该如何解决
这种书写习惯，需要改正吗?
为了方便自己阅读， 喜欢把类似的语句用begin...end; 圈起来。 也有点强迫症， 这样和if while等语句排榜比较整齐， 编译可以通过， 就是不知道对程序有没有是弊端.
比如
------解决方案--------------------
不好的习惯，无意义的begin end; 改用注释分隔线
begin
a := 1;
b := 2;
c := 3;
end;
好的习惯，即使begin end 内只有一条语句
if a > b then
begin
//
//
//
end;
编码习惯的好坏通常对别人（维护、二次开发、学习你代码的第三方）而言，代码永远只有你自己在维护的话是无太多所谓的
------解决方案--------------------
话都被楼上说完了……
为了方便自己阅读， 喜欢把类似的语句用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;
------解决方案--------------------
不好的习惯，无意义的begin end; 改用注释分隔线
begin
a := 1;
b := 2;
c := 3;
end;
好的习惯，即使begin end 内只有一条语句
if a > b then
begin
//
//
//
end;
编码习惯的好坏通常对别人（维护、二次开发、学习你代码的第三方）而言，代码永远只有你自己在维护的话是无太多所谓的
------解决方案--------------------
话都被楼上说完了……