Слияние двух бинарных файлов

[kakawkin]

Вот есть программа:

program tt;
var
  f1, f2: file;
  xfer: Word;
  buf: PChar;
begin
  Assign(f1, '1.exe');
  Reset(f1);
  Seek(f1, Filesize(f1));
  Assign(f2, '2.exe');
  Reset(f2);
  GetMem(buf, 65000);
  repeat
    BlockRead(f1, buf^, 65000, xfer);
    BlockWrite(f2, buf^, xfer);
  until
    xfer < 65000;
  Close(f1);
  Close(f2);
end;

Ложу в папку файлы: 1.exe 2.exe program.exe (program - скомпилированная программа для слияния)
1.exe - 1 мегабайт
2.exe - 2 мегабайт
при запуске program.exe размеры не меняются вообще ни у одного файла

В чём может быть проблема ?

[russian-stalker]

Reset - открытие на чтение. Вам нужно наверное append.

[kakawkin]

вот как написано:
procedure Append(var f:text)
а у меня то f1:file;

[russian-stalker]

без разницы=)

[kakawkin]

не прёт просто напросто - ругается на именно это.

[kakawkin]

всё - решено. нехватало Reset(f1); --> Reset(f1, 1);

[Grag]

А ты куда устанавливаешь файловый указатель?
Seek(f1, Filesize(f1));
И что после этого читаешь из первого файла?

[kakawkin]

это тоесть ставить указатель на самый последний байт файла чтоыб со второго всё копирнуть в конец первого