Обработка дубликатов имен между списками при нажатии на кнопку в Delphi

Delphi , Компоненты и Классы , Списки

Вопрос, который был задан, касается обработки ситуации, когда при добавлении элементов из одного списка в другой, система обнаруживает, что элемент уже присутствует во втором списке. В контексте языка программирования Object Pascal, используемого в среде разработки Delphi, важно правильно обработать такое условие, чтобы пользователь был уведомлен о попытке добавления уже существующего элемента.

Описание проблемы

В коде, предоставленном пользователем, присутствует цикл, который перебирает элементы списка listxallusers и пытается добавить выделенные элементы в список listtxusersinproj, если они в нём ещё не присутствуют. В случае обнаружения дубликата, предполагалось отобразить сообщение об ошибке, однако в исходном коде структура begin..end была нарушена, что могло привести к непреднамеренному выходу из процедуры.

Решение проблемы

Для корректной обработки дубликатов, необходимо исправить структуру кода, убедившись, что блок с условием добавления элемента и блок с сообщением об ошибке находятся внутри цикла. Также стоит заметить, что использование Abort может быть не лучшим решением, так как оно прервёт выполнение программы, в то время как в некоторых случаях может быть достаточно просто отобразить сообщение.

Вот исправленный вариант кода:

procedure TFrmProjetos.ButtonAddUsersClick(Sender: TObject);
var
  item: string;
  i: integer;
begin
  for i := 0 to listxallusers.Items.Count - 1 do
  begin
    item := listxallusers.Items[i];
    if listxallusers.Selected[i] then
    begin
      if listtxusersinproj.Items.IndexOf(item) = -1 then
        listtxusersinproj.Items.Add(item)
      else
        ShowMessage('Пользователь уже записан: ' + item, 'Внимание!', MB_OK or MB_ICONWARNING);
    end;
  end;
end;

Альтернативный подход

Существует альтернативный подход, который заключается в создании списка пользователей, которые уже записаны, и отображении сообщения с этим списком после выполнения цикла. Это может быть удобно, если пользователь выделяет несколько элементов одновременно:

procedure TForm1.Button1Click(Sender: TObject);
var
  lstDuplicateUsers: TStringList;
  i: Integer;
begin
  lstDuplicateUsers := TStringList.Create;
  try
    for i := 0 to listxallusers.Items.Count - 1 do
    begin
      if listxallusers.Selected[i] then
      begin
        if listtxusersinproj.Items.IndexOf(listxallusers.Items[i]) >= 0 then
          lstDuplicateUsers.Add(listxallusers.Items[i]);
      end;
    end;
    if lstDuplicateUsers.Count > 0 then
      ShowMessage('Пользователи уже записаны: ' + lstDuplicateUsers.CommaText, 'Внимание!');
  finally
    lstDuplicateUsers.Free;
  end;
end;

Подтверждённый ответ

Использование дополнительной функции для проверки наличия пользователя в списке также может быть полезным. В этом случае, функция UserInList возвращает True, если пользователь уже добавлен, и добавляет пользователя в список, если его там нет:

function TForm1.UserInList(AUser: String): Boolean;
begin
  Result := (listtxusersinproj.Items.IndexOf(AUser) > -1);
  if not Result then
    listtxusersinproj.Items.Add(AUser);
end;

Использование этих подходов позволит корректно обрабатывать ситуацию с дубликатами имен между списками и уведомлять пользователя о проблеме, не прерывая при этом работу программы.

Создано по материалам из источника по ссылке.

Необходимо обработать дубликаты имен между списками в Delphi, чтобы избежать добавления уже существующих элементов и информировать пользователя о попытке дублирования.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Списки ::