那里的天空

摘要： 数据库连接失败时，如何捕捉错误，避免弹出错误提示，以便下次自动重新连接 主要是要避免人工介入。一旦弹出错误提示，如果没有人工介入把它关掉，则程序会一直停在那里，无法自动重新连接。 在连接的时候虽然加入了try....except保护，但还是无法避免在操作数据库中数据时网络连接突然断掉或数据库服务被关 阅读全文

摘要： var StrLst: TStringList;begin StrLst:= TStringList.Create; try //有多少个2 StrLst.Delimiter:= '-'; StrLst.DelimitedText:= 'AB间-AB区间2层小楼'; Edit1.Text:=IntT 阅读全文

摘要： delphi 四舍五入保留一位或两位小数写法，后面参数为保留小数点位数function RoundFloat(f: double; i: integer): double; var s: string; ef: Extended; begin if f = 0 then begin Result : 阅读全文

摘要： 此种方法计算月份差不准，比如2017-2-1 到 2016-10-2 ，还是用StrToInt() 转化月为整形后再相减计算 use DateUtils; Edit1.Text:=intToStr(MonthsBetween(StrToDateTime('2012-10-2'),StrToDateT 阅读全文

摘要： 2016-07-01~~2016-07-31 整月 2016-08-05~~2016-08-31 非整月 2016-09-12~~2016-09-30 非整月 2016-02-01~~2016-02-26 非整月 就是这个意思，如何搞？ 注意要USES DateUtils单元； procedure  阅读全文

摘要： delphi 遇到Line too long(more than 1023 characters问题： 可操作方式，添加一段好用代码，能运行后再删除，让后将要编译的代码注释屏蔽掉 1. 将原有代码分离出过程来调用，调用使用 过程名字(self) 调用 2. 可将原有过程后面加个showmessage 阅读全文

摘要： 代号（房间号） 代号 1-1-101 1-5-502 15-3-2001 根据代号房间号截取后的楼层为 楼层 1 5 20 SELECT CASE WHEN len(RIGHT(代号, CHARINDEX('-', REVERSE(代号)) - 1)) = 3 THEN LEFT(RIGHT(代号, 阅读全文

摘要： delphi mac地址 网卡地址获取，如果有无线网卡连接情况，mac地址随机获取某个本地连接网卡地址，要都写进去判断 Trim(GetMacAddress)='AC-B5-7D-B2-E9-B1' 阅读全文

摘要： delphi 输入年月判断天数 //需要引用dateutils； unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,dateutils 阅读全文

摘要： select top 20 * from 表 where id not in (select top 10 id from 表 order by id) order by id 阅读全文