大家帮忙阿!还有,Delphi的Help中写道
procedure TForm1.Button1Click(Sender: TObject);begin
DateSeparator := '-';
DateFullYear := True;
DateLeadZero := True;
Label1.Caption := DateToStr(Date);
end;DateFullYear和DateLeadZero看起来象保留字,但我在程序中却不能用。
DateSeparator却能...我faint
procedure TForm1.Button1Click(Sender: TObject);begin
DateSeparator := '-';
DateFullYear := True;
DateLeadZero := True;
Label1.Caption := DateToStr(Date);
end;DateFullYear和DateLeadZero看起来象保留字,但我在程序中却不能用。
DateSeparator却能...我faint
解决方案 »
- project xxx.exe raise exception class EStackOverflow with message 'stack oveflow
- delphi中如何打印出boolean类型的变量
- ???消息显示问题,每隔5秒钟弹出一个消息,如何判断如果有消息弹出,则不弹出消息???
- 求一个for delphi的,有分层功能的表格控件。
- fastreport如何设置页眉!
- 怎样把word的内容存进sql数据库,并且读出来
- extcsdn请到这里接分
- delphi的menu栏为什么是凹下去的?怎么才能让他凸起来或是和工作区想平?
- 用什么方法可以远程摇控多台计算机,
- 菜题:如何安装Ehlib,ver2.2.
- 请问:哪里有Delphi 6.0下载?
- 关于显示器分辨率设置导致的一个问题
Shortdateformat:='yyyy-mm-dd'
longdateformat 好象是这样吧!
project-->view source,在工程文件里(即project.dpr)
......
shortdateformat:='yyyy-mm-dd';
Application.run;此法虽在datetimepicker中显示之年份也为二位,但已达目的,不信可试之。
如果把长时间和短时间改成两位,您的程序就...了。这样是不能实现通用的。
DateTimePicker1.Perform(DTM_SETFORMAT, DWord(nil) ,DWord(s));我也不知行不行。
var
MyDateFormat:string;
begin
MyDateFormat:='yyyy-mm-dd';
SendMessage(DateTimePicker1.Handle, $1005, 0, Longint(PChar(MyDateFormat)));
end;
所以也不能给分,对不起。coldljy老兄,您的程序使月一直是十二月,不知为什么
不管怎样,还是这个方案解决了部分问题