讓Delphi程式不受Windows日期格式的影響

1

procedure
setsysdateformat;
2begin
3   //設定windows系統的短日期的格式
4   setlocaleinfo(locale_system_default, lo  cale_sshortdate, '
yyyy-mm-dd');
6   //設定程式本身所使用的日期時間格式
7   longdateformat := '
yyyy-mm-dd';
8   shortdateformat := '
yyyy-mm-dd';
9   longtimeformat := '
hh:nn:ss';
10   shorttimeformat := '
hh:nn:ss';
11   dateseparator := '-'
;12   timeseparator := ':'
;13end;

在程式初始化的時候執行上面的方法，不論windows的短日期格式怎樣設定都不再影響我們的delphi程式了。

讓delphi程式不受WINDOWS日期格式的影響

如果windows系統的短日期格式為 yyyy m d 執行下面的 會報錯 2013 01 29 00 00 00不是合法的日期 procedure tfrmquerysale.formshow sender tobject varsdate string begin inherited 預設查當天...

讓delphi程式不受WINDOWS日期格式的影響

如果windows系統的短日期格式為 yyyy m d 執行下面的 會報錯 2013 01 29 00 00 00不是合法的日期 procedure tfrmquerysale.formshow sender tobject var sdate string begin inherited 預設查當...

讓delphi程式不受WINDOWS日期格式的影響

如果windows系統的短日期格式為 yyyy m d 執行下面的 會報錯 2013 01 29 00 00 00不是合法的日期 procedure tfrmquerysale.formshow sender tobject varsdate string begin inherited 預設查當天...