Скачать: CL | DM;

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

← →
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-то чего-нть введи целочисленное, прежде чем его покидать !

---

← →
clickmaker ©   (2009-03-27 14:39) [8]

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

---

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

> Сергей М. ©


> clickmaker ©

Спасибо!

---

← →
MsGuns ©   (2009-03-27 15:20) [10]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.006 c