Текущий архив: 2005.08.07;
Скачать: CL | DM;
Вниз
как скопировать текст из нескольких текстовых файлов в один? Найти похожие ветки
← →
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;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.025 c
