Wenn schon, denn schon
Delphi-Quellcode:
if (a > 0) then begin
...
end else begin
...
end;
Wenn man schon eine Zeile spart bei
'{' oder
'}' grad bei den Dimensionen der
ASCII Terminals heutzutage, dann gescheit.
. 25 Zeichen Höhe und 80 Zeichen Breite ist heute noch Standard... Das kommt von C so ich mich recht erinnere.
Ich persönlich schreibe das
begin
auch gleich hinten dran. Denke aber für jemanden der Blöcke zusammenfasst wird der Code leicht unleserlich respektive schwerer zu lesen.
Begin
leitet ein Block ein. Solange der Block wieder eingerückt is geht es. Es macht allein das zählen der Verschachtelungstiefe ein wenig schwierig.
Zumal man in Delphi das CASE mit
if
nachbilden muss ... halte ich mich eher an die von dir genannte Schreibeweise.
Als die Rechner noch im KHZ Bereich liefen, zwar im höheren aber doch, hat man aus Performancegründen auf jeden Luxus verzichtet genauso wie in C. Die IF Kaskaden in 'C' werden genauso geschrieben.
Ich halte mich einfach an die Ada Schreibweise. In Seed7 wird gerne so mit eingerückten Blöcken geschrieben.
Ich bevorzuge aber lieber...
Delphi-Quellcode:
if (a > 0) then begin
...
end;
Ha - noch einer, wir verwenden auch diese Formatierung! (seit
TP 2.0
)
Und:
Delphi-Quellcode:
if (a > 0) then begin
...
end
else begin
...
end;