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

← →
SLK (2004-09-08 13:01) [0]

Как в Delphi объединить (слить) два или более текстовых файла.

← →
Anonimus (2004-09-08 13:07) [1]

var ss1,ss2: TStrings;

ss1.loadfromfile("file1.txt");
ss2.loadfromfile("file3.txt");
for i:=0 to ss2.ictems.count-1 do
ss1.add(ss2.items.strings[i]);
ss1.savetofile...

Ногами прошу сильно не пинать, имена свойств могут быть неверными

← →
Vasya.ru (2004-09-08 13:07) [2]

читаешь данные из одного, записываешь в конец другого, если я правильно вопрос понял

← →
TUser © (2004-09-08 13:17) [3]

Я бы делал непосредственно через TFileStream.

← →
jack128 © (2004-09-08 13:21) [4]

TUser © (08.09.04 13:17) [3]
только не забыть убедиться, что в конце первого файла есть #13#10 и если нужно добавить..

← →
icWasya © (2004-09-08 14:43) [5]

var ss1,ss2: TStrings; begin ss1:= TStringList.Create; ss2:= TStringList.Create; try ss1.Clear; ss2.loadfromfile("file1.txt"); ss1.AddStrings(ss2); ss2.loadfromfile("file2.txt"); ss1.AddStrings(ss2); ss2.loadfromfile("file3.txt"); ss1.AddStrings(ss2); ss1.savetofile("fileAll.txt"); finally ss1.free; ss2.free; end; end;

← →
wl (2004-09-08 21:38) [7]

>Fay © (08.09.04 15:06) [6] [Новое сообщение]
может быть в том что не нужно читать первый файл в память? ускорение какой-никакое

AssignFile, Append (F1)

объединение текстовых файлов Найти похожие ветки