DBComboBox

← →
Miss (2002-10-25 09:03) [0]

Добрый день! Уважаемые мастера, пожалуйста киньте кто-нибудь фрагментик : добавление строк в DBComboBox.Items DBComboBox.Text если такой не имеется в Items

← →
iNew (2002-10-25 09:16) [1]

Table1.First
While not Table1.EOF do
begin
DBComboBox.Items.add(Table1.FieldByName("1234"));
Table1.Next;
end;

← →
Lord Warlock (2002-10-25 09:21) [2]

> iNew (25.10.02 09:16)

что-то не то...

if DBCombobox1.Items.IndexOf(DBCombobox1.Text)=-1 then
DBCombobox1.Items.Add(DBCombobox1.Text)

← →
Miss (2002-10-25 09:23) [3]

Не из набора данных, а введенный только что текст.

← →
Miss (2002-10-25 09:28) [4]

Это к iNew

← →
Lord Warlock (2002-10-25 09:32) [5]

А написать это лучше в AfterPost таблицы

← →
Miss (2002-10-25 09:40) [6]

> Lord Warlock © (25.10.02 09:21)
Да это работает, но перед новой строкой еще пустая добавляется? и при новом запуске окна изменения в Items не сохраняются, а хотелось бы.

← →
Lord Warlock (2002-10-25 09:45) [7]

> при новом запуске окна изменения в Items не сохраняются,
> а хотелось бы.

При выходе из формы сохраняй Items в переменной типа TStringList.
Эту переменную объяви в главной форме.

При загрузке формы (OnShow) заполняй Items комбобокса из этой переменной.

Справишься или пример написать?

← →
Lord Warlock (2002-10-25 09:56) [8]

> перед новой строкой еще пустая добавляется

if (DBCombobox1.Items.IndexOf(DBCombobox1.Text)=-1) and (not DBCombobox1.Text="")

← →
Miss (2002-10-25 09:56) [9]

>Lord Warlock © (25.10.02 09:32)
А не лучше ли в OnExit DBComboBox"а

← →
Lord Warlock (2002-10-25 09:58) [10]

> А не лучше ли в OnExit DBComboBox"а

Не лучше, тк туда будут попадать только данные, занесенные в таблицу

← →
Anatoly P (2002-10-25 10:04) [11]

procedure AddList(List: TStrings; Text : String);
Var i : integer;
begin
If List.Count>0 then
begin
try
i := List.IndexOf(Text);
If Text <> List[i] then
List.Add(Text);
except
List.Add(Text);
end;
end else List.Add(Text);
end;

использование:
AddList(ComboBox1.Items, "drrrrdddddddd");

← →
Johnmen (2002-10-25 10:45) [12]

>Miss ©

Судя по вопросу, ты не совсем правильно понимаешь предназначение контрола DBComboBox. Почитай справочную инфу...

← →
Miss (2002-10-25 10:53) [13]

← →
Miss (2002-10-25 11:29) [14]

> Johnmen © (25.10.02 10:45)
Не понятно ваше предположение...
Мне просто необходимо чтобы у пользователя была возможность выбора строки Items"a, и не требовалось вводить ее каждый раз, если уже такое наименование встречалось. Можно было бы конечно наполнять Items из другого набора данных, где бы хранились все возможные наименования, но не вижу необходимости ее создания.

← →
Николай Васильев (2002-10-25 16:22) [15]

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

← →
Miss (2002-10-26 08:38) [16]

Да, но можно ли DBLookupComboBox добавлять значения?

← →
Miss (2002-10-26 09:37) [17]

Нельзя!!!!

DBComboBox Найти похожие ветки