Слияние двух файлов

@Shur1k_ua · Регистрация: 01.06.2012

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

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

Добавлено через 49 секунд
или подскажите, как соединить 2 текста в разных мемо в один. Но всё же лучше начать соединение файлов.

@RostorLuxor · 08.11.2015, 17:53

Delphi

var X1:TStringList;
var X2:TStringList;
var X3:TStringList;
begin
X1 := TStringList.Create();
X2 := TStringList.Create();
{ Первый файл }
X1.LoadFromFile('первый TXT');
{ Второй файл }
X2.LoadFromFile('второй TXT');
X3.Clear;
X3.Add(X1.Text);
X3.Add('');
X3.Add(X2.Text);
{ Куда сохранить }
X3.SaveToFile('конечный_TXT')
end;

@Shur1k_ua · 08.11.2015, 18:00 **[ТС]**

что то не хочет оно сливать

@RostorLuxor · 08.11.2015, 18:12

Исправил. (Забыл об X3 := TStringList.Create).

Delphi

var X1:TStringList;
var X2:TStringList;
var X3:TStringList;
begin
X1 := TStringList.Create();
X2 := TStringList.Create();
X3 := TStringList.Create();
{ Первый файл }
X1.LoadFromFile('первый TXT');
{ Второй файл }
X2.LoadFromFile('второй TXT');
X3.Clear;
X3.Add(X1.Text);
X3.Add('');
X3.Add(X2.Text);
{ Куда сохранить }
X3.SaveToFile('конечный_TXT')
end;

@Mawrat · 08.11.2015, 18:26

Ещё в конце надо освободить память (уничтожить созданные объекты). Иначе, будут утечки памяти. Т. е., созданные объекты так и останутся в памяти до завершения программы.
В конце кода надо добавить:

Delphi

1
2
3

FreeAndNil(X1);
FreeAndNil(X2);
FreeAndNil(X3);

@Shur1k_ua 0 / 0 / 3 Регистрация: 01.06.2012 Сообщений: 141
		1
	Слияние двух файлов 08.11.2015, 17:17. Показов 2092. Ответов 4 Метки нет (Все метки) Здравствуйте. В папке есть два тхт файла, как мне их соединить и записать в третий и в третьем файле сделать между ними, одну пустую строку. Добавлено через 49 секунд или подскажите, как соединить 2 текста в разных мемо в один. Но всё же лучше начать соединение файлов. 0

@Shur1k_ua 0 / 0 / 3 Регистрация: 01.06.2012 Сообщений: 141
	08.11.2015, 18:00 [ТС]	3
	что то не хочет оно сливать Миниатюры 0

	08.11.2015, 18:26

Слияние двух файлов

Решение