论坛首页 › 电脑综合 › delphi 如何用当前日期作文件名保存起来？

hehan 发表于 2013-3-31 14:39:30

delphi 如何用当前日期作文件名保存起来？

比如今天是 2013年3月31日，点击保存后直接保存为2013331.txt   谢谢

hehan 发表于 2013-3-31 22:23:12

顶起来 帮帮忙撒{:sad:}{:sad:}

yanghuanchun 发表于 2013-4-6 21:56:16

procedure TForm1.Button2Click(Sender: TObject);
    var timestring :string;
begin
try
timestring :=FormatdateTime('yy-mm-dd-hh-nn',Now);   
   excelworksheet1.SaveAs('c:\温度报表'+timestring);    // 保存报表的路径
except
    application.MessageBox('保存失败','提示',mb_okcancel);
    exit
end;


我这个是用来保存EXCEL 的 ，不过都差不多了 ，你看一看。FormatdateTime 这个函数可以看看 。希望能帮到你。

hehan 发表于 2013-4-6 22:40:15

谢谢 又多了个方法 我是这么做的s:string;
begin
DateTimeToString(s, 'yyyymmddhhmmss', now);
Memo1.Lines.SaveToFile('F:\' + s + '.txt');
end;
end.

查看完整版本: delphi 如何用当前日期作文件名保存起来？