打开Delphi7集成开发环境，在默认工程的Form1窗体放一个edit1控件和一个Button1按钮。

双击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;

这里要说明一下上述写法时Edit1中输入的内容格式必须是‘yyyymmddhhmiss’即如‘20180901010101’形式，另外电脑时间时间格式分割符必须与sd中添加的一致，如win7以上电脑时间格式为‘yyyy/mm/dd hh:mi:ss’而xp电脑则是‘yyyy-mm-dd hh:mi:ss’格式。具体可以右击电脑右下角时间更改日期格式，下图是win10电脑的调整格式界面

F9运行程序，输入日期‘20180920010101’，点击Button1，弹出对话框，显示系统时间格式的时间字符串

还有一种简单的方法通过TFormatSettings方式，但是本人win10+Delphi7环境并没有测试成功。只能推荐用上一种比较笨的方法，根据电脑时间格式来转换。