shelly

var FDB:TDbf; begin FDB:=TDbf.Create(nil); FDB.FilePathFull:='.\'; FDB.TableLevel:=7; FDB.tablename :='test.dbf'; Fdb.FieldDefs.Add('prjid',ftlargeint); Fdb.FieldDefs.Add('no',ftstring,10); Fdb.CreateTable; Fdb.active:=True; Fdb.AppendRecord([3556856671915480078,'1']); Fdb.AppendRecord([3556856671915480078,'2']); Fdb.AppendRecord([3556856671915480017,'3']); Fdb.Filter:='prjid=3556856671915480078'; Fdb.Filtered:=True; DataSource1.DataSet:=FDB; ShowMessage(IntToStr(FDB.RecordCount)); end; filter no...