摘要: 做一个项目时,有个日期字段客户可输入可不输入值,直接把DateTime=Null时会出错,提示错误: 无法将 NULL 转换成"System.DateTime",因为它是一种值类型在网上查看下相关资料后,找到处理办法:Nullable<DateTime> now = DateTime.Now;Nullable<DateTime> now = null;当然也可以缩写:Da... 阅读全文
posted @ 2009-10-30 16:53 novel 阅读(4773) 评论(4) 推荐(2) 编辑
摘要: 在Panel上加载一个窗体,类似MDI窗体,原以为像Delphi一样直接把form的parent设置为panel就可以实现.在写代码时没问题,运行时弹出error:Top-level control can not be added toa control(无法将顶级控件添加到控件),查看form的属性后发现要把TopLevel = false才能实现.最后的代码如下:private void S... 阅读全文
posted @ 2009-10-30 16:42 novel 阅读(2259) 评论(0) 推荐(0) 编辑
摘要: --删除IE缓存记录uses WinInet;procedure DeleteIECache;var lpEntryInfo: PInternetCacheEntryInfo; hCacheDir: LongWord; dwEntrySize: LongWord;begin dwEntrySize := 0; FindFirstUrlCacheEntry(nil, TInternetCacheEn... 阅读全文
posted @ 2009-10-12 09:59 novel 阅读(734) 评论(0) 推荐(0) 编辑
摘要: 方法1:using System.IO;if (File.Exists("d:\a.exe")) { //do something }if (Directory.Exists("d:\abc\")) { //do something }方法2:DirectoryInfoaPath=newDirectoryInfo(PathName); if (aPath.Exists) { //do somet... 阅读全文
posted @ 2009-09-25 16:12 novel 阅读(358) 评论(0) 推荐(0) 编辑
摘要: procedure TForm1.Timer1Timer(Sender: TObject);var vLastInputInfo: TLastInputInfo;begin vLastInputInfo.cbSize := SizeOf(vLastInputInfo); GetLastInputInfo(vLastInputInfo); if GetTickCount - vLastInp... 阅读全文
posted @ 2009-09-14 11:09 novel 阅读(648) 评论(1) 推荐(1) 编辑
摘要: 因公司的业务需要,会把很多图片保存到数据库中.因此做了一个很简单的工具,把图片保存到SQL数据库中.1.可以连接到不同服务器上的SQL数据库,可以选择操作各个表;2.可以指定保存到数据库的图片格式(JPG or BMP);3.可以用windows图片和传真查看器预览图片.下载地址:一个把图片保存到SQL数据库的工具 阅读全文
posted @ 2009-09-03 09:21 novel 阅读(591) 评论(0) 推荐(1) 编辑
摘要: //取本机的 IP 地址function ComputerLocalIP: string;var ch: array[1..32] of char; wsData: TWSAData; myHost: PHostEnt; i: integer;begin Result := '';if WSAstartup(2,wsData)<>0 then Exit; // can’t ... 阅读全文
posted @ 2009-09-01 09:48 novel 阅读(535) 评论(0) 推荐(0) 编辑
摘要: <html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312" /><title>Ajax提示框</title><style type="text/css">a{ color:#000; font-size:12px;text-de... 阅读全文
posted @ 2009-08-26 14:53 novel 阅读(341) 评论(0) 推荐(0) 编辑
摘要: 1.在private添加procedure ComponentControl(Control: TControl; Shift: TShiftState; X,Y,Precision: integer);2.添加代码procedure TForm1.ComponentControl(Control: TControl; Shift: TShiftState; X, Y, Precision: in... 阅读全文
posted @ 2009-08-25 15:47 novel 阅读(1074) 评论(1) 推荐(0) 编辑
摘要: 昨天帮同事写了一个查找文件的小工具,却发现弹出了这个错误信息:The specified path, file name, or both are too long. The fully qualified file name must be less than 260 characters, and the directory name must be less than 248 charact... 阅读全文
posted @ 2009-06-24 09:42 novel 阅读(2643) 评论(0) 推荐(0) 编辑