Обмен информацией в файлах. Опции

[Krjuger]

Собственно,начал подзабывать язык,решил возродить.
Есть задача.
Даны 2 текстовых файла с произвольной информацией внутри,произвести обмен информацией,что бы в первом была инфа второго,во втором- первого.Использовать ренейм нельзя.Собственно идея такая,завести 3 файл и через него, как буфер(аналогично обмену 2 переменных).Собсвенно интересует,есть ли вобможность незаводя 3 файла сделать такую операцию?
И еще Readblock и wrihteblock смогут отработать с sizeof(file)?

[Krjuger]

У меня "семерка" 64 разрядная,так что запускаю я через Dos box, навыков работы с ним у меня мало(практически нет) все что могу это запустить ту программу,что мне нужна.В общем вместо хелпа он мне выдает кучу всяких иероглифоф в которых разобратсья невозможно,понятно,что надо менять кодировку,но где и как, я не знаю.Когда я пытался запускать ЛИСП он вообще отказывался подключать хелп и говорил,что его нету.

В общем исправил,нормально отработало с файлами на 1 КБ и 84 КБ.Но что то мне кажется,что если оба файла будут больше и их кратность будет больше чем 64кб,то тут возникнут проблемы.
Кстати время выполнения уже становится физически ощутимым.(возможно из-за эмулятора).

type
 TArr= array [0..65528] of byte;
 PArr = ^TArr;

function nod(x,y : longint):longint;
 begin
  if x<>0 then nod:=nod( y mod x, x) else nod:=y;
 end;

var
 f, g :file;
 b,p : PArr;
 posf, posg :longint;
 ser: longint;

begin
 assign(f, '01.txt'); reset(f,Sizeof(byte));
 posf :=filesize(f);
 assign(g, '02.txt'); reset(g,Sizeof(byte));
 posg :=filesize(g);
 ser:=nod(posf,posg);
 GetMem(b,ser        );
 GetMem(p,ser);

 while not eof(f) and not eof(g) do
 begin
  BlockRead(f,b^,ser);
  seek(f,filepos(f)-Sizeof(byte)*ser);
  BlockRead(g,p^,ser);
  seek(g,filepos(g)-Sizeof(byte)*ser);
  BlockWrite(f,p^,ser);
  BlockWrite(g,b^,ser);
 end;

if eof(f) then
  while not eof(g) do
  begin
   BlockRead(g,b^,ser);
   Blockwrite(f, b^,ser);
  end;
 if eof(g) then
  while not eof(f) do
  begin
   BlockRead(f, b^,ser);
   BlockWrite(g, b^,ser);
  end;
  seek(f,posg); truncate(f);
  seek(g,posf); truncate(g);

 FreeMem(b,ser);
 FreeMem(p,ser);

 close(f); close(g);
end.

Сообщение отредактировано: Krjuger - 26.05.2011 21:04