Class/ru: what changed
Revision 1 to 2. Removed lines have a minus sign; added lines have a plus sign.
| Old | New | Line | |
|---|---|---|---|
| 1 | - | ||
| 2 | - | ||
| 3 | - | ||
| 1 | + | Класс является хорошо структурированным [[Type/ru|типом данных]] в Object [[Pascal]] и его диалектах (таких, как Delphi или [[Mode ObjFPC/ru|ObjFPC]]). Классы могут содержать [[Variable/ru|переменные]], конструкторы, деструкторы, [[Function/ru|функции]], [[Procedure/ru|процедуры]] и [[Property/ru|свойства]]. | |
| 4 | 2 | ||
| 5 | - | ||
| 3 | + | Также классы освобождают программиста от необходимости использовать указатели и ссылки. Они автоматически обрабатываются компилятором во время компиляции. | |
| 6 | 4 | ||
| 7 | - | ||
| 5 | + | Классы могут наследоваться от других классов или быть унаследованными в свою очередь. Любой класс, родительский класс которого не уточнен программистом, автоматически наследуется от TObject, так как он имеет необходимые компоненты для всех классов. Из-за зависимости TObject, в деструкторе любой подкласс должен иметь директиву override. Кроме того, любой из конструкторов вашего класса должен иметь в своем теле оператор inherited. Класс может иметь несколько конструкторов, но только один деструктор. | |
| 8 | 6 | ||
| 9 | - | ||
| 7 | + | Object Pascal не поддерживает множественное наследование: кроме неявного наследования от TObject классы могут иметь только один родительский класс. Полиморфизм реализован с помощью директив методов. Ниже представлен пример простого объявления класса; давайте разберем его. | |
| 8 | + | ``` | |
| 10 | 9 | type | |
| 11 | - | ||
| 12 | - | ||
| 13 | - | ||
| 14 | - | ||
| 15 | - | ||
| 16 | - | ||
| 17 | - | ||
| 18 | - | ||
| 19 | - | ||
| 20 | - | ||
| 21 | - | ||
| 22 | - | ||
| 10 | + | TMyClass = class | |
| 11 | + | private | |
| 12 | + | FSomeVar: integer; | |
| 13 | + | public | |
| 14 | + | constructor Create; overload; | |
| 15 | + | constructor Create(Args: array of integer); overload; | |
| 16 | + | destructor Destroy; override; | |
| 17 | + | function GetSomeVar: integer; | |
| 18 | + | procedure SetSomeVar(newvalue: integer); | |
| 19 | + | published | |
| 20 | + | property SomeVar: integer read GetSomeVar write SetSomeVar default 0; | |
| 21 | + | end; | |
| 23 | 22 | ``` | |
| 24 | 23 | ||
| 25 | - | ||
| 24 | + | Между [[Keyword/ru|ключевыми словами]] **class** и **end** мы видим объявления членов - переменных и методов. Некоторым методам (функциям и/или процедурам) предшествуют модификаторы области видимости (**private** , **public** , **published**), за ними следуют директивы (**overload** , **override**), а также _странная штука_ под названием **property**. Давайте разберем их все. | |
| 26 | 25 | ||
| 27 | - | ||
| 26 | + | ||
| 28 | 27 | ||
| 29 | - | ||
| 28 | + | ## Пояснения о наследовании | |
| 30 | 29 | ||
| 31 | - | ||
| 30 | + | В Object Pascal производные классы наследуют все члены базового класса, даже те, которые не перегружены с теми же именами. Например: | |
| 31 | + | ``` | |
| 32 | 32 | type | |
| 33 | - | ||
| 34 | - | ||
| 35 | - | ||
| 36 | - | ||
| 37 | - | ||
| 38 | - | ||
| 39 | - | ||
| 40 | - | ||
| 41 | - | ||
| 42 | - | ||
| 43 | - | ||
| 44 | - | ||
| 45 | - | ||
| 46 | - | ||
| 47 | - | ||
| 48 | - | ||
| 49 | - | ||
| 50 | - | ||
| 51 | - | ||
| 33 | + | // базовый класс | |
| 34 | + | MyClass = class | |
| 35 | + | procedure Proc1; | |
| 36 | + | end; | |
| 37 | + | ||
| 38 | + | // производный класс | |
| 39 | + | YourClass = class(MyClass) | |
| 40 | + | procedure Proc1; //такое имя процедуры, как и в классе MyClass | |
| 41 | + | end; | |
| 42 | + | ||
| 43 | + | var | |
| 44 | + | a: MyClass; | |
| 45 | + | b: YourClass; | |
| 46 | + | begin | |
| 47 | + | a := MyClass.Create; | |
| 48 | + | b := YourClass.Create; | |
| 49 | + | a.Proc1; // использует процедуру класса MyClass | |
| 50 | + | b.Proc1; // использует процедуру класса YourClass | |
| 51 | + | MyClass(b).Proc1; // использует процедуру класса MyClass | |
| 52 | 52 | ``` | |
| 53 | 53 | ||
| 54 | + | ||
| 55 | + | ||
| 54 | 56 | ## Модификаторы области видимости | |
| 55 | 57 | ||
| 56 | - | ||
| 58 | + | Модификаторы области видимости сообщают компилятору кто может вызывать методы класса: | |
| 57 | 59 | ||
| 58 | - | ||
| 59 | - | ||
| 60 | - | ||
| 61 | - | ||
| 60 | + | * **private** : член может быть вызван/доступен только с помощью методов данного класса; | |
| 61 | + | * **public** : член может быть вызван/доступен из любого другого места программы; | |
| 62 | + | * **protected** : член может быть вызван/доступен из других классов в том же модуле и из производных классов, но не из внешних классов. | |
| 63 | + | * **published** : переменная опубликована и будет доступна в Инспекторе объектов IDE. | |
| 62 | 64 | ||
| 63 | - | ||
| 65 | + | Модификаторы области видимости не могут быть изменены в производных классах: члены будут сохранять их видимость (или её отсутствие) всегда и везде. | |
| 64 | 66 | ||
| 67 | + | ||
| 68 | + | ||
| 69 | + | Типы данных | |
| 70 | + | --- | |
| 71 | + | Простые типы | [[Boolean/ru|Boolean]] | [[Byte/ru|Byte]] | [[Cardinal/ru|Cardinal]] | [[Char/ru|Char]] | [[Currency/ru|Currency]] | [[Extended/ru|Extended]] | [[Int64/ru|Int64]] | [[Integer/ru|Integer]] | [[Longint/ru|Longint]] | [[Pointer/ru|Pointer]] | [[Real/ru|Real]] | [[Shortint/ru|Shortint]] | [[Smallint/ru|Smallint]] | [[Word/ru|Word]] | |
| 72 | + | Сложные типы | [[Array/ru|Array]] | Class | [[Record/ru|Record]] | [[Set/ru|Set]] | [[String/ru|String]] | [[Shortstring/ru|Shortstring]] | |
| 73 | + | ||
| 65 | 74 | --- | |
| 66 | - | ||
| 75 | + | *From the Free Pascal wiki, page "Class/ru", as the Internet Archive kept it on 2024-12-09, last changed on 2020-02-11. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).* |