|
Вопрос # 4 575/ вопрос открыт / |
|
Доброго времени суток, уважаемые эксперты!
Люди добрые помогите пожалуйста, уже всю голову сломал.
делаю телефонную книгу на базе текстового файла. хочу организовать "живой" поиск, делаю на базе combobox. т.е. в процессе набора слова или куска предложения, программа должна подбирать из строк файла более подходящую строку и добавлять ее в список combobox-а, а не нужные удалять. как мне это организовать, если есть вариант на основе других компонентов то тоже пойдет. ниже приведен кусок в котором программа ищет нужное и добавляет в список, но как отсеять из списка не нужное не знаю. пробовал отсеивать не нужное из готового списка, получается фигня, некоторые строки удаляет а и автоматически дописывает самое длинное слово в текст combobox. если есть решение подскажите пожалуйста кодом.
Приложение: Переключить в обычный режим- for a:=0 to memo1.Lines.Count do
- begin
- if pos(combobox1.Text, memo1.Lines[a])<>0 then
- begin
- combobox1.Items.Add(memo1.Lines[a]);
- end;
 |
Вопрос задал: Demosha (статус: Посетитель)
Вопрос отправлен: 14 сентября 2010, 00:50
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: webkent
Здравствуйте, Demosha!
Пишется в Edit.OnChange. Вот код:
Приложение: Переключить в обычный режим- procedure TForm1.Edit1Change(Sender: TObject);
- var i:word;
- begin
- combobox1.Clear;
- for i:=0 to memo1.Lines.Count-1 do
- if pos(edit1.Text,memo1.Lines[i])<>0 then
- combobox1.Items.Add(memo1.Lines[i]);
- combobox1.ItemIndex:=0;
- end;
 |
Ответ отправил: webkent (статус: 2-ой класс)
Время отправки: 14 сентября 2010, 12:53
Оценка за ответ: 5
Комментарий к оценке: обалдеть) все гениальное просто)) СПАСИБО!
|
Мини-форум вопроса
Всего сообщений: 1; последнее сообщение — 14 сентября 2010, 12:54; участников в обсуждении: 1.
14 сентября 2010, 11:48: Вопрос перемещён из тематического раздела Delphi » Общие вопросы по программированию в раздел Delphi » Алгоритмы, преобразования модератором Ерёмин А.А.
|
|
webkent (статус: 2-ой класс), 14 сентября 2010, 12:54 [#1]:
Я сделал в Memo. Можно загрузить строки просто в переменную TStrings или TStringList.
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
