Delphi 绑定 PairedManagers 超出范围

Question

Delphi 10.2.3

procedure TMainForm.FormDestroy(Sender: TObject);
var i: Integer;

begin
  try

    CodeSite.Send('In FormDestroy, MyTetheringAppProfile.Disconnect() has ' + IntToStr(MyTetheringManager.RemoteProfiles.Count) + ' profiles.');

    for i:= MyTetheringManager.PairedManagers.Count-1 downto 0 do
      MyTetheringManager.UnPairManager(MyTetheringManager.PairedManagers[i]);

UnPairManager() 抛出范围异常错误。

我不知道这怎么可能，因为只有一位经理。 i=0 和 MyTetheringManager.PairedManagers.Count=1 跟踪代码时。

这怎么可能超出范围？

Answer 1

将两个应用程序连接到同一个 Codesite 后，我可以看到网络共享的 "server" 端在客户端的 FormDestroy 代码期间断开连接。

Delphi 绑定 PairedManagers 超出范围

Delphi tethering PairedManagers out of range

delphi

delphi-10.2-tokyo

tethering