2009 年 5月 21 日随笔档案 - 万一

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) 编辑

图片的居中、拉伸与平铺 - 回复 "我是一只想飞的小小鸟" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/11/04/1326105.html#1533947本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtr... 阅读全文

posted @ 2009-05-21 12:27 万一阅读(3720) 评论(20) 推荐(0) 编辑

IsLeapYear、IsInLeapYear - 是否是闰年

摘要： SysUtils.IsLeapYear();DateUtils.IsInLeapYear();unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) proce... 阅读全文

posted @ 2009-05-21 11:54 万一阅读(2791) 评论(0) 推荐(0) 编辑

IsValidDateTime、IsValidDate、IsValidTime、IsValidDateDay ... 判断时间是否合法

摘要： DateUtils.IsValidDateTimeDateUtils.IsValidDateDateUtils.IsValidTimeDateUtils.IsValidDateDayDateUtils.IsValidDateWeekDateUtils.IsValidDateMonthWeek//可用下面几个过程抛出异常:DateUtils.InvalidDateDayErrorDateUtils.... 阅读全文

posted @ 2009-05-21 11:29 万一阅读(4500) 评论(0) 推荐(0) 编辑

RecodeDateTime、RecodeDate、RecodeTime、RecodeYear ... 修改时间

摘要： DateUtils.RecodeDateTime();DateUtils.RecodeDate();DateUtils.RecodeTime();DateUtils.RecodeYear();DateUtils.RecodeMonth();DateUtils.RecodeDay();DateUtils.RecodeHour();DateUtils.RecodeMinute();DateUtils.... 阅读全文

posted @ 2009-05-21 11:06 万一阅读(2422) 评论(0) 推荐(0) 编辑

DecodeDate、DecodeTime ... DecodeDateTime ... 分解时间

摘要： SysUtils.DecodeDate();SysUtils.DecodeDateFully();SysUtils.DecodeTime();DateUtils.DecodeDateTime();DateUtils.DecodeDateDay();DateUtils.DecodeDateWeek();DateUtils.DecodeDateMonthWeek();DateUtils.DecodeD... 阅读全文

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