我用Delphi7做了一个可视化软件想每次修改完后自动生成最后修改日期怎么做?
2个回答
展开全部
这个是可以实现的。而且函数代码很少，如下：
function getdatetime: string;
var
SearchRec: TSearchRec;
begin
Result := -1;
if FindFirst(Application.ExeName, faAnyFile, SearchRec) = 0 then
Result := DateTimeToStr(FileDateToDateTime(SearchRec.Time))
end;
希望可以帮到你。
function getdatetime: string;
var
SearchRec: TSearchRec;
begin
Result := -1;
if FindFirst(Application.ExeName, faAnyFile, SearchRec) = 0 then
Result := DateTimeToStr(FileDateToDateTime(SearchRec.Time))
end;
希望可以帮到你。
追问
string 类型怎么赋值了 整形数？？
追答
原先这个函数 result:=SearchRec.Time
没转换的是int，改成string之后，初始化忘记改了。
不好意思哈，你直接删掉result:=-1 或者改成result:='1900-01-01 00:00:00' 就是个获取失败的默认值。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
AiPPT
2024-09-19 广告
随着AI技术的飞速发展，如今市面上涌现了许多实用易操作的AI生成工具1、简介：AiPPT: 这款AI工具智能理解用户输入的主题，提供“AI智能生成”和“导入本地大纲”的选项，生成的PPT内容丰富多样，可自由编辑和添加元素，图表类型包括柱状图...
点击进入详情页
本回答由AiPPT提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
