Повтор значений

← →
SveTT © (2007-02-03 15:14) [0]

Здравствуйте!

Подскажите пожалуйста, почему имеет место ошибка - при выборе мышкой (или курсором вверх, вниз) из списка значений, выбранное значение дублируется. При вводе символа значений с клавиатуры такого не происходит! Ошибка не кретична, но хотелось бы разобраться.
procedure TTRF_TOVARHISTORY.ComboBox1Change(Sender: TObject); begin DMFrm.HistoryQuery.Close; DMFrm.HistoryQuery.SQL.Clear; DMFrm.HistoryQuery.SQL.Add("SELECT DISTINCT KOD, FULLname FROM "TOVAR.DB" "); DMFrm.HistoryQuery.SQL.Add("WHERE KOD LIKE """+ComboBox1.Text+"%"""); DMFrm.HistoryQuery.Open; DMFrm.HistoryQuery.First; While not DMFrm.HistoryQuery.Eof do begin ComboBox1.Items.Add(DMFrm.HistoryQuery.FieldByName("KOD").AsString); DMFrm.HistoryQuery.Next; end; Info.Caption := " "+DmFrm.HistoryQuery.FieldByName("Fullname").AsString+""; end;

← →
Johnmen © (2007-02-03 19:05) [1]

> Подскажите пожалуйста, почему имеет место ошибка - при выборе
> мышкой (или курсором вверх, вниз) из списка значений, выбранное
> значение дублируется.

Вот и ответ:

> ... > ComboBox1.Items.Add(DMFrm.HistoryQuery.FieldByName("KOD").AsString); > ...

← →
Desdechado © (2007-02-03 19:30) [2]

т.е. в обработчике "изменение состояние комбо" стоит вставка в этот самый комбо

Спасибо Вам!

Повтор значений - ошибка Найти похожие ветки