能否在Delphi中创建支持内联代码作为参数的自定义类型？

首先要明确：你想要的DoThis(ShowMessage('SomeMsg ..'); Caption := 'SomeCaption'; Inc(I));这种写法在Delphi中是语法错误，因为函数/过程的参数列表只能用逗号分隔参数，分号是语句分隔符，编译器会把分号后的代码当成独立语句，而非DoThis的参数。不过我们可以通过语法糖和自定义实现，达到近似无包裹的简洁调用效果，无需完整编写procedure begin ... end。

方案1：单语句场景的极简调用 #

如果仅需传递单语句内联代码，Delphi支持lambda风格的简化匿名方法语法，无需写procedure begin end：

type
  TProc = reference to procedure;

procedure DoThis(AProc: TProc);
begin
  AProc();
end;

// 调用示例
DoThis(() => ShowMessage('SomeMsg ..'));

方案2：多语句场景的简洁写法 #

对于多语句场景，无法完全省略begin end，但可以通过语法糖简化，省去procedure()部分：

type
  TProc = reference to procedure;

procedure DoThis(AProc: TProc);
begin
  AProc();
end;

// 调用示例
DoThis(begin
  ShowMessage('SomeMsg ..');
  Caption := 'SomeCaption';
  Inc(I);
end);

这种写法已经非常接近你想要的无包裹效果，比标准匿名方法少了冗余的声明部分。

方案3：宏定义实现极致简洁（可选） #

如果追求更短的写法，可以借助Delphi的编译器宏定义（需开启宏支持）来进一步简化：

{$DEFINE PB := begin}

procedure DoThis(AProc: TProc);
begin
  AProc();
end;

// 调用示例
DoThis(PB
  ShowMessage('SomeMsg ..');
  Caption := 'SomeCaption';
  Inc(I);
end);

注意：宏定义可能降低代码可读性，需根据团队规范谨慎使用。

为什么无法实现完全无包裹的语句块参数？ #

Delphi的语法规则中，函数/过程的参数必须是合法表达式或参数列表，裸语句块不属于合法的参数表达式。你无法自定义一个类型让编译器将裸语句块解析为该类型实例——编译器会将分号后的代码视为独立语句，而非参数的一部分，这是语法解析逻辑决定的。

内容的提问来源于stack exchange，提问作者MBen