[icWasya]

Сообщение от bussianko

... это будет долгий пример.

Ошибочка вышла

Код:

...
  TMyObject = class  // TMyObject прямой наследник класса TObject
...
    constructor Create;override;// Унаследованный коструктор базового
    // ошибочка - у TObject конструктор не виртуальный
   // надо так
   constructor Create;
...
implementation

{ TMyObject }

...
end.

Потом где то в программе пишем следующее:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  MyOb: TMyObject;
begin
  // и вот сдесь ошибочка
  MyObj:= TMyObject;//Создаём наш объект
  // создавать надо вот так
  MyObj:= TMyObject.Create; 

  MyObj.OneVar:= 15;
  MyOb.TwoVar:= Format("Value from MyObj.OneVar = ", [MyObj.OneVar]);
  MessageDlg(MyObj.TwoVar, mtInformation, [mbOK], 0);
end;