Программирование на Delphi 7

Элементы программы – это неделимые части программы, а именно зарезервированные слова, идентификаторы, типы, константы, переменные, метки, подпрограммы (процедуры и функции) и комментарии. В языке «Делфи» все элементы программ совместимы с языком PASCAL сверху – вниз, т.о. все типы данных, операторы и операции, имеющиеся в PASCALе, доступны и в «Делфи».

ЛЕКЦИЯ № 4

1. ОСНОВНЫЕ ТИПЫ ДАННЫХ В «ДЕЛФИ»

Любые данные в «Делфи», как и в языке PASCAL, характеризуются своими типами. Тип определяет множество допустимых значений, которые может иметь данное, а также множество применимых к нему операций. Рассмотрим целые типы данных «DELPHI».

Табл. 1. Целые типы

Для целых типов применимы следующие стандартные процедуры и функции.

Табл. 2. Процедуры и функции для целых типов

Рассмотрим на примере перечисляемые типы.

Type TMonth=(Jan, Feb, Mar);

Var Month: tMonth;

Begin

If Month=Feb then label1. Caption: =’февраль’;

If Rred (Feb)=Jan then showmessage (‘Перед февралем идет январь, и это правильно.’);

If Succ (Feb)=Mar then showmessage (‘После февраля идет март, и это верно!’);

End;

Type TMonth=(Jan, Feb, Mar);

Var month: tMonth; c: byte;

Begin

For month := Jan to Mar do showmessage(inttostr(byte(month)));

For month := Jan to Mar do showmessage(inttostr(ord(month)));

For c := byte(Jan) to byte(Mar) do showmessage(inttostr(c));

End;

Рассмотрим на примере логические и символьные типы.

Var L: Boolean; { Описываем логический тип }

C: Char; { Описываем символьный тип }

Begin

L: = true; C: =’ %‘;

If chr(C)>12 then C:=’$’;

C:=chr(ord(C));

L:=true;

If not L then exit;

End;

5. Рассмотрим на примере ограниченный тип.

Var date: 1..31; digit:’0’..’9’;

Month: 1..12;

Var c: byte; s: char;

Begin

For c: =Low(date) to High(date) do showmessage(inttostr(c));

For s: =Low(digit) to High(digit) do showmessage(s);

End;

Рассмотрим вещественные типы и стандартные функции для них.

Табл. 3. Вещественные типы

Табл. 4. Функции действительных типов

6. Рассмотрим строковые типы.

Var

Sss: String[150]; // Короткая строка до 150 символов (максимум 255 символов)

SsMax: ShortString ; // Короткая строка до 255 символов

Str: String; // Длинная строка неограниченной длины

Begin

Sss := ‘строка символов’;