文件夹,txt文件操作

最新推荐文章于 2023-12-01 15:45:12 发布

原创最新推荐文章于 2023-12-01 15:45:12 发布 · 837 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

delphi

当前文章被收录于：

delphi

17 篇文章 0 人学习

订阅专栏查看详情

当前文章被以下社区和专栏收录：

这段代码主要进行路径处理和日志文件操作。先定义路径变量，提取文件路径并拼接日志目录，若目录不存在则创建。之后拼接日志文件名，将操作时间和信息写入日志文件，若追加失败则重写文件。

var
path:string;
begin
    Path := ExtractFilePath(paramstr(0))+ '/Log/Operate';
    if not DirectoryExists(Path) then
    begin
        Try
            ForceDirectories(Path);
        Except
            Exit;
        End;
    end;
    {path := path + '/'+DateToStr(Now)+'.txt';
    Info := '**********************************************'+ Char(13) +chr(10)
           +'操作时间:' + char(vk_tab) + DateTimeToStr(now) + Char(13) +chr(10)
           +'操作信息:' + char(vk_tab) +     Info           + Char(13) +chr(10);

    Assign(LogFile,path);
    Try
        Append(LogFile);
        WriteLn(LogFile,info);
        CloseFile(LogFile);
    Except
        ReWrite(LogFile);
        WriteLn(LogFile,info);
        CloseFile(LogFile);
    End;
    Result := 'OK'; }
end;