请问如何将字符串'20030303'用DateTimePicker显示啊?谢谢啊~~~在线! 请问如何将字符串'20030303'用DateTimePicker显示啊?谢谢啊~~~在线!谢谢! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 我记得datetimepicker有date和time属性吧把字符串转成datetime,整数部分赋给date,小数部分赋给time就行了 procedure TForm1.FormCreate(Sender: TObject);begin DateTimePicker1.date :=StrToDate(format('%s-%s-%s',['2003','03','03']))end; procedure TForm1.FormCreate(Sender: TObject);var str: string;begin str := '20030303'; DateTimePicker1.date :=StrToDate(format('%s-%s-%s',[copy(str, 1, 4),copy(str, 5, 2),copy(str, 7, 2)]))end; DateTimePicker1.date :=StrToDateTime('20020303'); u2m(痛并快乐着) 的不行!再试试 Wally_wu(韦利)说的 DateTimePicker1.date :=StrToDate('20020303'); 如何获取treeview控件每个节点的标题 ADOQuery1下面的怎么写! 刚学delphi 想做一个web维护程序,新闻与图片问题,讨教各位,来者有分!!! 新手提问:创建自定义函数 请问如何下载文件,并且使下载风格与IE相同。(不用Webbrowser控件)。 关于一个手工改变运算符的计算器的问题 很怪的form问题。 您好,请教关于数据库的问题,谢谢 用delphi5做asp的中间件,dll,请问在新建中选什么好? 急,好心人,快来帮我啊! 关于OLE应用的问题?(高手请进) 如何判断数据表中的一条特定记录是否存在
把字符串转成datetime,整数部分赋给date,小数部分赋给time就行了
begin
DateTimePicker1.date :=StrToDate(format('%s-%s-%s',['2003','03','03']))
end;
var
str: string;
begin
str := '20030303';
DateTimePicker1.date :=StrToDate(format('%s-%s-%s',[copy(str, 1, 4),copy(str, 5, 2),copy(str, 7, 2)]))
end;
的不行!
再试试 Wally_wu(韦利)说的