Begin-End - Compound Only

Bad code

if FindSet() then begin
    repeat
    ...
    until next() = 0;
end;

if FindSet() then
    repeat
    ...
    until next() = 0;

if IsAssemblyOutputLine then begin
    TestField("Order Line No.", 0);
end;

if IsAssemblyOutputLine then
    TestField("Order Line No.", 0);

// Except for this case
if X then begin
    if Y then 
        //DO SOMETHING;
end else 
    (not X)

You can find discussions on all “Best Practices” here.

If you don’t find the discussion of this guideline, please feel free to create a new one with the same title as this article.