 |
| |
用编程来实现24小时制到12小时制的转换
|
出处：PConline
责任编辑：ljx |
| [04-2-14 9:24]
| 作者：cmain83/CSDN
|
{------------------------------------------------------------------------
//
//返回当前系统时间的显示方式
//
//返回值:
//默认的返回为24小时制
//
-----------------------------------------------------------------------}
functionGetTimeStory:Time_Story;
var
Reg:TRegistry;
begin
Result:=ts_24;
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
Reg.OpenKey('\ControlPanel\International',False);
Try
ifReg.ReadString('sTimeFormat')='tth:mm:ss'then
Result:=ts_12
else
Result:=ts_24;
Finally;
Reg.CloseKey;
Reg.Free;
end;
end;
end.
以上的实现功能的转换，而我们要在TDateTimePicker创建之前就要设置好系统时间格式。
所以还要修改.dpr的文件，如下：
programProject1;
uses
Forms,
SetTimeSotryUnitin'SetTimeSotryUnit.pas'{Form1};
{$R*.res}
begin
Application.Initialize;
ifGetTimeStory=ts_12then{如果为12小时制则显示为24小时制}
SetTimeStory(ts_24)
else{//如果为24小时制则显示为12小时制}
SetTimeStory(ts_12);
Application.CreateForm(TForm1,Form1);
Application.Run;
end.
至此全部完成....
希望看到更多更经典的开发技巧，请随时刷新《开发特区》栏目。
相关文章:
| |  | -
| |
