работа с файлами в дельфи

[dearkato]

Даны символьные файлы f1 и f2. Поменять местами содержимое файлов не используя стандартных процедур.

[deathNC]

dearkato, что в Вашем понимании "стандартные процедуры"?
Если ответите, помогу с задачей

[dearkato]

Сообщение от deathNC

dearkato, что в Вашем понимании "стандартные процедуры"?
Если ответите, помогу с задачей

стандартные - то есть встроенные. такие как, например, в строках - удаление элемента, конкатинация, автоматический подсчет длины строки и т.д., также стандартными являются dec,inc,pred,suc. и из этого следует, что стандартными также будут write,writeln,read,readln, без которых как мне кажется решить эту задачу будет очень сложно

[whatever]

Есть у меня идейка, правда хз, оценит препод, или нет :D

program ChangeFilesNames;
{$APPTYPE CONSOLE}
uses
  SysUtils;
begin
  renamefile('C:\1.txt','C:\tmp.txt');
  renamefile('C:\2.txt','C:\1.txt');
  renamefile('C:\tmp.txt','C:\2.txt');
end.

Думаю идея понятна. Вместо текстовиков пишешь нужные файлы.

[deathNC]

whatever, хитро
Хотя преподаватель ТС вряд ли это оценит. Он (преподаватель) не поймёт,что тут написано

dearkato, а BlockRead - это тоже стандартная процедура?

[whatever]

Сообщение от deathNC

whatever, хитро
Хотя преподаватель ТС вряд ли это оценит. Он (преподаватель) не поймёт,что тут написано

Ну преподы сами ставят такие условия. "Забей гвоздь не пользуясь руками, ногами и головой". Вообще, мне бы было интересно, какое решение предполагалость.

Сообщение от deathNC

dearkato, а BlockRead - это тоже стандартная процедура?

Думаешь препод это знает ?

[deathNC]

whatever, хотя, ты прав :D
А хотя, может преподу и самому интересно. И решение он не знает

[dearkato]

deathNC, думаю с blockread будет уже слишком заумно, наверное в этой задаче имелось ввиду использовать не готовые процедуры для замены содержимого двух файлов, а через write и read.

я нашла такой вариант для решения данной задачи:

const
  a='aaa.txt';
  b='bbb.txt';
  c='ccc.txt';
 
var
  z,x,v: text;
  st: string;
 
begin
  assign(z,a);
  assign(x,c);
  reset(z);
  rewrite(x);
  while not eof(z) do
    begin
      readln(z,st);
      writeln(x,st);
    end;
  close(z);
  close(x);
  assign(v,b);
  assign(z,a);
  reset(v);
  rewrite(z);
  while not eof(v) do
    begin
      readln(v,st);
      writeln(z,st);
    end;
  close(v);
  close(z);
  assign(x,c);
  assign(v,b);
  while not eof(x) do
    begin
      readln(x,st);
      writeln(v,st);
    end;
  close(x);
  close(v);
end.

[deathNC]

dearkato, но Вы же писали, что WriteLn/ReadLn - это стандартные процедуры.
Есть ещё файловые потоки - TFileStream

var
  Stream1, Stream2: TFileStream;
begin
  try
    Stream1 := TFileStream.Create('a.txt', fmOpenRead);
    Stream2 := TFileStream.Create('temp.txt', fmCreate or fmOpenWrite);
    Stream2.Seek(0, soFromEnd);
    Stream2.CopyFrom(Stream1, Stream1.Size);
    Stream1.Free;
    Stream2.Free;
    Stream1 := TFileStream.Create('b.txt', fmOpenRead);
    Stream2 := TFileStream.Create('a.txt', fmCreate or fmOpenWrite);
    Stream2.Seek(0, soFromEnd);
    Stream2.CopyFrom(Stream1, Stream1.Size);
    Stream1.Free;
    Stream2.Free;
    Stream1 := TFileStream.Create('temp.txt', fmOpenRead);
    Stream2 := TFileStream.Create('b.txt', fmCreate or fmOpenWrite);
    Stream2.Seek(0, soFromEnd);
    Stream2.CopyFrom(Stream1, Stream1.Size);
  finally
    Stream1.Free;
    Stream2.Free;
  end;
end;

Накалякал спросони, но вроде должно работать

[NetSpace]

есть такая маленькая задача в логике: как поменять значения двух переменных, не используя третью переменную.
и вот решение.

b:=b-a;
a:=b+a;
b:=a-b;

но если вам препод скажет, что нельзя использовать третий файл, то можно просто посимвольно считывать каждый файл, далее симол переводить в код (скажем буква 'я' ->255), менять коды местами (смотрим код вверху) и обратно записывать в файлы. и так до конца перебрать все символы в файлах