Автозаполнение в TEdit

[neodream]

Здравствуйте.
Нужна помощь. Необходимо сделать автозаполнение в TEdit, как в некоторых базах данных(например Access).
Тоесть пользователь вводит в TEdit слово а программа сама добавляет остальные буквы(производя поиск, например, по масиву). Желательно не использовать других компонет.
Заранее огромное спасибо.

[Andr]

Тоесть у тебя есть массив, ты вводишь в Edit текст, а прога после введения каждого символа выбирает из массива подходящее слово и пишет его в Edit?

[neodream]

Сообщение от Andr

Тоесть у тебя есть массив, ты вводишь в Edit текст, а прога после введения каждого символа выбирает из массива подходящее слово и пишет его в Edit?

да, но проблема в том, что бы поиск символов продолжался до тех пор, пока TEdit не потеряет фокус.
Например, в поле ми вводим букву А, и программа сама дописывает слово Александр, но мы продолжаем ввод сами и добавляем лексе(тоесть получится Алексе) и программа меняет Александр на Алексей.Если нас устраивает данное имя мы нажимаем Tab и данное имя остается.

[AVer]

Сделай 2 переменные строки. В первой, после ввода букв в Едит будет содержаться, то что ввел пользователь. После каждого изменения Едита во вторую строку будет загружеться наиболее близкое слово к тому, которое в первой строке. При нажатии Tab первой переменной присваивается содержание второй. ИМХО достаточно просто.

[neodream]

Сообщение от AVer

ИМХО достаточно просто.

Как пользователь узнает, что нужно прекратить ввод, так как он вводит в Едит свой текст, а во второй переменной содержится уже другое значение, которое не известно пользователю. В других приложения это решалось следующим образом: пользователь вводит значение, а программа добавляет после курсора окончание слова, сам же курсор не перемещается в конец слова, если приставка не подходит, пользователь вводит следующую букву и приставка меняется.

[AVer]

Как пользователь узнает, что нужно прекратить ввод

Выводить предпологаемое слово в всплывающем окошке.

[Alex21]

Все намного проще.
Берем компонент ComboBox. Загружаем в него список (хоть сразу, хоть динамически) и выполняем код:

ComboBox1.Style:=csSimple;

Все, работает на УРА!!!

[mutabor]

Alex21 прав, для этого лучше использовать Combobox. Во первых Combobox это Edit с ListBox'ом, то есть твое условие насчет Edit'a выполняется. Во вторых везде для таких целей используют его, потому что он удобнее, посмотри хотя бы на адресную строку в браузере.
А почему Tab? А не лучше выпадающий список (с дописыванием конечно)?

[neodream]

Всем спасибо, но проблему решил более экстравагантно. И все гораздо проще.

 
for i:=0 to 11 do
         if (Edit5.Text=copy(months[i],1,Length(Edit5.Text))) and not (Edit5.Text ='') then
            begin
               ln:=Length(months[i])-Length(Edit5.Text);
               lne:=Length(Edit5.Text);
               Edit5.Text:=months[i];
               Edit5.SelStart:=lne;
               Edit5.SelLength:=ln;
               exit;
            end;

Это только пробный вариант, но действенный. После каждого ввода символа, приставка выделяется и таким образом, при вводе нового символа, выделенный фрагмент заменяется.

[AVer]

Весьма мудрое решение. neodream респект.