delphi 最简单的log日志记录

procedure WriteLogs(AMsg: string; fileName: TFileName);

var

  F: TextFile;

  Msg: string;

  dir: string;

begin

  Msg := DateTimeToStr(Now) + #9 + AMsg;

  try

    if not FileExists(fileName) then

    begin

      dir := ExtractFilePath(fileName);

      if (dir <> '') then

      begin

        try

          ForceDirectories(dir);

        except

        end;

      end;

      FileClose(FileCreate(fileName));

    end;

    if FileExists(fileName) then

    begin

      assignfile(F, fileName);

      try

        append(F);

        writeln(F, Msg);

      finally

        closeFile(F);

      end;

    end;

  except

  end;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

//用法

WriteLogs('123','log.txt');

end;