Добрый день. Дабы не плодить темы напишу здесь.
Идея абсолютно та же. Есть таблица, содержимым одного из столбцов необходимо заполнить ComboBox.
Основа алгоритма взята из поста №1, но доработано до такой логики: Мы не просто добавляем очередной пункт в ComboBox, а сравниваем содержимое очередной ячейки таблицы с уже существующими пунктами в ComboBox, т.к. содержимое ячеек в таблице может повторяться.
Сам запрос:
RunSQL('SELECT `ProdName` FROM `archive` ', ComboBox3, 10);Его обработка:
if DataSet.Tag = 10 then
begin
with DataSet.Sender as TM_ComboBox do
begin
Clear; // очистить список
AddItem(DataSet.Fields[0].AsStr);
DataSet.Next;
while not DataSet.EOF do
begin
flag := true;
for i:= 0 to ItemsCount do
if Items[i].Text = DataSet.Fields[0].AsUTF8String then
flag := false;
if flag then AddItem(DataSet.Fields[0].AsStr); // заполнение списка
DataSet.Next; // следующая запись
end;
Enabled := not DataSet.IsEmpty; // список заполнен, разрешить доступ для непустого списка
end;
end;
Все работает, за исключением одного момента, если ячейка таблицы содержит строку на русском языке, равенство Items
.Text = DataSet.Fields[0].AsUTF8String не выполняется, хотя со строками с латинскими буквами все работает прекрасно. Подскажите, куда смотреть?
Просмотр сообщений