摘要：
谁能使得以下代码能够快点，或者用其他方法实现功能，目前2000行数据需要10秒钟左右，如果不加红色部分代码的话需要1秒。unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,RzLstBox,RzChkLst,DB,MemDS,DBAccess,Uni,ComCtrls,RzTreeVw,SQLServerUniProvider;typeTForm1=class(TForm)UniConnection1:TUniConnection;U 阅读全文
摘要：
最近写了一个小脚本，在公司里有时还是有用的::code@echo offtitle 一键处理打印机因任务不能取消，无法接着打印。 Power BY AK47--DATA:2010-03-31set serverName="Spooler":queryfor /f "skip=3 tokens=4" %%i in ('sc query %serverName%') do set "zt=%%i" &goto :next:nextif /i "%zt%"=="RUNNING" 阅读全文
摘要：
好久没写技术文了 datasnap传大流。 完整代码，同时感谢叶兄传流的指点,（只公开十天）附：下面代码，转载请注明出处::code服务端：function TServerMethods1.DownLoadFile(AfileName: string): TStream;constSaveFolder = 'FSimage\';defaultName = 'Default.png'; // 此文件必须有//用默认文件处理不存在图片varALLpath: string;beginALLpath := LocalPath + SaveFolder + AfileNa 阅读全文
摘要：
//相关生成代码，VirtualStringTree有点难入门，研究了二天半，终于入门了。PTagCustomListItem = ^TTagCustomListItem;TTagCustomListItem = record Name: string; Id: string;end;varMainFrm: TMainFrm;SysPath: string;List: TStringList;implementation{$R *.dfm}uses fDMfrm;procedure TMainFrm.BuildTree;beginList.Clear;Self.VirtualStringTre 阅读全文