VPF::Инкапсуляция - Форум программистов

Scrip

Дата 27.5.2004, 22:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 34
Регистрация: 8.5.2004

Репутация: нет
Всего: нет

Цитата

Класс представляет собой единство трех сущностей - полей, методов и свойств. Объединение этих сущностей в единое целое и называется инкапсуляцией. Инкапсуляция позволяет во многом изолировать класс от остальных частей программы, сделать его “самодостаточным” для решения конкретной задачи.

В 3 предл. говорится о каких-то частях программы. О каких именно и где они "изолируются".

<Spawn>

Дата 28.5.2004, 00:45 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

Ну например у тебя есть класс:

Код

TMyClass = class
private
  FX: integer;
  function GetX: integer;
  procedure SetX(Value: integer);
public
  ...
  property X: integer read GetX write SetX;
end;

function TMyClass.GetX: integer;
begin
  <Если нужно, то чего то проверяешь>
  Result := FX;
end;

procedure TMyClass.SetX(Value: integer);
begin
  <Какие либо проверки>
  FX := Value;
end;

Так вот переменная-член класса TMyClass FX будет скрыта вне области видимости данного класса, то есть ты не сможешь скомпилить следующий код:

Код

var
  MyClass: TMyClass;
begin
  MyClass := TMyClass.Create;
  MyClass.FX := 20;
  <А вот так сработает>
  MyClass.X := 20;
end;

Это сообщение отредактировал(а) <Spawn> - 28.5.2004, 00:49

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

Scrip

Дата 29.5.2004, 04:42 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 34
Регистрация: 8.5.2004

Репутация: нет
Всего: нет

т.е во втором коде 20 записывается [write] в SetX а там уже присваивается FX. В общем, если я не описал в каком-либо свойстве, что делать с конкретным полем, то его будет не видно в данном классе. Изменять данные поля можно только через свойство в котором это поле описанно. Так?
А почему тогда FX видно через процедуру SetX?

Это сообщение отредактировал(а) Scrip - 29.5.2004, 05:08

Scrip

Дата 29.5.2004, 05:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 34
Регистрация: 8.5.2004

Репутация: нет
Всего: нет

<Spawn>, ты говоришь вот так

Код

var
 MyClass: TMyClass;
begin
 MyClass := TMyClass.Create;
 MyClass.FX := 20;

работать не будет. Проверил, все работает.

x77

Дата 29.5.2004, 06:37 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1255
Регистрация: 25.3.2002

Репутация: 19
Всего: 22

Scrip, оно будет работать только в том же модуле, в котором объявлен класс.

попробуй обратиться к этомуц свойству из другой формы - и компилятор заругается на неизвестную декларацию.

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

--------------------

Я никогда не сопротивлялся искушению, поскольку узнал: что мне
не нравится, то меня не искушает. © Джордж Бернард Шоу (Ирландия)

<Spawn>

Дата 29.5.2004, 06:52 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

x77 Правильно говорит.

В SetX же видно FX, потому что эта процедура является членом класса TMyClass.

--------------------

Scrip

Дата 29.5.2004, 06:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 34
Регистрация: 8.5.2004

Репутация: нет
Всего: нет

понял.

Это сообщение отредактировал(а) Scrip - 29.5.2004, 07:22

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »