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

← →
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?

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