Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Поиск + Подставление зап. [D7, Paradox]

Пантелеев Иван © (2005-09-07 15:37:00)
Как сделать чтобы при печати в Edit'е программа автоматом смотрела в таблице в определённой колонке значение и если есть похожее подставляла его. ну например:
Я начинаю печатать в Edit'е - ВЛА, а в таблице уже есть слово ВЛАДИМИР и ДИМИР автоматически должно подставляться.

Dilmo (2005-09-09 08:29:00) [1]
var
s: string;

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

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

Signate (2005-09-07 19:59:00) [2]
Я в базах не силен...
А Узнаешь как... Ну после того как ты нашел слово по куску, то выделять тебе надо ВЛАДИМИР-ВЛА (т.е. вычитать из всего слова столько символом сколько уже введено

Пантелеев Иван (2005-09-07 19:32:00) [3]
А можно весь код полностью?
И как я узнаю сколько мне нужно символов выделять?

Signate (2005-09-07 19:20:00) [4]
edit1.SelStart := 2; // Откуда выделяем edit1.SelLength := 2; // Сколько символов от SelStart надо выделить

Пантелеев Иван (2005-09-07 19:09:00) [5]
>и далее подсвечиваешь вставку
А как?

Savek (2005-09-07 16:51:00) [6]
Пишешь в обработчике события OnKeyPress

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

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »