Программирование в Delphi Справочное руководство (стр. 4 )

Процедура ShowMessage(Msg) – отображает окно сообщения с кнопкой OK, где Msg – текст сообщения.

Пример: ShowMessage(‘Введены не все данные!’);

Функция InputBox(Caption, Prompt, Default) – выводит на экран диалоговое окно ввода данных.

Параметры:

Caption – заголовок окна,

Prompt – информационное сообщение в окне,

Default – значение по умолчанию.

       Пример: x:=StrToInt(InputBox(‘Ввод данных’, ‘Введите значение переменной х ’, ‘0’));

Функция MessageDlg(Msg, Type, Buttons, HelpCtx) – отображает диалоговое окно с кнопками и ожидает ответа пользователя. Парметры:

Msg – текст сообщения в окне;

Type – вид отображаемого окна. Может принимать одно из значений: mtWarning – окно замечаний с восклицательным знаком, mtError – окно ошибок с красным стоп-сигналом, mtInformation – информационное окно с символом «i», mtConfirmation – окно подтверждения с вопросительным знаком, mtCustom – окно без рисунка.

Buttons – определяет какие кнопки будут присутствовать в окне (mbYes, mbNo, mbOk, mbCancel, mbHelp, mbAbort, mbRetry, mbIgnore, mbAll).

HelpCtx – раздел справочной системы соответствующий данному окну. Если справочная система не предусмотрена, то 0.

Пример1: messageDlg('В программе произошла ошибка!', mtError, [mbOk],0);

Пример2: if messageDlg('Вы действительно хотите закончить приложение?', mtConfirmation, [mbYes, mbNo],0)=mrYes then application. Terminate;

Типы данных

Целый тип:                                                        Действительный тип:

Тип	Диапазон значений	Требования к памяти (байт)	Тип	Диапазон значений	Число разрядов	Требования к памяти (байт)
Byte	0, 255	1	Real48	±2.9*1039, ±1.7*1038	11-12	6
Word	0, 65535	2	Real	±5.0*10-324, ±1.7*10308	15-16	8
ShortInt	-128, 127	1	Single	±1.5*10-45, ±3.4*1038	7-8	4
SmallInt	-32768, 32767	2	Double	±5.0*10-324, ±1.7*10308	15-16	8
Cardinal	0, 4294967295	4	Extended	±3.6*10-4932, ±1.1*104392	19-20	10
Integer	-2147483648, 2147483647	4	Comp	-263,  262	19-20	8
Int64	-263, 263-1	8	Currency	-922337203685477.5808, 922337203685477.5807	19-20	8

Логический тип:

Boolean – булева величина в один байт. Может принимать два значения: true и false. Для логических типов определены операции: and (И), or (ИЛИ), not (НЕ, отрицание), xor (исключающее ИЛИ).

Символьный тип:

Тип	Размер в байтах	Что может хранить
ANSIChar	1	Один символ ANSI
WideChar	2	Один символ Unicode
Char	1	Эквивалентен ANSIChar

Для символьного типа предопределены функции: Chr - возвращает символ любого целого значения в пределах ANSIChar и WideChar, Ord – возвращает код символа. Например, Chr(65) возвращает букву «А», Ord(‘c’) – возвращает 99.

Строковый тип:

Тип строки	Максимальная длина	Используется для	Нулевой символ в конце
ShortString	255	Обратной совместимости	Нет
AnsiString	~ 231 (~2 Гб)	Символов ANSI	Есть
String	или 255, или до ~2 Гб	Символов ANSI или UNICODE	Есть или нет
WideString	~ 230 (~1 Гб)	Символов Unicode, в серверах СОМ	есть

Смысл типа String зависит от директивы компилятора {$H+}. Если она включена (+) то интерпретируется как строка с нулевым символом в конце, иначе (-) без нулевого символа. При объявлении типа String можно в квадратных скобках указать длину строки. Например: var s: string[25]; - строка длиной 25 символов.

Стандартная строковая функция Length возвращает количество символов в строке. Для строк действительна операция сцепления – «+».

Со строками можно оперировать как с индексированными массивами символов. Например: S[5] – это символ расположенный в 5-й позиции строки S.

Для преобразования данных чаще используются следующие функции:

IntToStr – преобразует целое число в строку;

StrToInt – преобразует строку в целое число;

FloatToStr – преобразует вещественное число в строку;

StrToFloat - преобразует строку в вещественное число;

8. Условные операторы. Использование ветвлений в программах. Арифметические, логические операции

Оператор if предназначен для выполнения тех или иных действий в зависимости от истинности или ложности некоторого условия. Оператор имеет две формы:

if <условие> then <оператор>; (если)         (то)         Пример: If (x<>0) and (y<>0) then z:=x+y;	Если условие возвращает true, то указанный оператор выполняется. В противном случае управление сразу передается следующему за конструкцией if оператору.
if <условие> then <оператор1> else <оператор2>; (если)         (то)                 (иначе) Пример: If x=0 then ShowMessage(‘’) else z:=y/x;	Если условие возвращает true, то выполняется первый из указанных операторов, в противном случае выполняется второй оператор. Перед else точка с запятой не ставится.

Если при выполнении или невыполнении условия должна выполняться группа операторов, то она заключается в операторные скобки begin...end:

If <условие>

then begin

<группа операторов 1>

End

Else begin

<группа операторов 2>

End;

В Object Pascal определены следующие арифметические операции:

Обозначение	Операция	Типы операндов	Тип результата	Пример
+	Сложение	Integer, real	Integer, real	x+y
-	Вычитание	Integer, real	Integer, real	x-y
*	Умножение	Integer, real	Integer, real	x*y
/	Деление	Integer, real	real	x/y
Div	Целочисленное деление	Integer	Integer	17 div 3 (вернет 5)
mod	Остаток целочисленного деления	Integer	Integer	17 mod 3 (вернет 2)

Математические функции:

Функция	Описание	Пример	Возвращаемое значение
Abs(x)	Абсолютное значение	Abs(-5)	5
ArcTan(x)	Арктангенс	ArcTan(3)	1,2490
Cos(x)	Косинус	Cos(2)	-0,4161
Exp(x)	Экспонента	Exp(3)	20,085
Frac(x)	Дробная часть аргумента	Frac(2,87)	0,87
Int(x)	Целая часть аргумента	Int(2,87)	2
Ln(x)	Натуральный логарифм	Ln(1)	0
Pi	Число Пи	Pi	3,1415926535897932385
Round	Ближайшее целое аргумента	Round(2,8)	3
Sin(x)	Синус	Sin(2)	0,035
Sqr(x)	Квадрат аргумента	Sqr(3)	9
Sqrt(x)	Квадратный корень	Sqrt(16)	4

Логические (булевы) операции:

Операция	Описание	Пример
Not	Отрицание	Not (x=y)
And	Логическое И	(x=y) and (y=z)
Or	Логическое ИЛИ	(x=y) or (x=z)
xor	Логическое исключающее ИЛИ	(x=y) xor (x=z)

Пример 1: If (x mod 3)=0 then showmessage(‘Число делится на 3 без остатка’) else showmessage(‘Остаток при делении на 3 равен ’+floattostr(x mod 3));	Определяет остаток от деления числа Х на 3.
Пример 2: If x<0 then ShowMessage('Из отрицательного числа корень не извлекается') else   if frac(sqrt(x))=0 then showmessage('Корень является целым числом.') else showmessage('Корень не является целым числом');	Определяет является ли корень из числа Х целым числом.

9. Оператор множественного выбора CASE