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

Последний раз! покажите в тексте что я делаю не так?   Найти похожие ветки 

← →
mebel ©   (2005-05-26 11:16) [0]

Что нужно изменить или добавить?

procedure TForm1.Edit1Change(Sender: TObject);
begin
if Length(Edit1.Text)>0 then
 ADOTable1.Filtered:=true
 else
 ADOTable1.Filtered:=false;
ADOTable1.Filter:="[ÒÅËÅÔÎÍ]>""+EDIT1.Text+""";
end;

---

← →
Val ©   (2005-05-26 11:19) [1]

Мебель из дерева, простите? НЕСКОЛЬКО ответов на этот вопрос было дано в другой вашей ветке.

---

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

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



Память: 0.44 MB
Время: 0.024 c