Ich persönlich rücke in "Einser-Schritten" ein.
Also sehr gerne so:
Delphi-Quellcode:
procedure Button1.Click(Sender: TOBject);
begin
-if 1 > 0 then // Leerzeichen rechts und links von >
--begin
---// Do something
--end;
-Label1.Caption := 'Mich gibbet net!' // Label auf selbe Höhe wie "if"
end;
Die schlimmste Formatierung die ich je gesehen habe sah in etwa so aus:
Delphi-Quellcode:
procedure Button1.Click(Sender: TOBject);
--begin
-----if 1 > 0 then // Leerzeichen rechts und links von
-----begin
-----// Do something
-----end;
-----Label1.Caption := 'Mich gibbet net!' // Label auf selbe Höhe wie "if"
--end;