Memo сохранение в конец файла

@Beavis_222 · Регистрация: 29.03.2013

Author24 — интернет-сервис помощи студентам

Здравствуйте, помогите пожалуйста сохранить текст из поля Memo в конец текстового файла, а то при обычном сохранении весь файл записывается заново. И ещё, при нажатии на кнопку, автоматически на 0 линии ставится дата. Можно ли её сделать серым цветом? Но только дату, не трогая сам текст.

@NIKOLAYY · 14.04.2013, 21:29

Сообщение от Beavis_222

Здравствуйте, помогите пожалуйста сохранить текст из поля Memo в конец текстового файла, не трогая сам текст.

Delphi

1	Memo1.Lines.Add('Строка');

@NT SERVICE · 14.04.2013, 21:31

Delphi

procedure TForm1.btn2Click(Sender: TObject);
var
  st: TStringList;
begin
  st:= TStringList.Create;
  st.LoadFromFile('test.txt');
  if st.Count > 0 then
  begin
    st.Strings[0]:= FormatDateTime('dd.mm.yyyy', Date);
  end else
  begin
     st.Add(FormatDateTime('dd.mm.yyyy', Date));
  end;
  st.Add(mmo1.Lines.Text);
  st.SaveToFile('test.txt');
  st.Free;
end;

Добавлено через 1 минуту

Сообщение от Beavis_222

Но только дату, не трогая сам текст.

Можно в RichEdit

@Beavis_222 0 / 0 / 0 Регистрация: 29.03.2013 Сообщений: 64
		1
	Memo сохранение в конец файла 14.04.2013, 20:57. Показов 2495. Ответов 2 Метки нет (Все метки) Здравствуйте, помогите пожалуйста сохранить текст из поля Memo в конец текстового файла, а то при обычном сохранении весь файл записывается заново. И ещё, при нажатии на кнопку, автоматически на 0 линии ставится дата. Можно ли её сделать серым цветом? Но только дату, не трогая сам текст. 0

	14.04.2013, 21:31

Memo сохранение в конец файла

Решение