Давайте попробуем реализовать свой собственный класс. Для этого нам нужна цель. Что будет знать класс и в последствии уметь делать. Итак, например, задача: Есть дом. В нем живут жильцы. Сопоставить номер квартиры с фамилией жильца.
Для реализации данной ситуации решено использовать свой собственный класс. Он будет называться Resident. В этом классе будет две переменные: apartament : Integer; и Surrname : String; . Для реализации класса потребуется функция (например: Info()). Она, допустим, будет просто возвращать номер квартиры и фамилию жильца.
// класс апартаменты: type Resident = class apartament : Integer; Surrname : String; function Info (): String; end;
Сама функция описывается после класса:
// функция вывода информации о жильце function Resident.Info; begin Result := 'resident: ' + Surrname + ' apartament №: ' + IntToStr(apartament) + '.'; end;
Сама программа выглядит следующим образом:
Var Ivanov : Resident; begin Ivanov := Resident.Create(); Ivanov.apartament:=20; Ivanov.Surrname:='Ivanov'; Showmessage(Ivanov.Info()); end.
Задаем переменную своего класса в разделе Var. Инициализируем ее Ivanov := Resident.Create(); . Наполняем информацией Ivanov.apartament:=20; Ivanov.Surrname:=’Ivanov’; и выводим на экран Showmessage(Ivanov.Info());.
Полный листинг программы выглядит следующим образом:
program example; uses SysUtils, Dialogs; type Resident = class apartament : Integer; Surrname : String; function Info (): String; end; function Resident.Info; begin Result := 'resident: ' + Surrname + ' apartament №: ' + IntToStr(apartament) + '.'; end; Var Ivanov : Resident; begin Ivanov := Resident.Create(); Ivanov.apartament:=20; Ivanov.Surrname:='Ivanov'; Showmessage(Ivanov.Info()); End.. написать класс квартира делфи собственный проект delphi собственные классы в делфи 7 создание своего класса delphi 7 delphi классы пример