Variante 1;
Delphi-Quellcode:
Procedure Something();
Begin
if Foobar>23 then Stuff:=Bar;
For bar in foo do begin
...
end;
end;
Variante 2:
Delphi-Quellcode:
Procedure Something();
Procedure SetStuff();...
Procedure ProcessAllFoos();...
Begin
SetStuff();
ProcessAllFoos();;
end;
Variante 2 *dokumentiert* ohne Kommentar. Prozeduren sind ja nicht nur dazu da, um Redundanz zu vermeiden, sondern sollen die Lösung (also den Code) in Teillösungen unterteilen. Im Idealfall so, das jede Teillösung (aka Prozedur, Methode) nur eine einzige Aufgabe hat (=> Clean Code).
Die Sache mit den lokalen Prozeduren ist ein Überbleibsel aus der Vor-
OOP-Zeit. Mittlerweile würde man das eher als private Methode umsetzen.