只需加上以下这句:
LongDateFormat := "yyyy-mm-dd"
即可。
通过了不要忘了给分哦! :-)
LongDateFormat := "yyyy-mm-dd"
即可。
通过了不要忘了给分哦! :-)
解决方案 »
- 请问如何使得Delphi向打开的的word文档最后追加内容,我的代码只能在文档最前面添加内容
- 请问谁有用delphi绘制矢量图的书籍啊?
- 关于申明变量的小问题,怪,怪,怪,大家一块来看看,小弟太菜了!
- 为什么ClientDataSet的Filter不支持like
- 把数个图形文件合并成GIF文件,想幻灯片一样播放
- delphi有什么工具可以建立数据库
- 关于Indy中的TIdHTTP中ProxyParams的问题
- 又一个SQL语句的写法,还是马上给分
- 探讨:DELPHI的函数的用法,有意者请入!!!!!!!!!!!!!!
- 帮忙测试,局域网消息软件
- 使用quickreport开发时的一个问题
- 一个简单的 语法问题
str: string;
begin
str := RadioGroup1.Items.Strings[RadioGroup1.ItemIndex];
if SetLocaleInfoa(LOCALE_SYSTEM_DEFAULT, LOCALE_SSHORTDATE , PChar(str)) then
begin
showmessage('short OK!');
then
SendMessageA(HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0);
end;
end;
为了方便测试我用了radioGroup,items 内容如下
yy-d-m
d-yy-m
m-d-yy
yy-m-d
yyyy-m-d
yyyy-d-m
传进参数必须 null-terminate 字符串指针。我用 pchar ,而且字符串格式只能写成这样 'm-d'而不是'mm-dd'('yyyy'可以用),不然改不了另外delphi 函数 DateTostr,DateTimeTostr,都调用短格式。
长格式很灵活。随便改.RadioGroup Items 如下
yyy'年'dd'日'-mm
d-yyyy-mm
mm-dd-yyyy
yyyy-mm-dd代码如下var
str: string;
begin
str := RadioGroup2.Items.Strings[RadioGroup2.ItemIndex];
if SetLocaleInfoa(LOCALE_SYSTEM_DEFAULT, LOCALE_SLONGDATE , PChar(str)) then
begin
showmessage('Loan OK!');
SendMessageA(HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0);
end;
end;
//
你应该搜索一下,有着方面的讨论。
ShortDateFormat := 'yyyy-MM-dd';
LongDateFormat := 'yyyy-MM-dd';
TimeSeparator := ':';
TimeAMString := emptystr;
TimePMString := emptystr;
ShortTimeFormat := 'HH:MM';
LongTimeFormat := 'HH:MM:ss';
s:=formatdatetime('yyyy-mm-dd',now());
就这么简单