28-02-2009, 03:18 PM
السلام عليكم محاولة فقط
كود :
procedure TForm1.AdvEdit1Change(Sender: TObject);
begin
adotable1.Filtered:= false;
adotable1.filter:='UserName='+QuotedStr(advedit1.Text+'*''');
adotable1.filtered:=true;
end;
