摘要： procedure TForm1.btn1Click(Sender: TObject);var path:string;begin path := edt1.Text; if path '' then begin path := StringReplace(path, '/', '\', [rfReplaceAll]); if not DirectoryExists(path) then //查找文件夹是否存在 begin //建立文件夹(ForceDirectories可建立多级目录，创建单级目录用：CreateDirector... 阅读全文

摘要： procedure TForm1.btn1Click(Sender: TObject);var i,j,Count:Integer;begin i:=10; j:=20; asm // MOV EAX,i+j; //不能这样使用 MOV EAX,i; //赋值 MOV ECX,j; ADD EAX,ECX; {EAX:=EAX+ECX;} //进行加法运算 MOV Count,EAX; end; Showmessage(IntToStr(Count)); {30}end;end. 阅读全文

摘要： 项目进入尾声，又是最恐怖的性能测试 (对着JS的性能测试我只能做这个表情 -_-! )经过多次的代码检查和测试，确认已经把自己定的变量什么的一大堆都已经用null处理，并且没有明显的循环引用，但结果进行用户某一动作时，内存还是没被全部回收，而是线性增加，最后发现，问题都是出现在DOM身上主要是太相信JQuery的empty()和 remove(),以为他们会把DOM都清理了，结果浪费了我两天的时间 orz ..但结果是empty()是调用remove()来进行清空的，而remove()则是先清理所有选中的对象及其子对象的所有事件和属性，再使用removeChild()删除自己，而问题就是出现. 阅读全文