VPF::исключить дублирование в ComboBox'ах

Dmitry1987

Дата 5.1.2013, 10:43 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 42
Регистрация: 3.5.2008

Репутация: нет
Всего: нет

Помогите с алгоритмов, что-то не пойму как сделать.

Есть 3 ComboBox'а

ComboBox1:
не выбрано
1
2
3

ComboBox2:
не выбрано
1
2
3

ComboBox3:
не выбрано
1
2
3

Нужно сделать, чтобы, например, при выборе в ComboBox2 значения 3 это значение должно пропасть из ComboBox1 и ComboBox3 (т.е. нужно сделать так, чтобы значения в ComboBox'ах не дублировались, если в одном из ComboBox'ов выбрано какое-то значение, то его нельзя было бы выбрать в других ComboBox'ах).

Данкинг

Дата 5.1.2013, 11:18 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Проходи циклом по другому комбику, сравнивай значения, и удаляй, если совпало.

--------------------

There's nothing left but silent epitaphs.

skyboy

Дата 5.1.2013, 11:21 (ссылка)

(нет голосов)

Загрузка ...

неОпытный

Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

Репутация: нет
Всего: 260

подумай над тем, что должно происходить, если выбираешь в первом "1" и такое же значение уже было выбрано во втором. либо во втором надо менять на "не выбрано", либо на первое подходящее из "не выбранных нигде".
решение в общем виде довольно простое: onchange для каждого из комбобоксов выбери одну и ту же функцию. эта функция принимает в качестве параметров комбобокс, в котором произошло событие.
то есть, ты можешь в функции-обработчике пробежаться по всем комбобоксом и в случае совпадения значения что-то сделать. причем, сделать не в комбобоксе, который только что менял(что сделало бы использование интерфейса адом), а в каком-то другом, совпадающем

Dmitry1987

Дата 5.1.2013, 13:30 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 42
Регистрация: 3.5.2008

Репутация: нет
Всего: нет

Цитата(skyboy @ 5.1.2013, 09:21)

если выбираешь в первом "1" и такое же значение уже было выбрано во втором.

Такого быть не должно - это ошибочная ситуация.

Сделал, вроде работает. Гляньте, может что не предусмотрел или что-то можно оптимизировать

Код


unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, Buttons,

 Contnrs;

type
 TForm1 = class(TForm)
   ComboBox1: TComboBox;
   ComboBox2: TComboBox;
   ComboBox3: TComboBox;
   procedure FormCreate(Sender: TObject);
   procedure FormDestroy(Sender: TObject);
   procedure ComboBoxesChange(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
   FAvailableValues: TStringList;
   FComboBoxes: TObjectList;
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
 I: Integer;
begin
 FAvailableValues := TStringList.Create;
 FAvailableValues.Add('-');
 FAvailableValues.Add('1');
 FAvailableValues.Add('2');
 FAvailableValues.Add('3');

 FComboBoxes := TObjectList.Create;
 FComboBoxes.Add(ComboBox1); // Tag = 0
 FComboBoxes.Add(ComboBox2); // Tag = 1
 FComboBoxes.Add(ComboBox3); // Tag = 2

 for I := 0 to FComboBoxes.Count - 1 do
 begin
   TComboBox(FComboBoxes[I]).Items.AddStrings(FAvailableValues);
   TComboBox(FComboBoxes[I]).ItemIndex := 0;
 end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 FAvailableValues.Free;
 FComboBoxes.Free;
end;

procedure TForm1.ComboBoxesChange(Sender: TObject);
var
 FilteredValues: TStringList;
 I, J: Integer;
 SelectedValue: string;
begin
 FilteredValues := TStringList.Create;
 try
   for I := 0 to FComboBoxes.Count - 1 do
   begin
     with TComboBox(FComboBoxes[I]) do
       // Сохраняем значение ComboBox'а
       SelectedValue := Items[ItemIndex];

     // Создаем список значений ComboBox'а исключая значения
       // выбранные в других ComboBox'ах
     FilteredValues.AddStrings(FAvailableValues);
     for J := 0 to FComboBoxes.Count - 1 do
     begin

       if J = I then
         Continue;

       with TComboBox(FComboBoxes[J]) do
         if (Items[ItemIndex] <> '-') then
           FilteredValues.Delete(FilteredValues.IndexOf(Items[ItemIndex]));
     end;

     with TComboBox(FComboBoxes[I]) do
     begin
       Items.Clear;
       Items.AddStrings(FilteredValues);
       ItemIndex := Items.IndexOf(SelectedValue);
     end;

     FilteredValues.Clear;
   end;
 finally
   FilteredValues.Free;
 end;

end;

end.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »