1、可以排序var F_Main: TF_Main; flag:integer; D_Flag:integer; DBName_run:string; implementation {$R *.dfm} function TF_Main.DBOpen(var Tab:TTinyTable;TName:string;TIndex:string):boolean; {打开数据库中TName表的函数按TIndex排序} begin try Tab.Close; Tab.DatabaseName:=DBName; Tab.TableName:=TName; Tab.IndexName:=TIndex; Tab.Password:=DBPassWord; Tab.Open; Result:=True; except Result:=False; end; end; 2、应该用insert吧,append是新增