资料夹应用中数据包导入与导出时遇到的坑

1、数据包较大时，界面会没有反应，给用户死机的感觉，另外不知道打包的进度。

2、因此改用线程完成，但遇到手机应用秒退，自己用messagebox，日志文件，还有动态设label1.text显示程序的结果，没想到自己给自己设一个大坑，怎么也解决不了闪退的问题，有时候正常，有时候确秒退，最后在百度的以下链接里找到一条

https://bbs.youkuaiyun.com/topics/360223723

这是因为MyThread和主线程不同造成的，

在线程中不要做刷新GUI的操作，这是Delphi线程使用的常识。

https://bbs.youkuaiyun.com/topics/391849897

你这个代码2个问题
1、不能在线程中直接操作VCL控件。
2、 k := i;执行的时候，可能i已经不是原来的值了，所以出现你所说的6居多，你可以设想极端情况，线程start后并未马上切换到线程执行，但是你创建匿名线程的那个线程，已经全部跑完，这个时候i=6，然后系统线程切换，你想那些线程k是不是等于6呢？

它遇到的问题和我不一样，但我却从这句话知道了线程中是不允许进行控件操作的，而我恰好犯了此错误

修改代码，将涉及控件操作的更改在

 TThread.Synchronize(nil ,
                       procedure  begin
                                       RenameTempFileName(sf,label1.Text+'_');
                                     label2.Text:='导入树';
                                     label2.Repaint;
                                         XMLDoc := TXMLDocument.Create(nil);
                                              xml2treeItem(treeview1.Selected,XMLDoc);
                                              tdirectory.Delete(MyWorkDir+'temp',true);


                                   end   );

内，解决闪退的问题，我的打项目打包与接收的功能可以正常使用了

。