Das Auseinanderreißen von Sparchkostrukten ist ebenfalls schlechter Stil, also sowas:
Delphi-Quellcode:
if x > 0
then
while x > 0
do
repeat
until
x > 0;
Bei all diesen Konstrukten gehört alles in eine Zeile, also so
Delphi-Quellcode:
while Bedingung do
if Bedingung then
repeat
until Bedingung;
Das ist ganz einfach begründet, denn die EINFACHSTE Programmverzweigung, nämlich keine, wird durch ein BEGIN markiert.
Delphi-Quellcode:
function XYZ(): Result;
begin // <-
begin // <- separater Programblock
ABC;
end;
end;
Die bedingten Programmverzweigungen ersetzen nun einfach dieses begin
Delphi-Quellcode:
function XYZ(): Result;
begin // <-
// be- -gin
if Bedingung then // <- separater Programblock
ABC;
// be- -gin
while Bedinung do
ABC
repeat
ABC;
until Bedingung; // logisch betrachtet einfach mal umdrehen und so betrachten
until Bedingung
ABC;
repeat
end;
Gruß Hagen