Отправляет email-рассылки с помощью сервиса Sendsay

Delphi. Уроки

Подписаться Бесплатная «Серебряная» новостная рассылка . Подписчиков 8.311 RSS
←   Август 2005   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://progs.biz
Открыта: 19-12-2001

Автор
Алексеев Игорь

Статистика

8.311 подписчиков
0 за неделю
←   Все выпуски   →

Delphi. Уроки


Информационный Канал Subscribe.Ru
Уроки по Delphi. Рассылки сайта progs.biz
Выпуск № 45		  
Начало > Delphi > Pascal > Урок 22

В. Фаронов. Система программирования Delphi.
В. Фаронов. Система программирования Delphi
Заказать на Озоне
Подробнее

Полные версии уроков (с картинками): урок 22.

Delphi. Pascal
Урок 22. Классы

Классы можно рассматриваить как пользовательский тип данных. Такие определенные пользователем типы, как правило, лучше подходят для описания объектов реального мира. Например, вы можете создать класс автомобиля и задать в нем переменные, которые будут харакризовать все автомобили - например, скорость, число дверей или число посадочных мест. Написание такого класса еще не означает, что у вас в программе есть автомобиль, так как класс - это просто новый тип данных и вам для использования автомобиля в вашей программе надо объявить еще переменную, имеющую тип автомобиля.

Вот пример класса:

type
  TCar = class
    private
      FSpeed: Integer;
    public
      function GetSpeed(): Integer;
      procedure SetSpeed(Speed: Integer);
  end;
function TCar.GetSpeed(): Integer;
begin
  Result := FSpeed;
end;
procedure TCar.SetSpeed(Speed: Integer);
begin
  FSpeed := Speed;
end;
var
  c: TCar;
  s: Integer;
begin
  c := TCar.Create;
  c.SetSpeed(40);
  s := c.GetSpeed;
end.

Сначала мы объявляем сам класс:

type
  TCar = class
    private
      FSpeed: Integer;
    public
      function GetSpeed(): Integer;
      procedure SetSpeed(Speed: Integer);
  end;

Синтаксис тут такой: пишем сначала имя класса, после чего знак равно и ключеное слово class. Заканчиваем определение класса ключевым словом end. Внутри класса мы объявили одну переменную FSpeed типа Integer, одну функцию GetSpeed и одну процедуру SetSpeed с параметром целого типа. Объявление класса мы помещаем в секцию type нашего модуля.

Сразу за объявлением класса мы пишем реализацию наших функции и процедуры:

function TCar.GetSpeed(): Integer;
begin
  Result := FSpeed;
end;
procedure TCar.SetSpeed(Speed: Integer);
begin
  FSpeed := Speed;
end;

Синтаксис тут почти такой же, как при задании обячной функции (процедуры) модуля. Обратите только внимание на то, что перед именем функции (процедуры) мы пишем имя класса (TCar).

Далее в основной части нашей программы мы создаем экземпляр нашего класса и вызываем методы для него:

begin
  c := TCar.Create;
  c.SetSpeed(40);
  s := c.GetSpeed;
end.

С этим уроком все.
Рассылки сайта progs.biz
Visual C++, MFC
C# и .NET
VB.NET
ASP.NET
Win API
C/C++
Delphi
Java
HTML, PHP, mySQL, WEB-дизайн
Flash MX
C++ Builder
Ассемблер
SQL Server
DirectX
Обзор книг
Обзор программ
Новости сайта progs.biz
Копирование любых материалов сайта без разрешения авторов и владельцев сайта запрещено.
© 2002-2005 сайт progs.biz
© 2002-2005 Игорь Алексеев
Subscribe.Ru
Поддержка подписчиков
Другие рассылки этой тематики
Другие рассылки этого автора 		Подписан адрес:
Код этой рассылки: comp.soft.prog.delphilessons 		Отписаться
Вспомнить пароль
В избранное