copy filres to one

[murad59]

Здравствуйте!
Подскажите, пожалуйста, как в Делфи сделать аналог дос команды
copy file1 n+ file2 + file3 (+ ...) file_res
Другими словами, объединить несколько файлов в один копированием.
Спасибо!

[NetSpace]

1) пишем процедуру копирования файла из папки в папку:
Copy(File_Name,Dir_Out, Dir_Input)
3) формируем список файлов в какой-то массив Name[i]
3) в цикле перебираем имена файлов для копирования:

for i:=1 to N do
begin
   Copy(Name[i],исходная папка, конечная папка);
end;

------------
ну, либо как-то действительно несколько файлов объединять в один большой файл, копировать и обратно разъединять в конечной папке.
-------------
архивировать, копировать, разархивировать?

[Arigato]

Вариант реализации на TFileStream:

uses
  System.Classes, System.SysUtils;

procedure MergeFiles(const SourceFiles: array of string; const DestinationFile: string);
var
  DestStream: TFileStream;
  SrcStream: TFileStream;
  Buffer: array[0..4095] of Byte; // Буфер для чтения
  BytesRead: Integer;
  FileName: string;
begin
  // Создаем поток для файла назначения
  DestStream := TFileStream.Create(DestinationFile, fmCreate);
  try
    for FileName in SourceFiles do
    begin
      // Открываем каждый исходный файл для чтения
      SrcStream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
      try
        // Копируем содержимое исходного файла в файл назначения
        repeat
          BytesRead := SrcStream.Read(Buffer, SizeOf(Buffer));
          if BytesRead > 0 then
            DestStream.Write(Buffer, BytesRead);
        until BytesRead = 0;
      finally
        SrcStream.Free;
      end;
    end;
  finally
    DestStream.Free;
  end;
end;

procedure TestMergeFiles;
begin
  // Объединяем файлы file1.txt, file2.txt, и file3.txt в result.txt
  MergeFiles(['file1.txt', 'file2.txt', 'file3.txt'], 'result.txt');
end;

begin
  try
    TestMergeFiles;
    Writeln('Файлы успешно объединены!');
  except
    on E: Exception do
      Writeln('Ошибка: ', E.Message);
  end;
end.