- •Лабораторная работа №2 .
- •1.Отличие ObjectPascal ( Delphi ) от tPascal.
- •Функции преобразования типов.
- •Константы, определяющие тип сообщения.
- •Текст на кнопках.
- •1.3 Изучение элементов страницы Стандарт: поле метки tLabel и однострочного текстового редактора tEdit, их свойств и методов.
- •Использование компонентов и их свойства.
- •Компнент tLabel
- •Однострочный текстовый редактор tEdit
- •1.4 Создать приложение Калькулятор.
- •1.5 Контрольное задание: Создать приложение »Нахождение корней квадратного уравнения».
- •1.6 Отчет:
- •1.7 Контрольные вопросы:
- •Литература
Лабораторная работа №2 .
Цель:
Изучение ввода и вывода данных и информации в среде программирования Delphi
Теоретическая часть:
1.Отличие ObjectPascal ( Delphi ) от tPascal.
Сходства в том, что в Object Pascal описания данных, операторы, структуры процедур и функций, модули взяты из TP.
Функции преобразования типов.
Т.к. на форме представляется только символьная информация, то используют функции преобразования типов для ввода и вывода чисел:
Function
Inttostr(<целое>) : string-Преобразует целое число в строку.
Floattostr(<Веществ>) :string - Преобразует вещественное число в строку.
Strtoint(<строка>) : : integer Преобразует строку в целое число.
Strtofloat(<Строка>):- real:- Преобразует строку в вещественное число .
2 Ввод и вывод данных в среде программирования Delphi
Ввод данных.
Программа может получать исходные данные из окна ввода, поля ввода диалогового окна и из файла.
Ввод из окна ввода.
Окно ввода - специальное диалоговое окно, которое вызывается функцией или обращением функции.
Function InputBox(<заголовок окна ввода>,<поясняющая подсказка>,<значение: текст в момент появления окна на экране>:string) : string.
Пример:
var
S : string;
d : integer;
………….
S: = InputBox (‘Дюймы’,’Введите дюймы’,’10’);
d:= StrToInt(S);
Ввод через поле диалогового окна (Edit.Text).
Пользователь обычно работает с данными не напрямую, а через свойство объекта. Например, через текстовое поле Edit.
Пример
var
s:string;
begin
S:=Edit1.text; {S: string}.
Вывод в поле.
Часть диалогового окна, предназначенная для вывода информации, называется полем вывода или полем метки.
Пример: Label1.caption:=’Москва’;
Edit1.Text:=IntToStr(‘10’); {Выводит на компонент Edit1 число 10}
Вывод окна сообщений Showmessage.
Procedure Showmessage (‘сообщение’:string);
Пример: Showmessage(‘Деление на ноль’);
Вывод окна сообщений MessageDLG.
Функция MessageDLG позволяет использовать стандартные значки Windows и задавать количество и тип командных кнопок.
Function MessageDLG (<сообщение>, <тип>, <кнопки>, <контекст справки>): Tmodal;
, где
<сообщение>- текст выводимого сообщения;
<тип> - тип сообщения с соответствующим значком Windows,
<кнопки>- список, определяющий вид и число кнопок,
<параметр>- определяет номер экрана справочной системы, который появляется при нажатии F1 в момент появления окна сообщения. Если справочной нет, то указывается ноль.
<Тип> задается константой.
Константы, определяющие тип сообщения.
Константа |
Тип сообщения |
Значок |
mtWarning |
внимание |
|
mtError |
ошибка |
|
mtInformation |
информация |
|
mtConfirmation |
запрос на подтверждение |
|
mtCustom |
пользовательское сообщение |
|
Текст на кнопках.
-
Const
Текст
Mbyes
Yes
Mbno
No
Mbok
Ok
Mbcancel
Cancel
Mbhelp
Help
Mbabort
Abort
Mbignore
Ignore
Mball
All
Mbretry
Retry
Mbokcancel
Ok cancel
Mbyesnocancel
YesNoCancel
Mbabortretryignore
AbortRetryIgnore
Выбор кнопки: значение возвращается функцией и позволяет определить какая из кнопок была нажата.
Const |
Нажата кнопка. |
Mrok |
Ok |
Mrcancel |
Cancel |
Mryes |
Yes |
Mrno |
No |
Mrabort |
Abort |
Mrignore |
Ignore |
Mrall |
All |
Mrretry |
retry |
Например:
var r:TModalResult;;
begin
[r:=] messagedlg ('деление на ноль ',mterror,[mbok,mbcancel],0);
{ то, что указано в [ ] скобках, можно не использовать. }
if r = MrOk then < >
else if r = MrCancel then < действия, если нажата кнопка Cancel>;