如何将数字字符串转换为日期格式? 如何将数字字符串转换为日期格式? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 strtodate(str:string)str要像2005-06-06才行的,你要先转化数字传为加了'-'之后的格式 var data:string;begin data:='2004-06-06'; strtodate(data);end; //用FormatDateTime functionprocedure TForm1.btn1Click(Sender: TObject);var S:string;begin S:=formatdatetime('yyyy-mm-dd',date()); ShowMessage(S);end;end. 另一种方便的方法在Delphi中实现类似中的控件数组。 你可以通过设置一组相应控件的TAG属性来实现这一功能。首先在窗体中放置3个BUTTON控件,然后分别设置这三个控件的TAG属性为1、2、3。接下来双击任意一个按钮,在其代码部分输入如下代码:procedureTForm1.Button1Click(Sender:TObject);varcap:string;begincaseTButton(sender).Tagof1:ShowMessage(′1stButtonPressed′);2:ShowMessage(′2ndButtonPressed′);3:ShowMessage(′3rdButtonPressed′);end;end;最后在其他两个按钮的ONCLICK事件中选择已经编好的代码。这样一来就可以实现以上功能了。 楼猪 如果你输入的数字是这样20050607的话你可以用COPY函数来搞定copy 3次之后得到的值中间加上-这样就搞定了 但是一定要足额和组合出来的数据是字符串型的 求生成树节点的算法 只有10分了,求将excel文件导入SQL数据库的代码 如何实现网络通讯程序,急 使用clientdataset Reconcile 出错,请问这里的代码有什么错。 谁能帮我看看这个函数的递归调用为什么得不到正确的结果? 分组打印的问题 如何用程序实现光驱的弹入弹出? 如何返回数据库的记录总数 請問在mssql中如何寫刪除索引的sql語句? 怎样用递归把一个目录下的结构反映到一个树中? 如何制作一个电子公告? 问一下,Delphi中的VCL组件究竟是如何显示出来,是windows有图形化的功能还是,用了Windows系统给DelphiWinAPI
str要像2005-06-06才行的,你要先转化数字传为加了'-'之后的格式
data:string;
begin
data:='2004-06-06';
strtodate(data);
end;
procedure TForm1.btn1Click(Sender: TObject);
var
S:string;
begin
S:=formatdatetime('yyyy-mm-dd',date());
ShowMessage(S);
end;end.
你可以通过设置一组相应控件的TAG属性来实现这一功能。首先在窗体中放置3个BUTTON控件,然后分别设置这三个控件的TAG属性为1、2、3。接下来双击任意一个按钮,
在其代码部分输入如下代码:
procedureTForm1.Button1Click(Sender:TObject);
varcap:string;
begin
caseTButton(sender).Tagof
1:ShowMessage(′1stButtonPressed′);
2:ShowMessage(′2ndButtonPressed′);
3:ShowMessage(′3rdButtonPressed′);
end;
end;
最后在其他两个按钮的ONCLICK事件中选择已经编好的代码。这样一来就可以实现以上功能了。
如果你输入的数字是这样20050607的话你可以用COPY函数来搞定copy 3次之后得到的值中间加上-这样就搞定了 但是一定要足额和组合出来的数据是字符串型的