Сохранение содержимого из Memo в текстовый файл

@JohanK · Регистрация: 16.01.2020

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

Как можно сохранить содержимое из Memo в текстовый файл не применяя функцию SaveToFile?

@yatrim · 18.06.2020, 03:54

Изобретая новый метод, неплохо бы знать, что не так со старым.
Чем SaveToFile не угодил то?

@D1973 · 18.06.2020, 05:25

Не по теме:

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

Чем SaveToFile не угодил то?

Обычная школьная задача из серии: "пофигу, как оно лучше, главное - чтобы задолбались!"

1. Древнепаскалевский способ:

Delphi

var f: TextFile;
    i: integer;
...
AssignFile(f, 'your_file_name.txt');
Rewrite(f);
for i := 0 to Memo1.Lines.Count - 1 do
  Writeln(f, Memo1.Lines[i]);
CloseFile(f);

2. Способ "чисто повыёживаться":

Delphi

with TFileStream.Create('your_file_name.txt', fmCreate) do
  begin
    WriteBuffer(Pointer(Memo1.Text)^, Length(Memo1.Text));
    Free;
  end;

3. Функциями модуля IOUtils (для линейки RAD Studio)

Delphi

1
2
3

uses ..., System.IOUtils;
...
TFile.WriteAllText('your_file_name.txt', Memo1.Text);

@JohanK 0 / 0 / 0 Регистрация: 16.01.2020 Сообщений: 35
		1
	Сохранение содержимого из Memo в текстовый файл 17.06.2020, 22:05. Показов 960. Ответов 2 Метки нет (Все метки) Как можно сохранить содержимое из Memo в текстовый файл не применяя функцию SaveToFile? 0

@yatrim 76 / 52 / 26 Регистрация: 23.01.2019 Сообщений: 134
	18.06.2020, 03:54	2
	Сообщение было отмечено northener как решение Решение Изобретая новый метод, неплохо бы знать, что не так со старым. Чем SaveToFile не угодил то? 0

	18.06.2020, 05:25

Сохранение содержимого из Memo в текстовый файл

Решение