为了方便自己阅读, 喜欢把类似的语句用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;
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
a := 1;
b := 2;
c := 3;
end;好的习惯,即使begin end 内只有一条语句
if a > b then
begin
//
//
//
end;编码习惯的好坏通常对别人(维护、二次开发、学习你代码的第三方)而言,代码永远只有你自己在维护的话是无太多所谓的