在C++中一般是是
void foo(int a)
{
if (a < 0)
return;
.....
}
Delphi中一般是
procedure foo(a: integer)
begin
if a >= 0 then
begin
....
end;
end;
换句话说,在op中鼓励一个函数只有一个出口,就是函数的末尾。
另外一个风格的变化是Delphi中使用Unit作为程序的单元,这点和C++中cpp和h组合的风格有很大的不同,在考虑程序结构时要注意Unit的内聚化,以及明确Unit的对外接口,其实这很有利于你思考什么东西是共用的,什么东西是Unit私用的。感觉OP中的Unit结构更像是Java中的风格。