40、Object Pascal 中的匿名方法、线程同步、AJAX 及反射与属性

Object Pascal 中的匿名方法、线程同步、AJAX 及反射与属性

1. 匿名方法

匿名方法在 Object Pascal 中是一种强大的工具，它允许我们在代码中直接定义和使用临时的方法。

1.1 简单示例

begin
  aCompRef := Sender as TComponent;
  btnInvoke.AnonClick :=
    procedure (Sender: TObject)
    begin
      Show ((Sender as TButton).Text +
        ' assigned by ' + aCompRef.Name);
    end;
end;

当按下 btnInvoke 按钮时，会显示按钮的标题以及分配匿名方法处理程序的组件名称。

1.2 匿名方法计时

开发者常常会添加计时代码来比较不同代码片段的相对速度。例如，有两个代码片段，我们想通过执行几百万次来比较它们的速度。以下是一个示例：

procedure TForm1.Button1Click(Sender: TObject);
var
  str1, str2: string;
  I: Integer;
  t1: TStopwatch;
begin
  str1 := 'Marco ';
  str2 := 'Cantu ';
  t1 := TStopwatch.StartNew;
  for