Поиск + Подставление зап.

← →
Пантелеев Иван (2005-09-07 15:37) [0]

Как сделать чтобы при печати в Edit"е программа автоматом смотрела в таблице в определённой колонке значение и если есть похожее подставляла его. ну например:
Я начинаю печатать в Edit"е - ВЛА, а в таблице уже есть слово ВЛАДИМИР и ДИМИР автоматически должно подставляться.

← →
Savek (2005-09-07 16:51) [1]

Пишешь в обработчике события OnKeyPress

if Table.Locate(Field,Edit1.Text,[]) then Edit1.Text:=...

и далее подсвечиваешь вставку

← →
Пантелеев Иван (2005-09-07 19:09) [2]

>и далее подсвечиваешь вставку
А как?

← →
Signate © (2005-09-07 19:20) [3]

edit1.SelStart := 2; // Откуда выделяем edit1.SelLength := 2; // Сколько символов от SelStart надо выделить

← →
Пантелеев Иван (2005-09-07 19:32) [4]

А можно весь код полностью?
И как я узнаю сколько мне нужно символов выделять?

Я в базах не силен...
А Узнаешь как... Ну после того как ты нашел слово по куску, то выделять тебе надо ВЛАДИМИР-ВЛА (т.е. вычитать из всего слова столько символом сколько уже введено

← →
Dilmo (2005-09-09 08:29) [6]

var
s: string;

s := edit1.text;
edit1.text := FullWord;
edit1.SelStart := Length(s)+1;
edit1.SelLength := Length(FullWord)-Length(s);

FullWord - полное слово которое нашел

Поиск + Подставление зап. Найти похожие ветки