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

[dearkato]

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

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

ну да, но просто мне уже ничего другого на ум уже не идет, да мы только начали писать программы с использованием файлов, так что думаю вариант с WriteLn/ReadLn должен подойти. а вот с файловыми потоками спасибо, сейчас буду разбираться с ними, для меня это еще новое))

[dearkato]

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

посимвольно считывать каждый файл, далее симол переводить в код

ох... не хотелось бы так делать, но идея неплохая, особенно если не использовать третий файл, спасибо за идею)))

[deathNC]

dearkato, да, без третьего файла хорошо, но не просто - стандартными средствами файлы обычно открываются только для чтения, либо только для записи.
Хотя файловый поток можно открыть и для чтения и для записи одновременно:

MyStream := TFileStream.Create('text.txt', fmOpenReadWrite);

Это определяет флаг fmOpenReadWrite, который передаётся конструктор Create класса TFileStream
Если получится, попробую реализовать вашу задачу подобным методом (самому стало интересно)

[Katus]

Сообщение от 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.

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

Уж если писать код, то надо проверять на наличие ошибок =)...то есть

program ChangeFilesNames;
{$APPTYPE CONSOLE}
uses
  SysUtils;
begin
{$I-}
  renamefile('C:\1.txt','C:\tmp.txt');
  renamefile('C:\2.txt','C:\1.txt');
  renamefile('C:\tmp.txt','C:\2.txt');
if IOResult<>0 then
    writeln('Нету файлов))))))');
{$I+}
end.

А так +1

[deathNC]

Блин, ничего умнее я не смог придумать

program FilesReplace;

uses
  SysUtils, Classes;

var
  i1, i2: Integer;
  fl1, fl2: TFileStream;
  buff1, buff2: Array of AnsiChar;

begin
  // считываем
  try
    // первый файл
    fl1 := TFileStream.Create('1.txt', fmOpenRead);
    i1 := fl1.Size;
    SetLength(buff1, i1);
    fl1.Seek(0, soFromBeginning);
    fl1.Read(Pointer(buff1)^, i1);
    // второй файл
    fl2 := TFileStream.Create('2.txt', fmOpenRead);
    i2 := fl2.Size;
    SetLength(buff2, i2);
    fl2.Seek(0, soFromBeginning);
    fl2.Read(Pointer(buff2)^, i2);
  finally
    fl1.Free;
    fl2.Free;
  end;
  // записываем
  try
    fl1 := TFileStream.Create('2.txt', fmCreate or fmOpenWrite);
    fl2 := TFileStream.Create('1.txt', fmCreate or fmOpenWrite);
    fl1.Seek(0, soFromBeginning);
    fl2.Seek(0, soFromBeginning);
    fl1.Write(Pointer(buff1)^, i1);
    fl2.Write(Pointer(buff2)^, i2);
  finally
    fl1.Free;
    fl2.Free;
  end;
end.

Но, в принципе, и это работает. И метод не стандартный

На счёт fmOpenReadWrite я ошибся - его сразу и для чтения и для записи толком не попользуешь

[whatever]

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

Уж если писать код, то надо проверять на наличие ошибок =)...то есть

{$I-}
...
{$I+}
end.

А так +1

Ну тогда уж

program ChangeFilesNames;
{$APPTYPE CONSOLE}
uses
  SysUtils;
begin
  if (not fileexists('C:\1.txt')) and (not fileexists('C:\2.txt')) then
    begin
      writeln('no files!');
      readln;
      halt;
    end;
  renamefile('C:\1.txt','C:\tmp.txt');
  renamefile('C:\2.txt','C:\1.txt');
  renamefile('C:\tmp.txt','C:\2.txt');
end.

А то {$I-} и {$I+} старомодно

А вообще, путь к файлам задается в программе, делать проверку не вижу смысла. Впрочем это дело вкуса.

[deathNC]

whatever, насколько я знаю,

{$I-}
...
{$I+}
end.

проверяют не только существование файла, но и ошибки в чтении/записи. Так что вариант Katus - более правильное решение