Вывод записей и классов с помощью write

Материал из Вики проекта PascalABC.NET
Версия от 17:04, 14 января 2010; Mikst (обсуждение | вклад)
(разн.) ← Предыдущая версия | Текущая версия (разн.) | Следующая версия → (разн.)
Перейти к навигацииПерейти к поиску

Для вывода переменной класса в операторе 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.

Ссылки