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

[Krjuger]

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

[Krjuger]

Ну чтож я попытался,но не все так прекрасно вышло))))Мне почти удалось переписаль содержимое файлов друг в дружку за исключением пары ньюансов

Хотя не, вру,еще чуть чуть и будет более менее пристойный вариант.

В общем оно вроде работает

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 : string;
 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);

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

 if eof(f) then
  while not eof(g) do
  begin
   BlockRead(g,b,sizeof(byte));
   Blockwrite(f, b,sizeof(byte));
  end;
 if eof(g) then
  while not eof(f) do
  begin
   BlockRead(f, b,sizeof(byte));
   BlockWrite(g, b,sizeof(byte));
  end;

  seek(f,posg); truncate(f);
  seek(g,posf); truncate(g);

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

Не пинайте сильно,принципи можно было бы как то и свести к тому,что мне показывали,но как передать чтобы функция возвращала нужную мне длинну я хз)))реч о read_file : item;

P.S.Несмотря на то,что последняя строчка вне тегов кода,у меня почему то отображается внутри.

Сообщение отредактировано: Krjuger - 25.05.2011 18:17