Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Delphi (новый) без баз данных.doc
Скачиваний:
3
Добавлен:
01.07.2025
Размер:
7.61 Mб
Скачать

5.6. Практическая работа

Создадим приложение. Пользователю предоставляется возможность ввести свой адрес и телефон (причем формат для ввода предоставлен), после чего формируется предложение «Мой адрес…телефон…» и повторяется в мемо-поле указанное в специальном окне количество раз.

Проанализируйте представленные шаблоны и укажите их для соответствующих полей ввода.

Для ввода номера телефона: 00-00-00;1;x

Для ввода адреса: ул.>A<aaaaaaaaaa д.099 кв.099;1;_

Для ввода количества повторений: 9;1;

Опишите процедуру на кнопку «Ok».

Procedure TForm1.BitBtn1Click(Sender:TObject);

var

f: string;

k, i: integer;

begin

f:='Мой адрес '+maskedit1.text+' телефон '+maskedit2.text;

k:=strtoint (maskedit3.text) ;//переводим строку, введенную в maskedit3 в целочисленный тип

for i:=1 to k do

memo1.Lines.Add(f);

end;

Обработайте кнопку «Clear».

5.7. Самостоятельная работа

В Memo - поле ввести любой текст и вывести в метку количество строк, содержащихся в этом поле.

Глава VI. Введение в Объектно-ориентированное программирование (ООП)

Язык Object Pascal является языком программирования Delphi и представляет собой объектно-ориентированное расширение стандартного языка Pascal.

Система Delphi обеспечивает возможность визуального программирования на нем с помощью библиотеки визуальных компонентов.

6.1. Алфавит языка.

Алфавит языка включает:

  • 53 буквы(A-Z,a-z, и знак _)

  • 0-9

  • 23 специальных символа(+ - * / , ; := > < ‘ ( ) [ ] { } # $ ^ & знак пробела).

Комбинации специальных символов образуют следующие составные символы:

:= присваивание

<> не равно

.. диапазон значений

>= больше либо равно

<=меньше либо равно

(* *) тоже что и { }

(. .) тоже что и [ ]

6.2. Словарь языка.

Словарь языка:

  • ключевые слова

  • стандартные идентификаторы

  • идентификаторы пользователя

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

Например, : label, goto, unit,begin.

Стандартные идентификаторы служат для обозначения следующих заранее определенных конструкция языка

  • типов данных

  • констант

  • процедур и функций

Например: sin, pi, real;

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

  • составляются из букв и цифр;

  • всегда начинаются только с букв (исключения- метки)

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

  • Между двумя идентификаторами в программе должен быть по крайней мере один разделитель.

6.3. Структура программы.

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

Структуру программы в общем случае можно представить следующим образом:

program <Имя программы>;

uses <список модулей>;

label <список меток>;

const <список констант>;

type<описание типов>;

var<объявление переменных>;

<описание процедур>;

<описание функций>;

begin

<операторы>;

end.

Раздел

Формат описания

Подключение модулей

Uses <Имя1>,<Имя2>,…,<ИмяN>;

Объявление меток

Label <Имя1>,<Имя2>,…,<ИмяN>;

Объявление констант

Const <Идентификатор1>=<Выражение1>;

…<ИдентификаторN>=<ВыражениеN>;

Описание типов

Type <Имя типа1>=<Описание типа>;

…<Имя типа2>=<Описание типа>;

Объявление переменных

Var <Идентификатор1>:<Тип>;

…<ИдентификаторN>:<Тип>;

Пример

Uses crt, dos, MyLib;

Label metka1,10,Y;

Const st1=’word’; ch=’5’;n=3;

Type char2=(‘a’..’z’); massiv=array[1..100] of real; month1..12;

Var k:integer;

symbol:char;

a,b,c:real;

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