实例——计算增加到目的表中的记录数并显示在状态栏中.txt

冒泡排序延时请认真阅读您的文件包然后写出其具体功能(至少要20个字)。尽量不要让站长把时间都花费在为您修正说明上。压缩包解压时不能有密码。系统会自动删除debug和release目录

    procedure TForm1.AppendtBtnClick(Sender: TObject)；
    begin
      with BatchMove_Append do
        begin
        Mode := batAppend；
        //指定批拷贝的操作方式为增加方式
        AbortOnKeyViol := False；
        Execute；
        //调用TbatchMove组件的Execute方法，执行批拷贝
       StatusBar1.SimpleText := ‘已增加’+IntToStr(MovedCount - KeyViolCount) + '记录'；
      End；
    End；