2015年3月27日
1、Delphi 打开目录和txt文件模块
摘要： //1、打开目录和打开txt文件 procedure TMainForm.bbtnOpenLoClick(Sender: TObject); var sLogName: string; begin sLogName := Pub_EXEPath + '\日志\' + FormatDateTime('yyyy-mm-dd',date())+'.txt'; if not FileExis... 阅读全文
posted @ 2015-03-27 16:58 海蓝7 阅读(480) 评论(0) 推荐(0) 编辑
2.2 代码块--delphi 写日志模块
摘要： //2.2 代码块--写日志 //调用例句如：LogMsg('FTP上传线程终止',False,true); procedure LogMsg(AMsg: string; const blnIsErrorMsg: boolean = False; const BoolSaveToFile: Boolean = True); var strMsg: string; begin try ... 阅读全文
posted @ 2015-03-27 16:56 海蓝7 阅读(392) 评论(0) 推荐(0) 编辑
3、利用SuperObject 循环处理Json深层次的值
摘要： //Json 格式如下 阅读全文
posted @ 2015-03-27 16:52 海蓝7 阅读(1388) 评论(0) 推荐(0) 编辑
4、delphi record数组复制
摘要： SetLength(OldDeptInfo,0); //释放旧数组 OldDeptInfo:=nil; 这样也可以； //SetLength(OldDeptInfo,Length(NewDeptInfo)); //不需要设定长度； OldDeptInfo:= NewDeptI... 阅读全文
posted @ 2015-03-27 16:47 海蓝7 阅读(745) 评论(0) 推荐(0) 编辑