| {------------------------------------------------------------------------ // //返回当前系统时间的显示方式 // //返回值: //默认的返回为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. 至此全部完成.... 希望看到更多更经典的开发技巧，请随时刷新《开发特区》栏目。 |
正在阅读：用编程来实现24小时制到12小时制的转换用编程来实现24小时制到12小时制的转换
2004-02-14 09:34
出处：PConline
责任编辑：linjixiong
键盘也能翻页，试试“← →”键
