Für Tokyo habe ich das jetzt so gemacht
Delphi-Quellcode:
type
TProcedureParameter = reference to procedure(i: Integer);
implementation
procedure ForLoop(Proc: TProcedureParameter);
var
i: Integer;
begin
for i := 0 to 3 do
Proc(i);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
ForLoop(
procedure(i: Integer)
begin
ShowMessage(i.ToString);
end);
end;
X wird 3x aufgerufen.
Wenn ich jetzt etwas am Schleifenkopf ändere, muss ich es nur noch an einer Stelle tun und nicht mehr an 100.
=> Habe erfolgreich resigniert
klappt nicht so wie ich will. Denn abbrechen kann man die Schleife dann scheinbar nicht mehr.