Поиск в БД

← →
igorntk (2009-03-27 11:37) [0]

В TEdit вносятся значения для поиска. Необходимо, чтобы в случае удачного поиска было сообщение "Такой существует". Процедуру выполняю с помощью нажатия кнопки:
procedure TForm5.Button6Click(Sender: TObject); var kod:longint; begin kod:=strtoint(Edit3.Text); if table1.FindKey([kod])then showmessage ("такой существует"); end;
Как данный поиск сделать при выходе из компонента TEdit. Пытался сделать с помощью OnExit - сообщение об ошибке...

← →
Palladin © (2009-03-27 11:40) [1]

Сообщение об ошибке говорит что ты лось. Только люди этого типа думают что все в мире знают ее текст.

← →
Плохиш © (2009-03-27 11:52) [2]

> igorntk (27.03.09 11:37)

Читал, читал, вопросительных знаков не заметил. В чём вопрос-то?

← →
Ega23 © (2009-03-27 11:54) [3]

За такое надо убивать на медленном огне. На каждый Exit в БД запросом стрелять...

← →
igorntk (2009-03-27 13:09) [4]

Нужно, чтобы поиск осуществился при выходе из TEdit. Вместо нажатия кнопки. Как это сделать?

← →
Сергей М. © (2009-03-27 13:13) [5]

> Как это сделать?

Перенести код из обработчика Button.OnClick в обработчик Edit.OnExit

Сказка про белого бычка)

← →
igorntk (2009-03-27 13:24) [6]

> Перенести код из обработчика Button.OnClick в обработчик
> Edit.OnExit

Ошибка:
Proect1 raisedexception class EconverterError with message "is not a valid integer value"

← →
Сергей М. © (2009-03-27 13:27) [7]

Так ты в Edit-то чего-нть введи целочисленное, прежде чем его покидать !

или хотя бы TryStrToInt
а лучше - выводить где-нибудь пользователю красным цветом "не введен критерий поиска"

← →
igorntk (2009-03-27 14:53) [9]

Похоже, что все-таки убьют :)

Поиск в БД Найти похожие ветки