/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/!MainFeatures/06_Classes/ClassConstructor.pas
36 строк
1 KB
Mikhalkovich Stanislav
Поправил старые примеры 2
12 окт 2025, 22:21
12 окт 2025, 22:21
d6a70ee
Код
Авторство
О чём код?
// Пример использования классового (статического) конструктора type Person = class private class arr: array of Person; // Классовое поле. Связано не с переменной класса, а с классом. name: string; age: integer; public class constructor; // Конструктор класса. Вызывается до создания первого объекта класса и до вызова любого классового метода begin Println(' Вызван классовый конструктор'); SetLength(arr,3); arr[0] := new Person('Иванов',20); arr[1] := new Person('Петрова',19); arr[2] := new Person('Попов',35); end; constructor (n: string; a: integer); begin name := n; age := a; end; function ToString: string; override; begin Result := $'Имя: {name} Возраст: {age}'; end; class function RandomPerson: Person; // Классовый метод. Может обращаться только к классовым полям begin Result := arr[Random(3)]; end; end; begin Println('Случайные персоны'); for var i:=1 to 5 do Println(Person.RandomPerson); // Вызов классового метода end.