Пример собственного класса в Delphi

Давайте попробуем реализовать свой собственный класс. Для этого нам нужна цель. Что будет знать класс и в последствии уметь делать. Итак, например, задача: Есть дом. В нем живут жильцы. Сопоставить номер квартиры с фамилией жильца.

Для реализации данной ситуации решено использовать свой собственный класс. Он будет называться 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 классы в delphi класс в delphi 7 пример создание собственного класса delphi пример создания собственного класса в delphi