Совершенно случайно наткнулся на инструкцию для студентов по оформлению текстов программ.
Не со всеми пунктами однозначно согласен, но думаю развивать культуру программирования необходимо.
begin
if not condition1 then begin
break
end;
if not condition2 then begin
break
end;
if not condition3 then begin
break
end;
if not condition4 then begin
break
end;
DoSomething;
end;
begin
if not condition1 then begin
if not condition2 then begin
if not condition3 then begin
if not condition4 then begin
DoSomething;
end;
end;
end;
end;
end;
begin
if not (condition1 or condition2 or condition3 or condition4) then DoSomething;
end;
beginУвы, не вышло.
result := MyFunc1;
if result = 0 then begin
result := MyFunc2;
if result = 0 then begin
...
DoSomething1;
DoSomething2;
...
end else begin
DoError(2,result);
WriteError(2);
end;
end else begin
DoError(1result);
WriteError(1);
end;
end;
Т.е. принципиально с пустым телом.
begin
if not (condition1 or condition2 or condition3 or condition4 or DoSomething) then;
end;