Дублекат вкладок в TabControl после обновления ListView

[Shouldercannon]

Доброго времени суток!
Пытаюсь реализовать работу с вкладками TabControl

unit frm_Main;

...

var
  FormMain: TFormMain;

implementation

uses frm_2;

{$R *.dfm}

procedure TFormMain.Button1Click(Sender: TObject);
var
  i: Integer;
  Item: TListItem;
begin
  LVUsers.Clear;

  for i := 0 to 4 do
  begin
    Item := LVUsers.Items.Add;
    Item.Caption := '';
    Item.SubItems.Add(Format('Name: %d', [i])); // Name
    Item.SubItems.Add(Format('30%d', [i])); // Room
    Item.SubItems.Add(IntToStr(i)); // ID
    Item.SubItems.Add('0'); // Icon
    Item.ImageIndex := 0;
  end;
end;

procedure TFormMain.LVUsersDblClick(Sender: TObject);
begin
  if LVUsers.Selected = nil then Exit;
  Form2.ProcAddTab(LVUsers.Items[LVUsers.ItemIndex], True, True);
end

end.



unit frm_2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, ComCtrls, ToolWin, ExtCtrls, Contnrs;

type
  TTabData = class(TObject)
  public
    UserID: Integer;
    Nick: string;
    TempMessage: string;
  end;

  TTabDataList = class(TObjectList)
  private
    function GetTab(Index: Integer): TTabData;
  public
    function AddTab(UserID: Integer; Nick, TempMessage: string): TTabData;
    property Tabs[Index: Integer]: TTabData read GetTab; default;
  end;

type
  TForm2 = class(TForm)
...
  private
    { Private declarations }
  public
    { Public declarations }
    procedure ProcAddTab(Usr: TListItem; ChangeTab, ShowForm: Boolean);
  end;

var
  Form2: TForm2;
  TabList: TTabDataList;
  tbInd: Integer;
  UserData: TTabData;

implementation

uses frm_Main;

{$R *.dfm}

function TTabDataList.AddTab(UserID: Integer; Nick, TempMessage: string): TTabData;
begin
  Result := TTabData.Create;
  Result.UserID := UserID;
  Result.Nick := Nick;
  Result.TempMessage := TempMessage;
  inherited Add(Result);
end;

function TTabDataList.GetTab(Index: Integer): TTabData;
begin
  Result := inherited Items[Index] as TTabData;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  TabList := TTabDataList.Create(True); // TabList сам уничтожтит элемент при удалении
end;

procedure TForm2.FormDestroy(Sender: TObject);
begin
  FreeAndNil(TabList);
end;

procedure TForm2.ProcAddTab(Usr: TListItem; ChangeTab, ShowForm: Boolean);
var
  UsrData: TTabData;
  i: Integer;
begin
  UsrData := Usr.Data;

  if (UsrData = nil) then  // Нет такого пользователя
  begin
    // Создаем, добавляем в список TabList
    UsrData := TabList.AddTab(StrToInt(Usr.SubItems[2]), Usr.SubItems[0], '');
    // Связываем с элементом в LVUsers
    Usr.Data := UsrData;
  end;
  // Ищем пользователя на вкладках
  i := TabControl1.Tabs.IndexOfObject(UsrData);

  if (i < 0) then // Нет вкладки с таким пользователем, добавляем новую вкдадку - здесь дыра
  begin
    i := TabControl1.Tabs.Add(UsrData.Nick);
    // Связываем c конкретной вкладкой
    TabControl1.Tabs.Objects[i] := UsrData;
  end;

  if ChangeTab then
  begin
    // Сделаем вкладку активной
    TabControl1.TabIndex := i;
  end;
  // Покажем форму если разрешено
  if ShowForm then
  begin
    Self.WindowState := wsNormal;
    Self.Show;
  end;
end;

end.

Нашёл один недостаток. Если пересоздать список пользователей в ListView и кликать по этим записям, то в TabControl появляться дубликаты уже имеющихся/открытых вкладок.
Тут

  // Ищем пользователя на вкладках
  i := TabControl1.Tabs.IndexOfObject(UsrData);

отладчик показывает одинаковые данные до обновления и после обновления списка пользователей
(0, 'Name: 0', '')
(0, 'Name: 0', '')

В чём проблема? Это можно исправить?

[min@y™]

В чём проблема? Это можно исправить?

Воспользуйся дебаггером, прочеши вот это место:

  UsrData := Usr.Data;

  if (UsrData = nil) then  // Нет такого пользователя
  begin
    // Создаем, добавляем в список TabList
    UsrData := TabList.AddTab(StrToInt(Usr.SubItems[2]), Usr.SubItems[0], '');
    // Связываем с элементом в LVUsers
    Usr.Data := UsrData;
  end;
  // Ищем пользователя на вкладках
  i := TabControl1.Tabs.IndexOfObject(UsrData);

  if (i < 0) then // Нет вкладки с таким пользователем, добавляем новую вкдадку - здесь дыра
  begin
    i := TabControl1.Tabs.Add(UsrData.Nick);
    // Связываем c конкретной вкладкой
    TabControl1.Tabs.Objects[i] := UsrData;
  end;

[Shouldercannon]

Дебаг (1 - список в ListView создан первый раз; 2 - список пересоздан)

  UsrData := Usr.Data; //1: UsrData = nil; 2: UsrData = nil

  if (UsrData = nil) then  // Нет такого пользователя
  begin
    // Создаем, добавляем в список TabList
    UsrData := TabList.AddTab(StrToInt(Usr.SubItems[2]), Usr.SubItems[0], ''); //1: UsrData = '0', 'Name: 0'; 2: UsrData = '0', 'Name: 0'
    // Связываем с элементом в LVUsers
    Usr.Data := UsrData; //1: Usr.Data = (0, 'Name: 0', ''); 2: Usr.Data = (0, 'Name: 0', '') 
  end;
  // Ищем пользователя на вкладках
  i := TabControl1.Tabs.IndexOfObject(UsrData); //1: i = '-1'; 2: i = -1

  if (i < 0) then // Нет вкладки с таким пользователем, добавляем новую вкдадку
  begin
    i := TabControl1.Tabs.Add(UsrData.Nick); //1: i = 'Name: 0'; 2: i = 'Name: 0'
    // Связываем c конкретной вкладкой
    TabControl1.Tabs.Objects[i] := UsrData; //1: 0 = (0, 'Name: 0', ''); 2: 1 = (0, 'Name: 0', '') всё одинаково до этого момента, индекс стал на 1 больше
  end;

Недочёт здесь

  // Ищем пользователя на вкладках
  i := TabControl1.Tabs.IndexOfObject(UsrData);

неужели цикл не находит совпадения?

uses Classes

function TStrings.IndexOfObject(AObject: TObject): Integer;
begin
  for Result := 0 to GetCount - 1 do
    if GetObject(Result) = AObject then Exit;
  Result := -1;
end;

[Shouldercannon]

Оказывается, сравниваются объекты - 2 объекта с идентичными данными - не одно и то же, но легче от этого не стало.