Проблема чтения и сохранения файла в Delphi: пошаговое решение

Delphi , Интернет и Сети , Браузер

Приветствую, разработчики! В данной статье мы рассмотрим проблему, с которой сталкиваются начинающие программисты на Delphi при работе с файлами. На примере кода, который некорректно считывает и сохраняет текст из файла, мы шаг за шагом разберемся, как правильно организовать процесс чтения и записи в файл, используя объекты TextFile.

Пример кода и проблема

Рассмотрим код, который должен открыть диалоговое окно для выбора файла, затем создать копию этого файла с измененным содержимым и сохранить результат:

procedure TForm1.btnOpenFileCClick(Sender: TObject);
var
    origFile, myFile: TextFile;
    OpenDialog1: TOpenDialog;
    sOrigFileName, sNewFileName, sLine, sNewLine: String;
begin
    // Выбор файла пользователем
    OpenDialog1 := TOpenDialog.Create(self);
    OpenDialog1.Filter := '*.txt';
    if OpenDialog1.Execute then
    begin
        sOrigFileName := OpenDialog1.FileName;
        AssignFile(origFile, sOrigFileName);
    end;
    // ...
    // Остальная часть кода...
end;

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

Пошаговое решение

Для начала, давайте исправим основные ошибки в коде:

1. Использование Rewrite: Команда Rewrite должна быть вызвана до начала цикла чтения файла, чтобы указать, что файл будет перезаписан.

2. Чтение файла: Цикл чтения файла должен продолжаться до тех пор, пока не будет достигнут конец файла.

3. Закрытие файлов: Для корректного завершения работы с файлами необходимо вызвать CloseFile для каждого открытого файла.

4. Управление ресурсами: Важно освободить ресурсы, такие как диалоговое окно, чтобы избежать утечек памяти.

Вот исправленный вариант кода:

procedure TForm1.btnOpenFileCClick(Sender: TObject);
var
    origFile, myFile: TextFile;
    OpenDialog1: TOpenDialog;
    sOrigFileName, sNewFileName, sLine, sNewLine: String;
begin
    // Использование одного экземпляра TOpenDialog для избежания утечек
    if not Assigned(OpenDialog1) then
        OpenDialog1 := TOpenDialog.Create(nil);
    try
        OpenDialog1.Filter := '*.txt';
        if not OpenDialog1.Execute then
            Exit;
        sOrigFileName := OpenDialog1.FileName;
    finally
        OpenDialog1.Free;
    end;
    // ...
    // Создание пути к новому файлу
    sNewFileName := sOrigFileName + '.B.BACKWARDS.TXT';
    DeleteFile(sNewFileName);
    // Открытие файлов
    AssignFile(origFile, sOrigFileName);
    AssignFile(myFile, sNewFileName);
    try
        Reset(origFile);
        Rewrite(myFile);
        // Чтение и запись файлов с переворотом строк
        while not Eof(origFile) do
        begin
            Readln(origFile, sLine);
            sNewLine := AnsiReverseString(sLine);
            Writeln(myFile, sNewLine);
        end;
    finally
        CloseFile(myFile);
        CloseFile(origFile);
    end;
end;

Альтернативные подходы

В современном программировании на Delphi рекомендуется использовать более продвинутые классы, такие как TStreamReader и TStreamWriter, которые обеспечивают более низкое потребление памяти, особенно при работе с большими файлами:

procedure TForm1.btnOpenFileCClick(Sender: TObject);
var
    origStream, myStream: TStream;
    OpenDialog1: TOpenDialog;
    sOrigFileName, sNewFileName, sLine: String;
begin
    // ...
    // Код для открытия файла и создания потоков
    origStream := TFileStream.Create(sOrigFileName, fmOpenRead or fmShareDenyNone);
    try
        myStream := TFileStream.Create(sNewFileName, fmCreate or fmShareDenyNone);
        try
            // Чтение и запись с переворотом строк
            while not origStream.Eof do
            begin
                sLine := origStream.ReadAnsiString(origStream.Size - origStream.Position);
                myStream.WriteAnsiString(AnsiReverseString(sLine));
            end;
        finally
            myStream.Free;
        end;
    finally
        origStream.Free;
    end;
end;

Или использовать TStringList, который очень удобен для манипуляции текстом, но может потреблять много памяти для больших файлов:

procedure TForm1.btnOpenFileCClick(Sender: TObject);
var
    myFile: TStringList;
    OpenDialog1: TOpenDialog;
    sOrigFileName, sNewFileName, sLine, sNewLine: String;
    I: Integer;
begin
    // ...
    // Код для открытия файла
    myFile := TStringList.Create;
    try
        myFile.LoadFromFile(sOrigFileName);
        // Переворот строк
        for I := 0 to myFile.Count-1 do
        begin
            sLine := myFile[I];
            sNewLine := AnsiReverseString(sLine);
            myFile[I] := sNewLine;
        end;
        // Сохранение файла
        myFile.SaveToFile(sNewFileName);
    finally
        myFile.Free;
    end;
end;

Выбор подхода зависит от конкретных требований задачи и доступных ресурсов системы.

Создано по материалам из источника по ссылке.

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

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Браузер ::