Пример выполнения задания к лабораторной работе

Задание: создать программу, в которой содержимое текстового файла SYM переписывается в текстовый файл DYM без пробелов. Ввод данных файла SYM и вывод содержимого файла DYM (после нажатия кнопки Enter) осуществляется посредством компонента TMemo.

Активная форма программы

Листинг модуля программы

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Label1 : TLabel;

Memo1 : TMemo;

procedure Memo1KeyPress(Sender: TObject; var Key: Char);

private{ Private declarations }

public{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);

var

f, g : TextFile;

x : Char;

s : String;

begin

if Key=#13

then

begin

s := '';

AssignFile(f,'C:\sym.txt');

//Правильно укажите каталог, в котором хотите создать файл

Rewrite(f);

write(f,Memo1.Text); //Запись в файл sym.txt

CloseFile(f);

Label1.caption := 'Содержимое файла DYM: ';

Memo1.Clear;

AssignFile(g,'C:\dym.txt');

rewrite(g);

reset(f);

while not eof(f) do // Cодержимое файла SYM переписывается в файл DYM без пробелов

begin

read(f,x);

if x<>#32

then

write(g,x);

end;

CloseFile(g);

CloseFile(f);

reset(g);

while not eof(g) do // Переменной S //присваивается содержимое файла DYM

begin

read(g,x);

s:=s+x;

end;

Memo1.Lines.Add(s);//Вывод переменной s в поле окна Memo1

CloseFile(g);

end;

end; { TForm1.Memo1KeyPress }

end.

Контрольные вопросы

1. Что такое файл с точки зрения языке программирования?

2. Какие типы файлов могут использоваться в программе?

3. Как открыть файл для записи?

4. Как открыть файл для чтения?

5. Для чего необходимо использовать процедуру закрытия файла?

6. Какие компоненты удобно использовать для работы с файлами?

Варианты заданий

1	Создать программу, в которой в файл SYM вводятся текстовые данные, а в файл DYM выводится отчет о количестве встречающейся в файле SYM заданной буквы. Название буквы задается в рабочем окне программы с помощью компонента типа TEdit.
2	Создать программу, в которой в файл SYM вводятся числовые данные, а в файл DYM вносятся сведения о сумме всех чисел файла SYM.
3	Создать программу, в которой в файл SYM вводятся числовые данные, а в файл DYM выводятся упорядоченные по возрастанию данные файла SYM.
4	Создать программу, в которой в файл SYM вводятся числовые данные, а в файл DYM выводятся зеркально отраженные данные файла SYM.
5	Создать программу, в которой в файл SYM вводятся несколько строк текстовой информации, а в файл DYM заносится отчет о количестве строк в файле SYM.
6	Создать программу, в которой в файл SYM вводятся текстовые данные, а в файл DYM копируются данные файла SYM, но после определенной буквы добавляется фраза «Текстовый файл». Название буквы задается в рабочем окне программы с помощью компонента типа TEdit.
7	Создать программу, в которой в файлы SYM и DYM вводятся данные, а затем содержимое обоих файлов меняем местами.
8	Создать программу, в которой в файл SYM вводятся текстовые данные, а в файл DYM копируется первая строка файла SYM.
9	Создать программу, в которой в файл SYM вводятся текстовые данные, а в файл DYM копируются данные файла SYM, но определенная буква заменяется пробелом. Название буквы задается в рабочем окне программы с помощью компонента типа TEdit.
10	Создать программу, в которой в оба файла заносятся данные, затем содержимое файла SYM добавляется в конец файла DYM.