搜索
首页 电脑/网络 程序设计 其他编程语言

如何将文件日期转换成系统日期

  我有一段DELPHI编程,在 DELPHI 6。0 上运行很好,但在DELPHI2010下就不行了。程序如下:procedure TForm1。Button11Click(Sender: TObject);var vDate : TDateTime; s : string ; vFileDate : integer ;Function ProcDateOfFile(const aFile : String):Integer ;var vFileHand : Integer;begin vFileHand := FileOpen(aFile, fmOpenReadWrite); ProcDateOfFile := FileGetDate(vFileHand); //读取文件日期 FileClose(vFileHand);end;begin vFileDate := DateOfFile(' g'); vDate := FileDateToDateTime(vFileDate); //文件日期转换成系统日期 s := DateToStr(vDate); //可视化 showmessage(s);end;程序编译没有问题,问题出现在单击 Button1 之后。
  报告的信息: Invalid argument to date encode指的是:FileDateToDateTime(vFileDate); 句 参数vFileDate 的编码不对。但我设置参数的类型没错,付给它的值也是系统程序给的,有何不对,实在不理解。
  请高手帮忙,先谢过 !由于我的 DELPHI 是简装版,没有帮助信息,真是走头无路了。

全部回答

2012-12-05

51 0
没有使用过2010,但是从报错的内容来看,很有可能是FileDateToDateTime的函数有重载,你传递给的调用函数不能够进行必要的参数转换造成的 看看该函数的定义及其重载形式

类似问题换一批

热点推荐

热度TOP

相关推荐
加载中...

热点搜索 换一换

电脑/网络
其他编程语言
硬件
电脑装机
程序设计
互联网
操作系统/系统故障
笔记本电脑
反病毒
百度
软件
程序设计
其他编程语言
VB
数据库
C/C++
汇编语言
JAVA相关
VC++
C#/.NET
其他编程语言
其他编程语言
举报
举报原因(必选):
取消确定举报