freepascal.ru

Глава 1. Объекты без классов
Объекты сами по себе
Можно так же определять объекты без использования классов. Существует
несколько отличий от представителей классов.

Нельзя использовать свойства.
По умолчанию объект размещается в стеке.
Память под объект выделяется при входе в блок, который его содержит.
Память автоматически освобождается при выходе из блока.
Конструктор и деструктор необходим только для динамических объектов
или при наличии виртуальных методов.
Описание объекта
Объект описывается аналогично классу, но ключевое слова class заменяется на
object.

program testobj;

{$MODE OBJFPC}
{$H+}

type
 MyTest = object
 fDummy : Int64;
 private
 procedure SetDummy(value : Int64);
 function GetDummy : Int64;
 public
 property Dummy : Int64 read GetDummy write SetDummy;
 end;

procedure MyTest.SetDummy(value : Int64);
begin
fDummy := value;
end;

function MyTest.GetDummy : Int64;
begin
Exit(fDummy);
end;

var
 o : MyTest;

begin
o.Dummy := 123;
WriteLn(o.Dummy);
end.

Alexander писал(а):Почему "нельзя" ?

tuzik87@inbox.ru писал(а):Awkward, моя недоработка. Во Free Pascal правила дя объектов на стеке немного отличаються от Turbo Pascal. На каких версиях компилятора проверяли?

Глава 5. Обработка ошибок
Исключения
Во время выполнения программы могут возникать ошибки. Их называют
исключениями. Эта глава посвящена перехвату и обработкЕ исключений.

tuzik87@inbox.ru писал(а):Не могли бы вы пояснить а чем тут ошибка?

tuzik87@inbox.ru писал(а):Желательно чтобы вы просмотрели всю книгу на предмет ошибок и сообщили о них.