Лабораторна робота №10

⇐ ПредыдущаяСтр 3 из 3

Лабораторна робота №10

Тема: Складання програм по роботі з текстовими файлами.

Мета: навчитися складати програми по роботі з текстовими файлами в середовищі Delphi.

Обладнання: ПЕОМ.

Хід роботи:

1. Аналіз умови.

2. Розробка алгоритму.

3. Складання програми.

4. Відлагодження програми і висновки.

Виконання роботи:

1. Аналізую умову.

2. Розробляю алгоритм.

Створити текстовий файл з розширенням .txt. Заповнити його декількома рядками.

Завантажити Delphi.

На форму,що з'явилась нанести компоненти Label 5 шт , Edit 1 шт, Button 3 шт, RichEdit 1 шт(Win32), OpenDialog 1 шт, FontDialog 1 шт(Dialogs) .

Розмістити їх згідно рис.1.

Натиснути на Label, в вікні Object Inspector (що знаходиться зліва від форми ), в полі Caption внести відповідні дані, як вказано на рис.2.

Рис.1 Розміщення компонентів на формі

Рис.2 Розміщення компонентів на формі

Для обробки кнопки «Завантажити», клацаємо двічі по ній

Для обробки кнопки «Форматування», клацаємо двічі по ній

Для обробки кнопки «Знайти», клацаємо двічі по ній

Запускаємо нашу форму

Після натискання клавіші «Форматувати» з’являється вікно для редагування тексту, редагуємо текст

3. Складаю програму.

unit Unit11;

interface

uses

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

Dialogs, StdCtrls, ComCtrls;

type

TForm1 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Edit1: TEdit;

Button1: TButton;

Button2: TButton;

Button3: TButton;

RichEdit1: TRichEdit;

dlgOpen1: TOpenDialog;

dlgFont1: TFontDialog;

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);

begin

if dlgOpen1.Execute

then RichEdit1.Lines.LoadFromFile(dlgOpen1.FileName);

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

if dlgfont1.Execute

then RichEdit1.SelAttributes.Assign(dlgFont1.Font);

RichEdit1.SetFocus;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

Find:string; // iskoma9 stroka

i:Integer; //s4et4ik zyklu

begin

Find:=Edit1.Text; //Zapisyvaem v Find tekst iz Edit

for i:=0 to RichEdit1.Lines.Count-1 do // Zapyskaem zykl poiska stroki

if Pos(Find,RichEdit1.Lines.Text)<>0

then

begin

RichEdit1.SetFocus();

RichEdit1.SelStart:=Pos(Find,RichEdit1.Lines.Text)-1;

RichEdit1.SelLength:=Length(Find);

end;

end.

4. Відлагоджую програму:

Висновок: На даній лабораторній роботі мі навчилися складати програми по обробці текстових файлів в середовищі Delphi.

⇐ Предыдущая 1 23