Диалоги открытия и сохранения файлов

Размещено на http://www.allbest.ru

Размещено на http://www.allbest.r

1. ОБЩАЯ ЧАСТЬ

1.1 Работа с диалогом открытия файлов OpenDialog

На вкладке палитры компонентов Dialogs находятся компонент Delphi OpenDialog и компонент Delphi SaveDialog. Все Delphi диалоги, находящиеся на этой вкладке, в том числе и Delphi диалоги выбора файла, невизуальные, т.е. при переносе их на Форму в работающей программе их не видно, они видны только на этапе конструирования. Компонент Delphi OpenDialog позволяет открыть в нашей программе стандартное Windows-окно диалога открытия файла, компонент Delphi SaveDialog - окно диалога сохранения.

Delphi диалоги выбора файла сами по себе ничего не делают, а только предоставляют настройки, сделанные пользователем при выборе файла. Самый важный метод Delphi диалогов - Execute. Он срабатывает в момент нажатия кнопки "открыть" или "сохранить" в окне выбора файла.

1.2 Работа с диалогом открытия OpenPictureDialog

Компонент Delphi OpenPictureDialog располагается на странице Dialogs Палитры компонентов. Он также как и компонент OpenDialog вызывает диалог открытия файла, но только он имеет более узкое направление работы, а именно с графическими файлами. По внешнему виду он отличается наличием в правой стороне зоны предварительного просмотра картинок и наличием предустановленного значения свойства Filter.

Свойство Filter, по умолчанию, установлено для показа графических файлов следующих форматов:

JPEG файлы расширение - *.jpg;

JPEG файлы расширение - *.jpeg;

Растровое изображение расширение - *.bmp;

Значок расширение - *.ico;

Метафайл расширенного формата расширение - *.emf;

Метафайл расширение - *.wmf;

1.3 Работа с диалогом сохранения файлов SavePictureDialog

Компонент Delphi SavePictureDialog располагается на странице Dialogs Палитры компонентов. Этот диалог предназначен для сохранения графических файлов. По внешнему виду и функциональности он вобрал в себя свойства и методы компонентов Delphi OpenPictureDialog и SaveDialog.

Чтобы лучше понять его работу создадим приложение (показано на рисунке) состоящее из 2-х кнопок, компонентов OpenPictureDialog и SavePictureDialog и компонента Image. Напишем следующий код для наших двух кнопок:

procedure TForm1.Button1Click(Sender: TObject);

// код кнопки открывающей файл

begin

if OpenPictureDialog1.Execute then

Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);

end;

procedure TForm1.Button2Click(Sender: TObject);

// код кнопки сохраняющей файл

begin

if SavePictureDialog1.Execute then

Image1.Picture.SaveToFile(SavePictureDialog1.FileName);

end;

Нажав на кнопку Открыть мы сможем загрузить картинку и нажав на кнопкуСохранить создать новый файл с нашей картинкой.

Итог: мы получили представление о компоненте SavePictureDialog.

1.4 Выбор шрифта FontDialog

Компонент Delphi FontDialog располагается на странице Dialogs Палитры компонентов. C его помощью можно настроить характеристики шрифта для любых визуальных компонентов.

Выбор параметров диалогового компонента FontDialog происходит в следующем окне (см. рисунок внизу).

Выбор шрифта, его начертание, размер и цвет устанавливается интуитивно просто согласно выбранных значений. Основные свойства компонента следующие:

Font - задает характеристики шрифта, которые определяются его подсвойствами. Такими как Name, Color, Size.

MaxFontSize - задает в диалоге максимальный размер шрифта. Активен если параметр fdLimitSize установлен в TRUE.

MinFontSize - задает в диалоге минимальный размер шрифта. Активен если параметр fdLimitSize установлен в TRUE.

Device - указывает для какого устройства устанавливается шрифт. Его значение может быть равно: fdScreen (вывод осуществляется на экран), fdPrinter (вывод осуществляется на принтер) и fdBoth (вывод осуществляется на экран и принтер).

Свойство Option используется для настройки различных параметров диалога их более пятнадцати. Наиболее важные это:

fdEffects - устанавливает видимость переключателей зачеркнутый и подчеркнутый.

fdLimitSize - с помощью него устанавливается размер диапазона шрифтов размером от MaxFontSize до MinFontSize.

fdTrueTypeOnly - выводятся в списке только шрифты TrueType.

fdWysiwyg - выводятся в списке шрифты доступные одновременно для экрана и принтера.

1.5 Выбор цвета ColorDialog

Компонент Delphi ColorDialog (диалог выбора цвета) располагается на вкладке Dialog Палитры Компонентов. C его помощью можно задать цвет любого визуального компонента.

Выбор цвета осуществляется с помощью диалогового окна, показанного выше. Первоначально окно состоит из левой половины и мы можем выбрать "Основные цвета". При необходимости мы можем задать "Дополнительные цвета". Для этого нажимаем кнопку "Определить цвет" и перед нами появиться вторая, правая половина нашего диалогового окна, в котором выбрав визуально интересующий нас цвет нажимаем кнопку "Добавить в набор".

Цвет выбранный пользователем, основное свойство данного компонента, определяется свойством Color. Свойство Color можно задать на этапе проектирования в Инспекторе Объектов или же программно.

С помощью свойства CustomColors можно задать цвета дополнительной палитры. Цвета задаются строками:

порядковый номер цвета = шестнадцатеричное представление цвета;

порядковый номер цвета - ColorA (первый цвет) и далее до СщдщкЗ(последний шестнадцатый цвет). Для примера строка

ColorA = 909090

задаст первый цвет и он будет серый.

Свойство Options состоит из следующего множества опций:

cdFullOpen - мы будим видим сразу же при открытии диалогового окна обе панели, как на рисунке вверху;

cdPreventFullOpen - кнопка "Определить цвет" будет недоступной (серого цвета) и как следствие мы не сможем вызвать правую панель для определения цвета;

cdShowHelp - справа, после кнопки отмена в диалоговом окне появиться кнопка "Справка";

sdSolidColor - дается указание использовать ближний к выбранному сплошной цвет, что уменьшает палитру;

cdAnyColor - tcnm возможность выбрать не сплошные цвета.

1.6 Выбор цвета ColorBox

Компонент Delphi ColorBox (Выбор цвета) расположен на странице Additional Палитры компонентов. Он представляет собой раскрывающийся список в котором мы можем задать необходимый нам цвет (слева расположен квадратик с образцом цвета, а справа название цвета по английски плюс приставка cl).

Если нам не будет хватать цветов, то можно будет создать свой. Для этого в свойстве Style выбрать подствойство cbCustomColor и установить его в TRUE.

Определить какой сейчас задан цвет мы можем с помощью свойства Selected.

Основные свойства и методы, событий такие же как у компонента ComboBox. В свойстве Items типа TStrings содержится список всех строк. Если нам при создании формы необходимо сделать видимым выбор определенного цвета, например красный цвет, то это можно сделать задав такой обработчик формы OnCreate:

procedure TForm1.FormCreate(Sender: TObject);

begin

ColorBox1.ItemIndex := ColorBox1.Items.IndexOf('clRed');

end;

1.7 Создание текстового файла

Рассмотрим пример:

procedure TForm1.Button1Click(Sender: TObject);

Var f:TextFile; // указатель на текстовый файл

begin

AssignFile(f,'c:\1.txt'); // привязка названия к переменной

{$I-}

Append(f); // открыть файл для добавления

if IOResult<>0 then // если ошибка открытия (напр. файла нет)

begin

{$I-}

Rewrite(f); // создать новый файл

{$I+}

if IOResult<>0 then // ошибка создания файла

begin

ShowMessage('Ошибка создания файла C:\1.TXT');

Exit;

end;

end;

WriteLn(f,'Привет'); // запись в файл строки с символами перевода строки

CloseFile(f); // закрыть файл

end;

Процедура Append(Файл) открывает файл для записи и устанавливает указатель записи в конец файла, т.е. все добавляемые к файлу строки будут записаны в конец файла.

В нашем случае в самом начале файла 1.txt может не оказаться на диске, поэтому команда открытия файла для добавления вызовет ошибку. В этом случае срабатывает наш собственный контроль ошибок и выполняется команда создания файла.

1.8 Ввод и вывод данных;Процедуры и функции для работы с типизированными файлами

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

- окна ввода

- полей ввода диалогового окна

- файла.

Ввод из окна ввода

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

Переменная:= InputBox(Заголовок, Подсказка, Значение);

Переменная - это идентификатор переменной строкового типа, значение которой должно быть получено из окна ввода.

Заголовок - текст заголовка Окна ввода.

Подсказка - текст поясняющего значения

Значение - текст, находящийся в поле ввода в момент появления окна ввода на экране.

Например, в программе вычисления площади поверхности шара ввод величины радиуса шара может выглядеть так:

S:= InputВох('Вычисление площади поверхности шара', 'Введите радиус шара, мм','');

Следует иметь в виду, что значение функции InputBox строкового (String) типа. Поэтому если программе требуется получить значение числового типа, то введенная строка должна быть преобразована в число при помощи соответствующей функции преобразования.

Ввод из поля редактирования

Для ввода из поля редактирования надо поместить на форму экземпляр компонента Edit страницы Standartпалитры компонентов.

Ввод данных из поля редактирования осуществляется обращением к свойству Text этого поля, т.е. Edit1.Text

Следует иметь в виду, что свойство Техt представляет собой строку.

Вывести результат программа может в окно сообщения, в поле вывода диалогового окна, в файл и на устройство печати (принтер).

Вывод в окно сообщения

Вывод в окно сообщения может быть выполнен вызовом процедуры ShowMessage или функции MessageDlg.

Процедура ShowMessage(const:String) - отображает окно сообщения с кнопкой ОК. Заголовок содержит имя исполняемого файла приложения, а строка const выводится как текст сообщения. В общем виде вызов процедуры ShowMessage выглядит так:

ShowMessage(Сообщение)

Сообщение - выражение строкового типа.

Заголовок окна сообщения, выводимого процедурой ShowMessage, по умолчанию совпадает с именем исполняемого файла приложения.

Функция MessageDlg(const:String, Type, Buttons, Help): Word - отображает окно сообщения в центре экрана и позволяет получить ответ пользователя. Параметр const содержит текст сообщения.

Type - это тип окна сообщения. Может принимать следующие значения: mtWarning (восклицательный знак в желтом треугольнике); mtError (белый крест в красном круге); mtInformation (буква «i» в белом круге);mtConfirmation (синий знак «?» в белом круге); mtCustom (не содержит картинки и в заголовке выводиться название исполняемого файла).

Button - это набор кнопок:

- mbYes - отображает кнопку Yes;

- mbNo - отображает кнопку No;

- mbOK - отображает кнопку OK;

- mbCancel - отображает кнопку Cancel;

- mbAbort - отображает кнопку Abort;

- mbRetry - отображает кнопку Retry;

- mbIgnore - отображает кнопку Ignore;

- mbAll - отображает кнопку All;

- mbNoToAll - отображает кнопку No to all;

- mbYesToAll - отображает кнопку Yes to all;

- mbHelp - отображает кнопку Help.

Эти значения задаются в квадратных скобках разделённых запятой.

Delphi обеспечивает множество предопределенных комбинаций кнопок:

- mbYesNoCancel = [mbYes, mbNO, mbCancel];

- mbYesAllNoAllCancel = [mbYes, mbYesToAll, mbNo, mbNoToAll, mbCancel];

- mbOKCancel = [mbOK, mbCancel];

- mbAbortRetryCancel = [mbAbort, mbRetry, mbCancel];

- mbAbortIgnore = [mbAbort, mbIgnore].

Вместо того, чтобы определить перечисляемое значение нажатой кнопки, используется полностью различный набор перечисляемых имён:

- mrYes = 6

- mrNo = 7

- mrOK = 1

- mrCancel = 2

- mrAbort = 3

- mrRetry = 4

- mrIgnore = 5

- mrAll = 8

- mrNoToAll = 9

- mrYesToAll = 10

Help - это справка, которая появляется во время отображения диалогового окна при нажатии пользователем клавиши F1. Обычно значение равно 0.

Пример:

rez:=MessageDlg('деление на НОЛЬ!!!',mtError, mbOKCancel, 0);

if rez=mrOk then Edit3.Text:='число 0';

end;

Пример:

Var

buttonSelected : Integer;

begin

buttonSelected := MessageDlg('Custom dialog',mtCustom, [mbYes, mbAll, mbCancel], 0);

if buttonSelected = mrYes then ShowMessage('Была нажата Yes');

if buttonSelected = mrAll then ShowMessage('Была нажата All');

if buttonSelected = mrCancel then ShowMessage('Была нажата Cancel');

end;

Функция MessageDlg позволяет сопроводить сообщение одним из стандартных значков Windows, например значком «Внимание», задать количество и тип командных кнопок.

Вывод в поле диалогового окна

Часть диалогового окна, предназначенная для вывода информации, называется полем вывода или полем метки. Для вывода в поле диалогового окна надо поместить на форму экземпляр компонента Label страницыStandart Палитры компонентов.

Вывод данных в поле метки осуществляется обращением к свойству Caption этого поля, т.е. Labell.Caption, которое является переменной строкового типа.

Например, чтобы в поле вывода появился текст, достаточно написать:

Label1.Caption:- 'Значение функции равно' + FloatToStr(y);

1.9 Типизированные файлы

Работа с типизированными файлами в Delphi

Здравствуйте, в этой статье хотел бы поговорить о работе с типизированными файлами, я уже публиковал статьи, где применял их, ну так, чтобы для более понять темы по созданию тестов, по сохранению и считыванию данных TStringGrid. Давайте сначала подумаю, а что такое вообще типизированные файлы, да правильно -- это те файлы, которые имеют определенный тип и мы изначально знаем их структуру. Для работы с типизированными файлами применяются следующие функции и процедуры

AssignFile(F,'test.dat') -- связывает файловую переменную с именем файла, параметры передаваемые -- файловая переменная и путь к файлу

Rewrite(F) -- создает файл, параметры -- файловая переменная, необязательные -- режим создания

Reset(F) -- открывает файл, то есть подрузумевается в том, что мы как бы ставим файл в режим открытия, чтения (в общем если файл имеется на диске или еще каком-то носителе и нам из него необходимо прочитать информацию, то тут без этой функции не обойтись).

Seek (F,n) -- устанавливает указатель в файле на нужную компоненту, параметры -- файловая переменная, номер компоненты на которую необходимо переместиться.

Write(F,Buf) -- записывает компоненту в файл, параметры -- файловая переменная, запись с данными

Read(F,Buf) -- считывает компоненту из файла, на которой стоит указатель (по умолчанию на первой), параметры -- файловая переменная и запись, в которую необходимо считать данные

EOF(F) -- определяет достигнут ли конец файла (указатель конца файла), параметры -- файловая переменная

Truncate(F) -- удаляет компоненту в файле, параметры -- файловая переменная, перед этим необходимо установить указатель на компоненту, которую необходимо удалить

FileSize(F) -- определяет количество компонентов в файле, параметры -- файловая переменная, возвращает целочисленный тип

CloseFile(F) -- закрывает файл, параметры -- файловая переменная. Это как бы необязательная функция, но просто принято так, если открыл, то закрой его за собой.

Вот основные функции по работе с типизированными файлами. Многие из низ подходят для работы с текстовыми файлами.

1.10 Обработка исключительных данных

Исключительные ситуации в Delphi встречаются постоянно. Исключительная ситуация это такая ситуация, в результате которой генерируется ошибка, и выполнение программы прерывается. Именно потому такая ситуация и называется исключительной. Например, деление на ноль - классический пример исключительной ситуации.

Как в такой ситуации действует человек? Если он пытается что-то сделать, и это не получается - он идёт другим путём. Так же и компьютер, следующий программе, умеющей обрабатывать исключительные ситуации. Он не бросает выполнение программы, не виснет, а обходит исключительную ситуацию, выполняя альтернативный вариант фрагмента, в которой исключительная ситуация возникла.

Возникает вопрос, почему бы не поставить проверку, например, на равенство нулю знаменателя при делении? Можно и поставить. Но во многих случаях источник исключительной ситуации далеко не так очевиден, а на все случаи жизни проверки не введёшь.

Итак, для контроля исключительных ситуаций программист должен подготовить как основной вариант фрагмента, где возможна исключительная ситуация, так и его вариант, в котором она заведомо невозможна, или выводится информационное сообщение для пользователя.

Вот как выглядит оператор контроля исключительных ситуаций:

try

основные операторы фрагмента;

except

альтернативный вариант фрагмента;

end;

Вначале производится попытка выполнить операторы секции try/except, содержащие основной вариант программы. При возникновении в каком-либо операторе этой секции исключительной ситуации остальные операторы секции пропускаются, и выполняется секция except/end. Если всё "проходит штатно", то секцияexcept/end пропускается.

Ещё один вариант оператора контроля исключительных ситуаций применяется, когда необходимо, чтобы определённый фрагмент кода выполнился в любом случае, возникла исключительная ситуация или нет:

try

операторы

finally

заключительные действия

end;

Основные операторы, находящиеся в секции try, могут пройти штатно, или вызвать исключительную ситуацию. Операторы заключительных действий, находящиеся в секции finally, будут выполнены в любом случае.

Есть ещё один способ контроля исключительных ситуаций, касающийся ошибок операций ввода-вывода.

Перед участком программы, где возможны ошибки ввода-вывода (а это, по сути, все операторы ввода-вывода), ставится директива {$I-}, заставляющая компилятор не включать в код автоконтроль ошибок ввода-вывода. Таким образом, в случае ошибки ввода или вывода программа не прерывается. В конце участка с операторами ввода-вывода ставится директива, включающая автоконтроль: {$I+}. Затем анализируется результат вызова функции IOResult. Если функция IOResult (вызывается без параметров) возвращает 0, значит ошибок ввода-вывода на данном участке не было.

Вот какой пример использования директив {$I} и функции IOResult содержит справка системы Delphi:

var

F: file of Byte;

begin

if OpenDialog1.Execute then

begin

AssignFile(F, OpenDialog1.FileName);

{$I-}

Reset(F);

{$I+}

if IOResult = 0 then

begin

MessageDlg('File size in bytes: ' + IntToStr(FileSize(F)), mtInformation, [mbOk], 0);

CloseFile(F);

end

else

MessageDlg('File access error', mtWarning, [mbOk], 0);

end;

end;

Функция IOResult досталась Delphi в наследство от Turbo Pascal. Тот же самый фрагмент можно составить и с использованием оператора try. На мой взгляд, это удобнее и проще.

При работе программы под управлением Delphi, система будет сама реагировать на исключительные ситуации, мешая работе операторов обработки исключений. Чтобы проверить их действие, можно запускать программу непосредственно, сворачивая Delphi и пользуясь ярлыком, установленном на Рабочем столе. Или можно отключить реакцию системы на исключительные ситуации, тем самым давая возможность отработать специально для этого написанным фрагментам программы - нашим операторамtry/except/end. Для этого откроем пункт системного меню Delphi Tools -> Debugger Options.... В появившемся окошке нужно снять галку в чекбоксе Stop on Delphi Exceptions, расположенном на вкладке Language Exceptions. Теперь система Delphi будет предоставлять вашей программе возможность самостоятельно обрабатывать исключительные ситуации, среди которых могут быть и ситуации, возникновение которых прописано специально как удобный инструмент достижения необходимых результатов.

2. СПЕЦИАЛЬНАЯ ЧАСТЬ

2.1 Постановка задачи №1

Дан номер месяца (1 -- январь, 2 -- февраль, ...). Вывести название соответствующего времени года ("зима", "весна" и т.д.).

2.1.1 Блок схема

2.1.2 Листинг программы

procedure TForm1.ListBox1Click(Sender: TObject);

begin

if listbox1.ItemIndex=0 then label1.Caption:='Зима';

if listbox1.ItemIndex=1 then label1.Caption:='Зима';

if listbox1.ItemIndex=2 then label1.Caption:='Весна';

if listbox1.ItemIndex=3 then label1.Caption:='Весна';

if listbox1.ItemIndex=4 then label1.Caption:='Весна';

if listbox1.ItemIndex=5 then label1.Caption:='Лето';

if listbox1.ItemIndex=6 then label1.Caption:='Лето';

if listbox1.ItemIndex=7 then label1.Caption:='Лето';

if listbox1.ItemIndex=8 then label1.Caption:='Осень';

if listbox1.ItemIndex=9 then label1.Caption:='Осень';

if listbox1.ItemIndex=10 then label1.Caption:='Осень';

if listbox1.ItemIndex=11 then label1.Caption:='Зима';

end;

end.

2.1.3 Контрольный пример

2.2 Постановка задачи №2

Используя 2 зависимых переключателя, решить:

В зависимости от выбора, возрастающая или убывающая последовательность из 3 чисел.

2.2.1 Таблица идентификаторов

Таблица идентификаторов задачи №2 представлена на таблице 2.

Таблица 2 - Таблица идентификаторов

переменная	назначение	тип
Ch1	Ввод	Integer
Ch2	Ввод	Integer
Ch3	Ввод	Integer

2.2.2 Блок схема

2.2.3 Листинг программы

var

Form1: TForm1;

ch1,ch2, ch3: integer;

implementation

{$R *.dfm}

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

ch1:=StrToInt(edit1.Text);

ch2:=StrToInt(edit2.Text);

ch3:=StrToInt(edit3.Text);

if (ch1<ch2) and (ch2<ch3) then Label4.Caption:='Да'

else label4.Caption:='Нет';

end;

procedure TForm1.RadioButton2Click(Sender: TObject);

begin

ch1:=StrToInt(edit1.Text);

ch2:=StrToInt(edit2.Text);

ch3:=StrToInt(edit3.Text);

if (ch1>ch2) and (ch2>ch3) then label4.Caption:='Да'

else label4.Caption:='Нет';

end;

end.

2.2.4 Контрольный пример

2.3 Постановка задачи №3

Используя зависимые переключатели, написать программу для расчета стоимости велосипедной рамы.

2.3.1 Таблица идентификаторов

Таблица компонентов задачи №3 представлена на таблице 3.

Таблица 3 - Таблица компонентов

переменная	назначение	тип
W	Ввод	Real
H	Ввод	Real
Sum	Ввод	Real
Sum	Вывод	Real

2.3.2 Блок схема

2.3.3 Листинг программы

procedure TForm1.btn1Click(Sender: TObject);

var

w,h:real;

sum:real;

begin

w:=strtofloat(edit1.Text);

h:=strtofloat(Edit2.Text);

sum:=(w/100*h/100)*2800;

if chk1.Checked then

sum:=sum+2000;

if chk2.Checked then

sum:=sum+5000;

Label3.caption:=floattostr(sum)+' р';

end;

end.

файл шрифт данные оператор

2.3.4 Контрольный пример

2.4остановка задачи №4

Используя зависимые переключатели, написать программу для расчета стоимости велосипедной рамы.

2.4.1 Таблица идентификаторов

Таблица компонентов задачи №4 представлена на таблице 4.

Таблица 4 - Таблица компонентов

переменная	назначение	тип
Ch1	Ввод	Integer
Ch2	Ввод	Integer
Ch3	Ввод	Integer

2.4.2 Блок схема

2.4.3 Листинг программы

var

Form1: TForm1;

ch1,ch2,ch3:Integer;

implementation

{$R *.dfm}

procedure TForm1.rb1Click(Sender: TObject);

begin

ch1:=StrToInt(Edit1.Text);

ch2:=StrToInt(Edit2.Text);

ch3:=StrToInt(Edit3.Text);

if (ch1<ch2)and(ch2<ch3) then Label4.Caption:='Да'

else label4.Caption:='Нет';

end;

procedure TForm1.rb2Click(Sender: TObject);

begin

ch1:=StrToInt(Edit1.Text);

ch2:=StrToInt(Edit2.Text);

ch3:=StrToInt(Edit3.Text);

if (ch1>ch2)and(ch2>ch3) then Label4.Caption:='Да'

else label4.Caption:='Нет';

end;

end.

2.4.4 Контрольный пример

2.5 Постановка задачи №5

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

2.5.1 Таблица идентификаторов

Таблица компонентов задачи №5 представлена на таблице 5.

Таблица 5 - Таблица компонентов

переменная	назначение	тип
A	Ввод	Integer
B	Ввод	Integer
B	Вывод	Integer

2.5.2 Блок схема

2.5.3 Листинг программы

procedure TForm1.btn1Click(Sender: TObject);

var

b,a:Integer;

begin

a:=StrToInt(Edit1.Text);

b:=100*(a mod 10)+10*(a div 10 mod 10)+a div 100;

MessageDlg('Ваше число наоборот, равно '+IntToStr(b),mtInformation,[mbOK],0);

end;

end.

2.5.4 Контрольный пример

2.6 Постановка задачи №6

Написать программу на проверку правильности введенного логина-пароля.

2.6.1 Таблица идентификаторов

Таблица компонентов задачи №6 представлена на таблице 6.

Таблица 6 - Таблица компонентов

переменная	назначение	тип
X	Ввод	String
Y	Ввод	String

2.6.2 Блок схема

2.6.3 Листинг программы

procedure TForm1.btn1Click(Sender: TObject);

var

x,y:string;

begin

x:=edit1.Text;

y:=edit2.text;

if(x='Stayer') and(y='1337') then

ShowMessage('Confirm') else

ShowMessage('Negative');

end;

end.

2.6.4 Контрольный пример

2.7 Постановка задачи №7

Создайте тестирующую программу по предмету «Операционные системы и программное обеспечение ВК» для раздела Операционная система Linux.

2.7.1 Таблица идентификаторов

Таблица компонентов задачи №7 представлена на таблице 7.

Таблица 7 - Таблица компонентов

переменная	назначение	тип
Ball	Ввод	Integer

2.7.2 Блок схема

2.7.3 Листинг программы

var

U_Test: TU_Test;

ball:Integer;

implementation

{$R *.dfm}

procedure TU_test.OKBtnClick(Sender: TObject);

begin

ball:=0;

begin

if RadioButton1.Checked then ball:=ball+1;

if RadioButton9.Checked then ball:=ball+1;

if RadioButton11.Checked then ball:=ball+1;

if RadioButton19.Checked then ball:=ball+1;

if RadioButton22.Checked then ball:=ball+1;

end;

end;

procedure TU_Test.CancelBtnClick(Sender: TObject);

begin

Close;

end;

procedure TU_Menu.N5Click(Sender: TObject);

begin

U_Instr.ShowModal;

end;

procedure TU_Menu.N4Click(Sender: TObject);

begin

Close;

end;

procedure TU_Menu.N2Click(Sender: TObject);

begin

U_Test.ShowModal;

end;

procedure TU_Menu.N3Click(Sender: TObject);

begin

ball:=F_test.ball;

U_Res.Label1.Caption:='Ваш результат: '+ IntToStr(Ball);

U_Res.ShowModal;

end;

end.

2.7.4 Контрольный пример

ЗАКЛЮЧЕНИЕ

Во время практики я научился использовать компоненты групп:

Standard;

Additional;

Win32;

System;

Размещено на Allbest.ru