48 DBLookupComboBox-сов

[EugeneIsmatulin]

Есть 48 DBLookupComboBox-сов все берутся из обной таблицы, как можно сделать проверку на повторяющиеся записи. Например выбрали "ЗАПИСЬ" в трех DBLookupComboBox-сах из 48 он выдает собщение и записывает в переменную что "ЗАПИСЬ"=3; или если запись одна из 48 то присваевает "ЗАПИСЬ"=1, а записей в таблице может быть много...

Подскажите а то сам не могу додуматься.

[Neeter]

У DBLookupComboBox'а, как и у каждого потомка ComboBox'а есть событие OnCloseUp, которое происходит при закрытии выпадающего списка.

procedure TForm1.cbox_1CloseUp(Sender: TObject);
var
 i: integer;
 N: byte;
 Mess: string;
begin
 N := 1;
 for i := ComponentCount - 1 downto 1 do
  if (Components[i] is TDBLookupComboBox) and
     (Components[i].Name <> (Sender as TDBLookupComboBox).Name) then
       if (Components[i] as TDBLookupComboBox).Text =
         (Sender as TDBLookupComboBox).Text then inc(N);

 Mess := Format('%s = %d', [(Sender as TDBLookupComboBox).Text, N]);
 ShowMessage(Mess);
end;

[EugeneIsmatulin]

а как потом при нажати на кнопку он мне выдавал что увас и записывал в переменную
ЗАПИСЬ1 = 5
ЗАПИСЬ2 = 7
ЗАПИСЬ3 = 1
и т.д.
и чтобы с каждой переменной можно было работать отдельно

[EugeneIsmatulin]

или сохранять в массив и работать потом сним, подскажите а то очень надо

[Neeter]

Вот сочинил алгоритм:

procedure TForm1.Button1Click(Sender: TObject);
var
 i, j: integer;
 a: array of string;   //Вот сам заполняющийся массив
 Cap: string;           //Текст в элементе массива (то что перед знаком '=')
 x: integer;             //Число в элементе массива (то что после знака '=')
 Mess: string;         //Строка, со всеми элементами массива (для вывода сообщения)
 Exists: boolean;     //Найдено ли значение в массиве, если нет, то добавляем в массив, а если найдено, то увеличиваем число
begin
 for i := ComponentCount - 1 downto 0 do
 begin
  if (Components[i] is TComboBox) then
  begin
   if Length(a) <> 0 then
   begin
    for j := 0 to Length(a) - 1 do
    begin
     Exists := false;
     Cap := Copy(a[j], 1, Pos('=', a[j]) - 1);
     if (Components[i] as TComboBox).Text = Cap then
     begin
      x := StrToInt(Copy(a[j], Pos('=', a[j]) + 1, Length(a[j])));
      inc(x);
      a[j] := Format('%s=%d', [(Components[i] as TComboBox).Text, x]);
      Exists := true;
      Break;
     end;
    end;
    if not Exists then
    begin
     SetLength(a, Length(a) + 1);
     a[Length(a) - 1] := Format('%s=%d', [(Components[i] as TComboBox).Text, 1]);
    end;
   end
   else
   begin
    SetLength(a, Length(a) + 1);
    a[Length(a) - 1] := Format('%s=%d', [(Components[i] as TComboBox).Text, 1]);
   end;
  end;
 end;
 for i := 0 to Length(a) - 1 do
  Mess := Mess + #13#10 + a[i];
 ShowMessage(Mess);
end;

[EugeneIsmatulin]

Нажимаю на кнопку он выдает пустое сообщение хотя записи в DBLookupComboBox'сах выбраны

всё разобрался просто я маленько невнимателен

Подскажите как можно очистить DBLookupComboBox
когда я выполняю

DBLookupComboBox1.KeyValue := DBLookupComboBox1.ListSource.DataSe t.FieldByName(DBLookupComboBox1.Key Field).Value;

он при запуске программы выводит выбранную запись примеру "ЗАПИСЬ1" а когда мы выбираем "ЗАПИСЬ2" и нам надо чтобы он вывел "ЗАПИСЬ2" он выводит "ЗАПИСЬ1" как можно очистить его как при запуске программы

[Neeter]

всё разобрался просто я маленько невнимателен

Дада я просто не ставил на форму DBLookupComboBox'ы, а просто ComboBox'ы)
Еще - научитесь пользоваться правкой сообщений, а то три поста подряд не смотрятся...

С другим вопросом я немного не понял... Поподробней, где вы выполняете тот код и что значит "очистить" - это вывести первую запись или пустой текст?

[EugeneIsmatulin]

Есть таблица в ней записи добалены из другой таблицы с помощью DBLookupComboBox'а есть кнопка редактировать мы выбираем запись для редактирвания в DBGrid и нажимаем на кнопку с помощью кода

DBLookupComboBox1.KeyValue := DBLookupComboBox1.ListSource.DataSe t.FieldByName(DBLookupComboBox1.Key Field).Value;

выбраная запись в ставляется DBLookupComboBox правельно но это только когда запустили программу а потом выбираем другую запись а она остается предедущей.

[Neeter]

У меня все работает

[EugeneIsmatulin]

Спасибо за помощь..