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

[Krjuger]

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

[IUnknown]

Даны 2 текстовых файла с произвольной информацией внутри

Ну, текстовые-то они, если откроешь их как текстовые. Их ведь можно открыть и как file of byte, и как file of char... И как бестиповый в конце концов...

Собсвенно интересует,есть ли вобможность незаводя 3 файла сделать такую операцию?

Собственно, почему бы и нет?

Ку? (Показать/Скрыть)

type
  item = char;
  ftype = file of item;

function read_file(var f : ftype) : item;
var buf : item;
begin
  read(f, buf);
  seek(f, filepos(f) - sizeof(item));
  read_file := buf;
end;

procedure write_file(var f : ftype; buf : item);
begin
  write(f, buf);
end;

var
  f, g : ftype;
  b : item;
  posf, posg : longint;
begin
  assign(f, '01.txt'); reset(f);
  posf := filesize(f);
  assign(g, '02.txt'); reset(g);
  posg := filesize(g);

  eoff := false; eofg := false;
  while not eof(f) and not eof(g) do
  begin
    b := read_file(f);
    write_file(f, read_file(g));
    write_file(g, b);
  end;

  if eof(f) then
    while not eof(g) do
    begin
      read(g, b);
      write(f, b);
    end;
  if eof(g) then
    while not eof(f) do
    begin
      read(f, b);
      write(g, b);
    end;

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

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

И еще Readblock и wrihteblock смогут отработать с sizeof(file)?

sizeof(file) - это размер записи, представляющей информацию о файле, а не размер самого файла. Для получения размера файла - FileSize(f)... А Read/Writeblock работают с буфером. Какой выделишь - с тем и будут работать.