万一 - 博客园

2009年5月22日

摘要： //相关函数:SysUtils.DateTimeToFileDate();SysUtils.FileDateToDateTime();SysUtils.DateTimeToSystemTime();SysUtils.SystemTimeToDateTime();Windows.SystemTimeToFileTime();Windows.FileTimeToSystemTime();Windows... 阅读全文

posted @ 2009-05-22 22:54 万一阅读(5301) 评论(1) 推荐(0) 编辑

时间与相关类型(2) - TDate、TTime、TTimeStamp

摘要： //相关函数:SysUtils.DateTimeToTimeStamp();SysUtils.TimeStampToDateTime();SysUtils.TimeStampToMSecs();SysUtils.MSecsToTimeStamp();Windows.GetTickCount;Windows.GetCurrentTime; {GetCurrentTime 和 GetTickCount... 阅读全文

posted @ 2009-05-22 18:14 万一阅读(5584) 评论(0) 推荐(0) 编辑

时间与相关类型(1) - TDateTime 与 Double

摘要： //相关函数:SysUtils.FloatToDateTime();SysUtils.TryFloatToDateTime();在 System 单元定义有: TDateTime = type Double;看来 TDateTime 是一个 8 字节 64 位数据, 不过是 Double 的别名.{测试: TDateTime 就是一个 Double}var t: TDateTime; d: D... 阅读全文

posted @ 2009-05-22 10:57 万一阅读(6214) 评论(5) 推荐(0) 编辑

2009年5月21日

时间与字符串

摘要： SysUtils.StrToDate();SysUtils.StrToDateDef();SysUtils.TryStrToDate();SysUtils.StrToTime();SysUtils.StrToTimeDef();SysUtils.TryStrToTime();SysUtils.StrToDateTime();SysUtils.StrToDateTimeDef();SysUtils.... 阅读全文

posted @ 2009-05-21 23:18 万一阅读(4286) 评论(4) 推荐(0) 编辑

区域设置 ID (LCID) 表, 及获取方法

摘要：中国的区域设置 ID 是 2052, 如果经常打开微软软件的安装目录应该经常见到.获取很简单, 有现成的 API 函数: GetThreadLocale.begin ShowMessage(IntToStr(GetThreadLocale)); //2052end;区域设置 ID (LCID) 表区域设置描述简写十六进制值十进制值南非荷兰语 af 0x0436 ... 阅读全文

posted @ 2009-05-21 22:16 万一阅读(8584) 评论(0) 推荐(1) 编辑

Now、Date、Time、CurrentYear - 当前日期

摘要： SysUtils.Now;SysUtils.Date;SysUtils.Time;SysUtils.CurrentYear;unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) ... 阅读全文

posted @ 2009-05-21 17:50 万一阅读(4214) 评论(0) 推荐(0) 编辑

Yesterday、Today、Tomorrow - 昨天、今天、明天

摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); end;var Form1: TForm1... 阅读全文

posted @ 2009-05-21 17:37 万一阅读(4321) 评论(0) 推荐(0) 编辑

IsSameDay、IsToday - 判断是不是同一天、判断是不是今天

摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); end;var For... 阅读全文

posted @ 2009-05-21 16:58 万一阅读(6391) 评论(0) 推荐(0) 编辑

DateUtils.IsPM - 判断时间是否是下午

posted @ 2009-05-21 15:57 万一阅读(2214) 评论(1) 推荐(1) 编辑

禁止用鼠标拖动窗口的大小 - 回复 "合肥的石头" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2009/05/15/1458017.html#1534170//方法一, 同 BorderStyle := bsSingle;unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, F... 阅读全文

posted @ 2009-05-21 15:50 万一阅读(2913) 评论(9) 推荐(0) 编辑