摘要:
//相关函数:SysUtils.DateTimeToFileDate();SysUtils.FileDateToDateTime();SysUtils.DateTimeToSystemTime();SysUtils.SystemTimeToDateTime();Windows.SystemTimeToFileTime();Windows.FileTimeToSystemTime();Windows...
阅读全文
posted @ 2009-05-22 22:54
万一
阅读(5303)
推荐(0)
编辑
摘要:
//相关函数:SysUtils.DateTimeToTimeStamp();SysUtils.TimeStampToDateTime();SysUtils.TimeStampToMSecs();SysUtils.MSecsToTimeStamp();Windows.GetTickCount;Windows.GetCurrentTime; {GetCurrentTime 和 GetTickCount...
阅读全文
posted @ 2009-05-22 18:14
万一
阅读(5597)
推荐(0)
编辑
摘要:
//相关函数: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
万一
阅读(6223)
推荐(0)
编辑
摘要:
SysUtils.StrToDate();SysUtils.StrToDateDef();SysUtils.TryStrToDate();SysUtils.StrToTime();SysUtils.StrToTimeDef();SysUtils.TryStrToTime();SysUtils.StrToDateTime();SysUtils.StrToDateTimeDef();SysUtils....
阅读全文
posted @ 2009-05-21 23:18
万一
阅读(4287)
推荐(0)
编辑
摘要:
中国的区域设置 ID 是 2052, 如果经常打开微软软件的安装目录应该经常见到.获取很简单, 有现成的 API 函数: GetThreadLocale.begin ShowMessage(IntToStr(GetThreadLocale)); //2052end;区域设置 ID (LCID) 表 区域设置描述 简写 十六进制值 十进制值 南非荷兰语 af 0x0436 ...
阅读全文
posted @ 2009-05-21 22:16
万一
阅读(8598)
推荐(1)
编辑
摘要:
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
万一
阅读(4215)
推荐(0)
编辑
摘要:
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
万一
阅读(4329)
推荐(0)
编辑
摘要:
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
万一
阅读(6393)
推荐(0)
编辑
摘要:
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 15:57
万一
阅读(2215)
推荐(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)
推荐(0)
编辑