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

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

как скопировать текст из нескольких текстовых файлов в один? [D7]

td ©   (2005-07-19 14:59:00) 

как скопировать текст из нескольких текстовых файлов в один?

например, как досовской командой
copy *.txt 111.txt

может, можно прям ее из делфи?

---

Fay   (2005-07-19 18:28:00) [1]

2 Drakosha ©   (19.07.05 16:15) [1]
2 td   (19.07.05 16:46) [3]
Это не джедайский метод.

---

SergP.   (2005-07-19 18:20:00) [2]

Вот попробовал от нефиг делать написать. Вроде бы работает...


procedure SFile(const DestFile:string; SourceFiles: array of string);
var
 Stream:TStream;
 i:integer;
begin
 with TFileStream.Create(DestFile, fmCreate) do
 try
    for i:=0 to high(SourceFiles) do
    try
      Stream:=TFileStream.Create(SourceFiles[i], fmOpenRead or fmShareDenyWrite);
      CopyFrom(Stream,Stream.Size);
    finally
      Stream.Free;
    end;
 finally
   Free;
 end;
end;


Или нужно все таки ShellExecute или WinExec?

---

td   (2005-07-19 16:46:00) [3]

а-аа
все
cmd c\
надо было добавить

спасибо

---

td   (2005-07-19 16:42:00) [4]

сложная какая-то функция
а winexec не делает то же самое?

не че-то не работает
WinExec(pChar('copy D:\tmp\*.txt D:\tmp\111.txt'),SW_SHOWNORMAL);

если эту же строку написать в командной строке, то работает

что не так?

---

Drakosha   (2005-07-19 16:15:00) [5]

ShellExecute ...

---

Наверх