Записать или добавить текст в файлDelphi , Файловая система , ФайлыЗаписать или добавить текст в файл
Оформил: DeeCo function AppendOrWriteTextToFile(FileName : TFilename; WriteText : string): boolean; var f : Textfile; begin Result := False; AssignFile(f, FileName); try if FileExists(FileName) = False then Rewrite(f) else begin Append(f); end; Writeln(f, WriteText); Result := True; finally CloseFile(f); end; end; // Sample Source... procedure TForm1.Close1Click(Sender : TObject); var dir, log : string; begin dir := ExtractFilePath(Application.Exename); log := 'Last Programm Termination: ' + DateTimeToStr(now); AppendOrWriteTextToFile(dir + '\logfile.txt', log) end; В статье описана функция Delphi, которая позволяет записать или добавить текст в файл, а также приведен пример использования этой функции для журналирования событий программы. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |