Объединить два или больше текстовых файлов

@KendJi · Регистрация: 04.09.2014

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

скажите почему мне не получается объединить две или больше текстовых файлов я хочу например
a
b
c
d
+
e
f
g
h
=
a
b
c
d
e
f
g
h

Delphi

procedure TForm1.sButton2Click(Sender: TObject);
var
base1,base2: tstringlist;
begin
base1:= TStringList.Create;
base2:= TStringList.Create;
 
base1.LoadFromFile(sOpenDialog1.FileName);
base2.LoadFromFile(sOpenDialog1.FileName);
base1.AddStrings(base2);
base1.savetofile(ExtractFilePath(Application.ExeName)+ 'All.txt');

@FIL · 05.09.2014, 12:58

Delphi

1	base1.Text := base1.Text + base2.Text;

Добавлено через 2 минуты
И сейчас у тебя грузится один и тот же файл.

@KendJi · 05.09.2014, 13:00 **[ТС]**

не получается теперь сохранить вот так
e
f
g
h
e
f
g
h

@Sergio Leone · 05.09.2014, 14:09

KendJi, вам один и тот же текстовый файл нужно задублировать? или два разных файла?

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

не получается теперь сохранить вот так

и что не так?

@KendJi · 05.09.2014, 15:24 **[ТС]**

я хочу
a
b
c
d
+
e
f
g
h

@dondublon · 05.09.2014, 15:44

Одно и то же имя для двух файлов.

@mss · 05.09.2014, 15:46

Объединить файлы и объединить содержимое стринглистов, загруженных содержимым этих файлов, - это не всегда эквивалентные по результату операции.

Для объединения именно файлов следует использовать не TStringList, а TFileStream

@Sergio Leone · 05.09.2014, 15:47

KendJi, уже трижды в данной теме было сказано, что в вашем коде открывается два раза ОДИН И ТОТ ЖЕ ФАЙЛ.
А нужно (судя по всему) открывать РАЗНЫЕ файлы.

@METEOP75 · 06.06.2015, 10:39

Используй 2 sOpenDialog

@KendJi 0 / 0 / 0 Регистрация: 04.09.2014 Сообщений: 20
	05.09.2014, 13:00 [ТС]	3
	не получается теперь сохранить вот так e f g h e f g h 0

@Sergio Leone 2509 / 1130 / 582 Регистрация: 07.06.2014 Сообщений: 3,286
	05.09.2014, 14:09	4
	KendJi, вам один и тот же текстовый файл нужно задублировать? или два разных файла? Сообщение от KendJi не получается теперь сохранить вот так и что не так? 0

@KendJi 0 / 0 / 0 Регистрация: 04.09.2014 Сообщений: 20
	05.09.2014, 15:24 [ТС]	5
	я хочу a b c d + e f g h 0

@dondublon 4632 / 2050 / 361 Регистрация: 17.03.2012 Сообщений: 10,134 Записей в блоге: 6
	05.09.2014, 15:44	6
	Одно и то же имя для двух файлов. 0

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	05.09.2014, 15:46	7
	Объединить файлы и объединить содержимое стринглистов, загруженных содержимым этих файлов, - это не всегда эквивалентные по результату операции. Для объединения именно файлов следует использовать не TStringList, а TFileStream 0

@Sergio Leone 2509 / 1130 / 582 Регистрация: 07.06.2014 Сообщений: 3,286
	05.09.2014, 15:47	8
	KendJi, уже трижды в данной теме было сказано, что в вашем коде открывается два раза ОДИН И ТОТ ЖЕ ФАЙЛ. А нужно (судя по всему) открывать РАЗНЫЕ файлы. 0

@METEOP75 0 / 0 / 0 Регистрация: 21.05.2015 Сообщений: 1
	06.06.2015, 10:39	9
	Используй 2 sOpenDialog 0