1、打开Delphi7集成开发环境，在默认工程的Form1窗体放一个edit1控件和一个Button1按钮。
2、双击Button1按钮，在OnClick事件方法中写代码如下：procedure TForm1.Button1Click(Sender: TObject);var sd:string;begin sd := copy(edit1.Text,1,4)+'/'+ copy(edit1.Text,5,2)+'/'+ copy(edit1.Text,7,2)+' '+ copy(edit1.Text,9,2)+':'+ copy(edit1.Text,11,2)+':' +copy(edit1.Text,13,2) ; showMessage(DateTimeTostr(strToDateTime(sd)));end;
3、这里要说明一下上述写法时Edit1中输入的内容格式必须是‘yyyymmddhhmiss’即如‘20180901010101’形式，另外电脑时间时间格式分割符必须与sd中添加的一致，如win7以上电脑时间格式为‘yyyy/mm/dd hh:mi:ss’而xp电脑则是‘yyyy-mm-dd hh:mi:ss’格式。具体可以右击电脑右下角时间更改日期格式，下图是win10电脑的调整格式界面
4、F9运行程序，输入日期‘20180920010101’，点击Button1，弹出对话框，显示系统时间格式的时间字符串
5、还有一种简单的方法通过TFormatSettings方式，但是本人win10+Delphi7环境并没有测试成功。只能推荐用上一种比较笨的方法，根据电脑时间格式来转换。
