Delphi 解决StrToDateTime()不是有效日期类型的问题
相关资料:
http://www.delphitop.com/html/shijian/4924.html
方法1:
function GetDateFormat():string;
var
SysFrset: TFormatSettings;
begin
Result:='';
GetLocaleFormatSettings(GetUserDefaultLCID, SysFrset);
Result:=SysFrset.DateSeparator; //DateSeparator当前系统日期分隔符
end;
procedure TForm1.btn1Click(Sender: TObject);
var
Dat:TDateTime;
Fr, Fm:string;//保存日期格式的字符串变量
str: string;
begin
Fr:=GetDateFormat;//获取当前系统日期分隔符
Fm:= Format('yyyy%sMM%sdd hh:mm:ss',[Fr,Fr]);
str:= FormatDateTime(Fm,Now);
ShowMessage(str);
Dat:=StrToDateTime(str); //这样始终都会跟当前系统日期分隔符同步,这样不管你把当前系统日期分隔符设置为什么样都不会报错
end;
方法2:
procedure TForm1.btn2Click(Sender: TObject);
var
D:TDateTime;
s:string;
begin
// D:=VarToDateTime('05-10-14 04:35PM');
D:=VarToDateTime('2018-03-13 12:12:12');
S:=FormatDatetime('YYYY/MM/DD HH:MM:SS',D);
showmessage(s);
end;
----------------------------------
在 DELPHI IDE 下 按下 CTRL+SHIFT+F 。搜索 Application.Initialize; 就能找到 代码的修改位置。
另外 也可以不要 Application.Initialize; ,然后代码放到 其他位置。
特别是你第一个建立的 对象的位置。
例如 DataMoudle 或者 主界面,或者 登录界面。
在他们的 OnCreate 里写就行了。
with FormatSettings do
begin
ShortDateFormat := 'yyyy-mm-dd';
LongDateFormat := 'yyyy-mm-dd';
ShortTimeFormat := 'hh:nn:ss';
LongTimeFormat := 'hh:nn:ss';
DateSeparator := '-';
TimeSeparator := ':';
end;
另外 也可以不要 Application.Initialize; ,然后代码放到 其他位置。
特别是你第一个建立的 对象的位置。
例如 DataMoudle 或者 主界面,或者 登录界面。
在他们的 OnCreate 里写就行了。
with FormatSettings do
begin
ShortDateFormat := 'yyyy-mm-dd';
LongDateFormat := 'yyyy-mm-dd';
ShortTimeFormat := 'hh:nn:ss';
LongTimeFormat := 'hh:nn:ss';
DateSeparator := '-';
TimeSeparator := ':';
end;
作者:疯狂Delphi
本文版权归作者和博客园共有,欢迎转载,但未经作者同意必须保留此段声明,且在文章页面明显位置给出原文连接,否则保留追究法律责任的权利.
欢迎关注我,一起进步!扫描下方二维码即可加我