Главная страницаОбратная связьКарта сайта

Записать или добавить текст в файл

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

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;

Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация по разработке на Delph - "Записать или добавить текст в файл", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2024 Дискета.info