delphi - 名称解析如何在复合“with”语句中工作？

Question

以下代码中测试了哪个实例Ready，为什么？

interface

type
  TObject1 = class
  ...
  public
    property Ready: boolean read FReady write FReady;
  end;

  TObject2 = class
  ...
  public
    property Ready: boolean read FReady write FReady;
  end;

implementation

var
  Object1: TObject1;
  Object2: TObject2;

...

procedure test;
var
  Ready: boolean;
begin
  Ready:= true;
  with Object1, Object2 do begin
    if Ready then ShowMessage('which one?');
  end; {with}
end;

Answer 1

最后一个。

with Object1, Object2 do

相当于

with Object1 do
  with Object2 do

Object2第一要务也是如此。

关于这个问题的官方文档。