Форум: "Основная";
Текущий архив: 2005.08.07;
Скачать: [xml.tar.bz2];

Вниз

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

← →
td   (2005-07-19 14:59) [0]

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

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

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

---

← →
Drakosha ©   (2005-07-19 16:15) [1]

ShellExecute ...

---

← →
td   (2005-07-19 16:42) [2]

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

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

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

что не так?

---

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

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

спасибо

---

← →
SergP.   (2005-07-19 18:20) [4]

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


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?

---

← →
Fay ©   (2005-07-19 18:28) [5]

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.08.07;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.033 c