كيف يمكن اظهار البيانات بكتابة الحرف الاول فقط في خانة البحث

[tarek.inf]

السلام عليكم
استعمال الخاصية filter لوحدها لا تفي بالغرض لانها تقوم بالفلترة ابتداء من اول حرف لأول كلمة من الجملة
يمكن دمج الخاصية filter مع المعامل like الذي يمكن من خلاله فلترة الحرف او الكلمة مهما كان موقهما من الجملة
مثال

كود :

procedure TForm1.Edit1Change(Sender: TObject); begin IF edit1.Text<> '' then begin table1.Filter:='champ like '+''''+'%'+Edit1.Text+'%'''; table1.Filtered:=true; end else table1.Filtered:=false ; end;[align=left][/align]

أو

كود :

table1.Filter:='champ + LIKE ' + QuotedStr('%'+Edit1.Text+'%'); [align=left][/align]