04-07-2009, 12:36 AM
السلام عليكم
كتبت هذا الكود للفلترة تكن لم استطيع تنفيذه
كتبت هذا الكود للفلترة تكن لم استطيع تنفيذه
كود :
procedure TForm1.Button1Click(Sender: TObject);
var x:string;
begin
x:='last_name='+ edit1.Text;
table1.Filter:=x;
table1.Filtered:=true;
end;
end.