Вывод записей и классов с помощью write: различия между версиями

Материал из Вики проекта PascalABC.NET
Перейти к навигацииПерейти к поиску
Нет описания правки
Нет описания правки
 
Строка 1: Строка 1:
Для вывода переменной класса в операторе writeln в классе следует
переопределить виртуальный метод Object.ToString
<source lang="Delphi">type  
<source lang="Delphi">type  
   Person = class
   Person = class

Текущая версия от 17:04, 14 января 2010

Для вывода переменной класса в операторе writeln в классе следует переопределить виртуальный метод Object.ToString

type 
  Person = class
  private
    name: string;
    age: integer;
  public
    constructor (n: string; a: integer);
    begin
      name := n; age := a;
    end;
    function ToString: string; override;
    begin
      Result := Format('Имя: {0}   Возраст: {1}',name,age);
    end;
  end;

var p: Person;

begin
  p := new Person('Иванов',20); // Новый синтаксис вызова конструктора (рекомендуется)
  writeln(p);
end.

Ссылки