德尔福循环中的就地匿名函数

Question

是否可以转换它：

program RangeLoop;
type
TIndexedProc = reference to procedure(idx: Integer);
var
i: Integer;
p: TIndexedProc;
begin
p := procedure(ix: Integer)
var LocalVar: Integer;
begin
//Do some processing
end;
for i in [2..7] do p(i);
end.

变成这样的东西：

program RangeLoop;
var
i: Integer;
begin
for i in [2..7] do procedure(ix: Integer)
var LocalVar: Boolean;
begin
//Do some processing
end;
end.

？

我知道最后一个代码块无效。

Answer 1

在 Delphi 10.3 及更高版本中，您可以在循环中使用内联变量来保存匿名过程，例如：

program RangeLoop;
var
i: Integer;
begin
for i in [2..7] do
begin
var p := procedure(ix: Integer)
begin
//Do some processing
var LocalVar := ...;
end;
p(i);
end;
end.

在 10.3 之前，您所要求的根本无法按照您想要的方式实现。 在循环上方定义p是最好的选择，除非您使用独立的过程，例如：

program RangeLoop;
procedure p(ix: Integer);
var
LocalVar: Integer;
begin
//Do some processing
end;
var
i: Integer;
begin
for i in [2..7] do p(i);
end.

或者，如果可以改用TParallel.For()，如果循环迭代是线程安全的并且不依赖于彼此的结果：

program RangeLoop;
uses
System.Threading;
begin
TParallel.For(2, 7, procedure(ix: Integer)
begin
//Do some processing
end;
);
end.