| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

объединение текстовых файлов [D7, Win2k]

SLK ©   (2004-09-08 13:01:00) 

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

---

eLVik   (2004-09-08 22:23:00) [1]

AssignFile, Append (F1)

---

wl   (2004-09-08 21:38:00) [2]

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

---

Fay   (2004-09-08 15:06:00) [3]

2 [3] TUser ©   (08.09.04 13:17)
А в чём, собственно, заключается непосредственность?

---

icWasya   (2004-09-08 14:43:00) [4]


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;


---

jack128   (2004-09-08 13:21:00) [5]

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

---

TUser   (2004-09-08 13:17:00) [6]

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

---

Anonimus   (2004-09-08 13:07:00) [7]

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:00) [8]

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

---

Наверх