在Delphi中，匿名方法是一种无需显式声明函数名的方法。它通常在事件处理、回调函数等场景中使用。
下面是一个简单的Delphi示例，演示如何使用匿名方法
unit MainForm;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)btnShowMessage: TButton;procedure btnShowMessageClick(Sender: TObject);privateprocedure ExecuteAnonymousMethod(const AMethod: TProc);end;varForm1: TForm1;implementation{$R *.dfm}procedure TForm1.btnShowMessageClick(Sender: TObject);
begin// 使用匿名方法调用ExecuteAnonymousMethod过程ExecuteAnonymousMethod(procedurebeginif Random(2) = 0 thenShowMessage('Operation succeeded.')elseShowMessage('Operation failed.');end);
end;procedure TForm1.ExecuteAnonymousMethod(const AMethod: TProc);
begin// 调用传递进来的匿名方法AMethod;
end;end.
这个示例中，TForm1 中有一个按钮 btnShowMessage，当按钮被点击时，会调用 btnShowMessageClick 事件处理程序。在该事件处理程序中，通过调用 ExecuteAnonymousMethod 过程，传递了一个匿名方法。ExecuteAnonymousMethod 过程负责执行传递进来的匿名方法。
匿名方法中使用了 Random(2)，如果结果为0，则显示 ‘Operation succeeded.’，否则显示 ‘Operation failed.’。这个例子只是一个简单的演示，实际使用匿名方法时，可以在更复杂的场景中发挥其优势，比如异步编程、事件处理等。
让我们在举一个稍微复杂一点的例子
假设我们有一个按钮和一个编辑框，当按钮被点击时，我们想要根据编辑框中的文本进行一些处理，并将结果显示在消息框中。我们将使用匿名方法来实现这个功能。
unit Unit3;interfaceusesWinapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, System.StrUtils;typeTForm3 = class(TForm)btnProcessText: TButton;edtInputText: TEdit;procedure btnProcessTextClick(Sender: TObject);privateprocedure ProcessText( AText: string; ACallback: TProc<string>);public{ Public declarations }end;varForm3: TForm3;implementation{$R *.dfm}procedure TForm3.btnProcessTextClick(Sender: TObject);
begin// 调用ProcessText过程，传递匿名方法作为回调ProcessText(edtInputText.Text,procedure( AResult: string)beginShowMessage('Processed Result: ' + AResult);end);
end;procedure TForm3.ProcessText( AText: string; ACallback: TProc<string>);
begin// 模拟一些处理，这里简单地将输入文本反转// 实际应用中，这里可能是一些更复杂的逻辑var ResultText := ReverseString(AText);// 调用传递进来的匿名方法，将处理结果传递给回调ACallback(ResultText);
end;end.
在这个例子中，点击按钮后，通过 ProcessText 过程处理编辑框中的文本。ProcessText 过程接收输入文本和一个回调函数（匿名方法），在这个例子中，它简单地将输入文本反转。最后，通过回调函数将处理结果传递给调用方，并在消息框中显示。这个例子中匿名方法的使用使得我们可以轻松地在处理完文本后执行自定义的逻辑。
)
“))
