Лабораторная работа_файлы. Создание приложения по обработке текстовых файлов. Создание и чтение файла

• Название: Создание приложения по обработке текстовых файлов. Создание и чтение файла
• Дата: 27.03.2018
• Размер: 20.25 Kb.
• Имя файла: Лабораторная работа_файлы.docx
• Тип: Лабораторная работа; #39550

Лабораторная работа

Тема: Создание приложения по обработке текстовых файлов. Создание и чтение файла

Цель: вырабатывать навыки работы с текстовыми файлами в Delphi

Задача:

Создать приложение, на котором располагаются следующие компоненты:

• 
  поле Memo- в которое по команде открыть отображается содержимое текстового файла;
  
• 
  OpenDialog и SaveDialog;
  
• 
  кнопки:
  
  • 
    «Открыть» - для открытия текстового файла;
    
  • 
    «Сохранить» - для сохранения изменений в исходном файле;
    
  • 
    «Сохранить как» - для создания нового текстового файла;
    
  • 
    «Редактировать» - для изменения текстового файла
    
  • 
    «Выход» - для закрытия приложения.
    

Ход работы

1. 
   Добавить на форму компоненты — диалоги OpenDialog и SaveDialog. Предположим, что вы оставили их имена по умолчанию — OpenDialog1 и SaveDialog1. Поскольку после чтения файла вам надо запомнить его имя, чтобы знать под каким именем потом его сохранять, вы можете определить для этого имени переменную, назвав ее, например, FName:
   

Var

FName: string;

2. 
   Тогда обработка команды «Открыть» может сводиться к следующей процедуре:
   

Procedure Tform1Button1Click(Sender:TObject);

Begin

{Процедура вызывает диалог, проверяет, выбрал ли пользователь файл (если выбрал, то функция Execute возвращает true), после чего имя выбранного файла (OpenDialog1.FileName) сохраняется в переменной FName и файл загружается в текст Memo1 методом LoadFromFile}

if OpenDialog1.Execute then

begin

FName:= OpenDialog1.FileName;

Memo1.Lines.LoadFromFile(FName);

end;

3. 
   Обработку команды «Редактировать» выполнить самостоятельно.
   
4. 
   Обработка команды «Сохранить» выполняется следующей процедурой:
   

Procedure Tform1bButton3Click(Sender:TObject);

begin

Memo1.Lines.SaveToFile(FName);

End;

Примечание:

В данном случае нет необходимости обращаться к какому-то диалогу, поскольку имя файла известно: оно хранится в переменной FName.

5. 
   Обработка команды «Сохранить как...» выполняется следующей процедурой:
   

Procedure Tform1Button4Click(Sender:TObject);

{

Begin

SaveDialog1.FileName := FName;

{присваивает свойству FileName компонента SaveDialog1 запомненное имя файла Это имя по умолчанию будет предложено пользователю при открытии диалога Сохранить как....}

if SaveDialog1.Execute then{ если пользователь выбрал в нем файл, запоминает новое имя файла и сохраняет в файле с этим именем текст компонента Memo1.}

begin

FName := SaveDialog1.FileName;

Memo1.Lines.SaveToFile(FName);

end;

6. 
   Обработку команды «Выход» выполнить самостоятельно.
   
7. 
   Оформить отчет выполнения приложения.