Ограничение log-файла по количеству строкDelphi , Файловая система , Файлы
Автор: VID { **** UBPFD *********** by delphibase.endimus.com **** >> Ограничение log-файла, по количеству строк Функция добавляет в файл LogFileName строку Log. Если файл LogFileName не существует, он будет создан. В параметре StrLimit указывается ограничение на количество строк в лог-файле. Функция возвращает число строк в лог-файле (LogFileName) Зависимости: sysutils, classes, system Автор: VID, vidsnap@mail.ru, ICQ:132234868, Махачкала Copyright: VID Дата: 11 июня 2002 г. ***************************************************** } function WriteLog(LogFileName, Log: string; StrLimit: Integer): Integer; var F: TextFile; function CheckLogFile: Integer; var I, Diff: Integer; FStr: TstringList; begin FStr := TStringList.Create; FStr.LoadFromFile(LogFileName); Diff := 0; if FStr.Count > StrLimit then begin Diff := FStr.Count - StrLimit; AssignFile(F, LogFileName); Rewrite(F); for I := Diff to FStr.Count - 1 do WriteLn(F, FStr[i]); CloseFile(F); end; Result := FStr.Count - Diff; FStr.Free; end; begin Result := 0; if StrLimit < 1 then Exit; try AssignFile(F, LogFileName); if FileExists(LogFileName) then Append(f) else Rewrite(F); WriteLn(F, Log); Closefile(f); except Exit; end; Result := CheckLogFile; end; Программная функция WriteLog в Delphi, которая пишет сообщение журнала в файл и ограничивает количество строк в файле. Сигнатура функции
Функция принимает три параметра:
Переменные и зависимости
Функция объявляет несколько переменных:
Список зависимостей:
Имплементация функции
Имплементация функции состоит из двух основных частей:
Вложенная функция CheckLogFile
Функция В целом, эта функция обеспечивает удобный способ записи сообщений журнала в файл, ограничивая количество строк в файле. Ограничение log-файла по количеству строк - функция Delphi, добавляющая строку в файл LogFileName и ограничивающая количество строк в файле указанным параметром StrLimit. Комментарии и вопросыПолучайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |