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() throws a range exception error.

I don't see how that is possible as there is only one manager. i=0 and MyTetheringManager.PairedManagers.Count=1 when tracing into the code.

How is it possible for this to be out of range?

Answer 1

将两个应用程序都连接到相同的Codesite之后，可以看到在客户端的FormDestroy代码期间，网络共享的“服务器”端断开了连接。