Пример написания программы

Задание: Записать в текстовой файл содержимое Мемо. Затем прочитать файл и все его строки, начинающиеся на букву "А", записать в другой текстовой файл. Далее прочитать новый файл и вывести его строки в RichEdit.

Интерфейс программы изображен на рис. 8.1, а программа - на листинге 8.1.

Рис. 8.1. Интерфейс программы

Листинг 8.1

unit Unit1;

Interface

Uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ComCtrls, ExtCtrls, StdCtrls, jpeg;

Type

TForm1 = class(TForm)

Memo1: TMemo;

Button1: TButton;

Splitter1: TSplitter;

RichEdit1: TRichEdit;

Button2: TButton;

Image1: TImage;

Label1: TLabel;

Label2: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

Private

{ Private declarations }

Public

{ Public declarations }

End;

Var

Form1: TForm1;

Implementation

{$R *.dfm}

//-----------------------------------------------------------

procedure TForm1.Button1Click(Sender: TObject);

// запись содержимого Мемо в файл

Var

f: TextFile;

i: integer;

Begin

AssignFile(f, 'F.txt');

Rewrite(f);

// записываем построчно содержимое Мемо1

for i:=0 to Memo1.Lines.Count-1 do

writeln(f, Memo1.Lines[i]);

CloseFile(f);

ShowMessage('Данные из Мемо записаны в файл "f.txt" ');

End;

//---------------------------------------------

procedure TForm1.Button2Click(Sender: TObject);

// читаем исходный файл и все строки, начинающиеся на "A",

// и записываем их в другой файл

Var

f,f1: TextFile;

s,t: string;

Begin

AssignFile(f,'F.txt');

Reset(f); // открываем 1-й файл f для чтения

AssignFile(f1,'F1.txt');

Rewrite(f1); // открываем 2-й файл f1 для записи

while not Eof(f) do begin // пока не достигли конца файла f...

ReadLn(f,s);

if s[1] = 'А' then WriteLn(f1,s); // сравниваем с русской буквой "A"

End;

CloseFile(f);

CloseFile(f1);

// открываем 2-й файл f1 для чтения (теперь в этом файле

// все строки начинаются на "A")

S:= '';

AssignFile(f1, 'F1.txt');

reset(f1);

while not Eof(f1) do begin // пока не достигли конца файла f1...

ReadLn(f1, t); // читаем запись

S:= S + t + #13#10; // добавляем запись в обобщенную строку S

End;

CloseFile(f1);

RichEdit1.Text:= S; // выводим обобщенную строку S в RichEdit

End;

//-----------------------------------------

End.

8.5. Индивидуальные задания

Таблица 8.1