Запись из мемо в текстовый файл

@Kaisten · Регистрация: 02.10.2013

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

Как перейти на следующую строку для записи в текстовом файле. Т.к этот код заменяет первую строку.
Memo1.Lines.SaveToFile('отметки.txt');

@Puporev · 27.06.2014, 17:55

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

Т.к этот код заменяет первую строку.

В смысле в файле уже что-то написано и нужно добавить?

@Kaisten · 27.06.2014, 18:25 **[ТС]**

да, до запись файла идёт

@NIKOLAYY · 27.06.2014, 18:28

А как дозапись идет, ты сам в мемо будеш текст печатать?

@Puporev · 27.06.2014, 18:29

Открыть файл для дозаписи.

Delphi

assignfile(f,'123.txt');//файл в папке с программой
append(f);
writeln(f);//если там не начало новой строки
for i:=0 to Memo1.Lines.Count-1 do
writeln(f,Memo1.Lines[i]);
closefile(f);

@Kaisten · 27.06.2014, 18:38 **[ТС]**

У меня вообще программа Тест. Т.е,человек прошёл тест и отметка вывелась в мемо. А уже из мемо она сохраняется в текстовый файл. Но с этим кодом только в первую строку и заменяется там. А переход именно для мемо как сделать.

Добавлено через 8 минут
Оно прыгает через 1 строку теперь.
for i:=0 to Memo1.Lines.Count-1 do лишнее. А так спасибо.

@NIKOLAYY · 27.06.2014, 18:39

Kaisten,
Можено еще так, сначала загрузить в мемо-

Delphi

1	Memo1.Lines.LoadFromFile('îòìåòêè.txt');

А потом дописать или методом Add добавить запись и сохранить.
А можно вобще без мемо- сразу в файл писать, сам смотри как тебе удобнее.

@Kaisten · 27.06.2014, 18:41 **[ТС]**

у меня так и было,но оно заменяет ту же строку. Всё уже разобрался. Всем спасибо.

Добавлено через 44 секунды
Но у меня же тест был,я оценку показываю за тест а потом сохраняю

@nattive · 25.02.2021, 20:05

Все привет!

Подскажите плиз как сохранять txt в отдельную папку корневой папки программы? Что нужно прописать в

Delphi

1	memo1.Lines.SaveToFile('R '+DateToStr(Date(NOW))+'.txt');

@AzAtom · 25.02.2021, 20:24

nattive, нужно дописать название папки.

Delphi

1	Memo1.Lines.SaveToFile(ExtractFilePath(Application.ExeName) + 'SubdirName\R ' + DateToStr(NOW)+'.txt');

Только, папку надо создать заранее.

@nattive · 25.02.2021, 21:03

все прекрасно работает, спасибо большое!

Есть еще один вопрос, файл у меня сохраняется при каждом выходе из программы, как сделать так, что если пользователь заходил несколько раз в программу, то файл не пересохранялся а добавлялись строки в существующий. На каждый день свой файл.

@AzAtom · 25.02.2021, 21:17

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

файл не пересохранялся а добавлялись строки в существующий

Выше в теме как раз это обсуждается.

Можно загружать из файла, добавлять новые строки и сохранять:

Delphi

1
2
3

Memo1.Lines.LoadFromFile(ExtractFilePath(Application.ExeName) + 'SubdirName\R ' + DateToStr(NOW)+'.txt');
Memo1.Lines.Add('Что-то добавили');
Memo1.Lines.SaveToFile(ExtractFilePath(Application.ExeName) + 'SubdirName\R ' + DateToStr(NOW)+'.txt');

Добавлено через 56 секунд
Загружать, конечно, нужно если такой файл существует. Нужно добавить проверку существования файла.

@nattive · 25.02.2021, 21:50

подскажи как проверку сделать? Сейчас натыкаюсь на ошибку если файла нет

@Пытливый · 25.02.2021, 22:25

Delphi

FileName := ExtractFilePath(Application.ExeName) + 'SubdirName\R ' + DateToStr(NOW)+'.txt';
if FileExists(FileName) then Memo1.Lines.LoadFromFile(FileName);
Memo1.Lines.Add('Что-то добавили');
Memo1.Lines.SaveToFile(FileName);

@nattive 5 / 3 / 2 Регистрация: 21.03.2013 Сообщений: 110
	25.02.2021, 21:03	11
	все прекрасно работает, спасибо большое! Есть еще один вопрос, файл у меня сохраняется при каждом выходе из программы, как сделать так, что если пользователь заходил несколько раз в программу, то файл не пересохранялся а добавлялись строки в существующий. На каждый день свой файл. 0

@Kaisten 6 / 6 / 3 Регистрация: 02.10.2013 Сообщений: 183
		1
	Запись из мемо в текстовый файл 27.06.2014, 17:44. Показов 11533. Ответов 13 Метки нет (Все метки) Как перейти на следующую строку для записи в текстовом файле. Т.к этот код заменяет первую строку. Memo1.Lines.SaveToFile('отметки.txt'); 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	27.06.2014, 17:55	2
	Сообщение от Kaisten Т.к этот код заменяет первую строку. В смысле в файле уже что-то написано и нужно добавить? 0

@Kaisten 6 / 6 / 3 Регистрация: 02.10.2013 Сообщений: 183
	27.06.2014, 18:25 [ТС]	3
	да, до запись файла идёт 0

@NIKOLAYY 843 / 738 / 342 Регистрация: 22.09.2012 Сообщений: 5,034
	27.06.2014, 18:28	4
	А как дозапись идет, ты сам в мемо будеш текст печатать? 0

@Kaisten 6 / 6 / 3 Регистрация: 02.10.2013 Сообщений: 183
	27.06.2014, 18:38 [ТС]	6
	У меня вообще программа Тест. Т.е,человек прошёл тест и отметка вывелась в мемо. А уже из мемо она сохраняется в текстовый файл. Но с этим кодом только в первую строку и заменяется там. А переход именно для мемо как сделать. Добавлено через 8 минут Оно прыгает через 1 строку теперь. for i:=0 to Memo1.Lines.Count-1 do лишнее. А так спасибо. 0

@Kaisten 6 / 6 / 3 Регистрация: 02.10.2013 Сообщений: 183
	27.06.2014, 18:41 [ТС]	8
	у меня так и было,но оно заменяет ту же строку. Всё уже разобрался. Всем спасибо. Добавлено через 44 секунды Но у меня же тест был,я оценку показываю за тест а потом сохраняю 0

@nattive 5 / 3 / 2 Регистрация: 21.03.2013 Сообщений: 110
	25.02.2021, 21:50	13
	подскажи как проверку сделать? Сейчас натыкаюсь на ошибку если файла нет 0

	25.02.2021, 22:25