11 2012 档案

delphi 线程使用
摘要：unituntWorkThread;interfaceusesWindows,Classes,SysUtils;typeTWorkItem=classend;TProcessWork=procedure(Sender:TObject;Work:TWorkItem)ofObject;TWorkThread=class(TThread)privateFCriticalSection:TRTLCriticalSection;hEvent:Cardinal;FList:TList;FProcessWork:TProcessWork;procedureProcessWork(Work:TWorkItem 阅读全文

posted @ 2012-11-30 21:23 jxgxy 阅读(599) 评论(0) 推荐(0)

App数据格式之解析Json
摘要：来源：http://www.cnblogs.com/qianxudetianxia/archive/2011/07/22/2079979.htmlJSON数据格式，在Android中被广泛运用于客户端和网络(或者说服务器)通信，非常有必要系统的了解学习。 恰逢本人最近对json做了一个简单的学习，特此总结一下，以飨各位。 为了文章简明清晰，尽量多列点，少废话。 参考文档：http://www.ietf.org/rfc/rfc4627.txt?number=46271.JSON解析 (1).解析Object之一:?1{"url":"http://www.cnblog 阅读全文

posted @ 2012-11-22 12:09 jxgxy 阅读(3558) 评论(0) 推荐(0)

将excel的列索引转换为相应字母。
摘要：functionnumtochar(num:integer):string;varstr:string;m_num,num1,num2:integer;beginm_num:=num;str:='';num1:=m_numdiv26;num2:=m_nummod26;whilenum1>0dobeginifnum2>0thenstr:=char(num2-1+ord('A'))+strelsebeginstr:='Z'+str;num1:=num1-1;end;m_num:=num1;num1:=m_numdiv26;num2:=m_ 阅读全文

posted @ 2012-11-19 12:12 jxgxy 阅读(1233) 评论(0) 推荐(0)

unidac 执行Execute后取得受影响行数。
摘要：uniQuery2.SQL.Text:=mmo2.Text;uniQuery2.Execute;mmo1.Lines.Add(Format('受影响行数：%d',[uniQuery2.RowsAffected])); 阅读全文

posted @ 2012-11-02 09:58 jxgxy 阅读(523) 评论(0) 推荐(0)

导航