Всё для Учёбы — студенческий файлообменник
1 монета
doc

Лабораторная № 19 «Диалоговые окна» по Информатике (Попов Д. И.)

Московский Государственный Университет Печати

Кафедра информатики и вычислительной техники

Отчет

по лабораторной работе №19

на тему диалоговые окна

Выполнила:

студент группы ДЦим-1-1

Смирнова Татьяна Михайловна

дата сдачи

дата защиты

принял оценка

замечания

I. Цель работы: Создать приложение позволяющее работать при помощи меню с файлами (сохранять и открывать их), содержащими строки. Написать обработчик события по сортировке строк в файле.

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

Напишем словесное описание алгоритма:

1. Для открытия файла:

Если файл выбран, то считать из него текст и вывести его в поле, иначе очистить поле.

2. Для сохранения файла:

Если файл выбран, то сохранить в него текст.

3. Для сортировки строк:

-Создать лист строк

-От 0 до последней -1 строки скопировать текст в лист строк

-Очистить поле -Сортировать лист строк

-Перенести его в поле

-Освободить лист строк.

Нарисуем блок схему процедур:

1. Для открытия файла: 2. Для сохранения файла:

2. Для сортировки строк:

III. Разработка программы.

unit Unitlaba19;

interface uses

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

Dialogs, StdCtrls, Menus;

type

TForm1 = class(TForm)

OpenDialog1: TOpenDialog;

SaveDialog1: TSaveDialog;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

Memo1: TMemo;

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N5Click(Sender: TObject);

private { Private declarations }

public { Public declarations }

end;

var Form1: TForm1;

implementation

{$R *.dfm} procedure TForm1.N2Click(Sender: TObject);

begin

if opendialog1.Execute then

memo1.Lines.LoadFromFile(openDialog1.filename)

else memo1.lines.Clear;

end;

procedure TForm1.N3Click(Sender: TObject);

begin if savedialog1.Execute then

memo1.LineS.savetofile(savedialog1.filename);

end;

procedure TForm1.N5Click(Sender: TObject);

var str:tstringlist; i:integer;

begin str:=TStringList.create;

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

str.Add(memo1.Lines[i]);

str.SORT; memo1.Lines.Clear;

for i:=0 to str.count-1 do

memo1.LineS.add(str[i]);

str.Free; end;

end. IV. Скриншоты работы программы.

Показать полностью…
Похожие документы в приложении