ITPub博客

首页 > Linux操作系统 > Linux操作系统 > DELPHI删除记录文件

DELPHI删除记录文件

原创 Linux操作系统 作者:zaorv 时间:2019-05-15 20:24:04 0 删除 编辑

//记录文件名格式 :YYMMDDHH.TXT
//删除两天前记录文件。
procedure TKeyReportForm.deleteTxtFile;
var
txtName,cTxtFile:string;
ii, i:integer;
begin //删除从3到5 天记录文件。
for i:=3 to 5 do
begin
cTxtFile:=extractFilePath(application.ExeName)+formatdatetime('yymmddhh',now-i)+'.txt';
// edit1.Text:=copy(cTxtFile,pos('.txt',cTxtFile)-8 ,8);
txtName:=copy(cTxtFile,pos('.txt',cTxtFile)-8 ,6);
// TxtFilepath:=extractFilePath(application.ExeName) ;
// DeleteFile(PChar(txtFilePath+'temp.txt')); //删除指定文件。
// txtName:= copy(cTxtFile,,pos('.txt',ctxtFile));
for ii:=0 to 23 do
begin
if ii<=9 then
ctxtFile:=ExtractFilePath(application.ExeName)+ txtName +'0'+ intToStr(ii) + '.txt'
else
ctxtFile:=ExtractFilePath(application.ExeName)+ txtName + intTostr(ii) + '.txt';
try
DeleteFile(cTxtFile);
except
exit;
end;
end;
end;
end;


来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/729024/viewspace-564890/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2018-09-12

  • 博文量
    192
  • 访问量
    147467