For-Schleife als Template mit Prozedur als Parameter?

[Delphi.Narium]

Und hier

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
begin
 ForLoop(
   procedure(i: Integer)
  begin
   ShowMessage(i.ToString);
  end);
end;

hast Du innerhalb von ForLoop( ... ); keine Procedure geschrieben?

Es ist demnach also ein wesentlicher Unterschied, ob man obiges schreibt oder sinngemäß

Delphi-Quellcode:

procedure Machwas(i: Integer);
begin
 ShowMessage(i.ToString);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 List.ForLoop(Machwas);
end;

Bei so 'nem Einzeiler mag das ja nicht viel ausmachen, wenn Machwas (und die weiteren Prozeduren) aber etwas komplexer werden, könnte die Methode mit dem Nachfahren auch irgendwann mal deutlich übersichtlicher werden. (Und ist ggfls. auch noch in anderen Programmen einfach mal so eben verwendbar.)

[LTE5]

Ich finde es durch den Nachfahren deutlich unübersichtlicher.
Ich brauche ja keinen Nachfahren sondern einfach nur den Prozedurkopf an einer Stelle im Code statt an x verschiedenen.
Und genau das habe ich jetzt.