Class, отличие от Object Опции

[sheka]

Какое отличие Class от Object ?

Вот здесь делаю одномерный массив объектом:

Модуль (Показать/Скрыть)

unit Unit1;

interface

const N=3;

type
  TYac = {object}class
  private
    Znac:integer;
  public
    function GetZnac:integer;
    procedure PutZnac(z:integer);
  end;

  TColumn = {object}class
  private
    Col:array[1..N] of TYac;
  public
    function GetZnac(i:integer):integer;
    procedure PutZnac(i,z:integer);
  end;


implementation

function TYac.GetZnac:integer;
begin
  GetZnac:=Znac;
end;

procedure TYac.PutZnac(z:integer);
begin
  Znac:=z;
end;

function TColumn.GetZnac(i:integer):integer;
begin
  GetZnac:=col[i].GetZnac;
end;

procedure TColumn.PutZnac(i,z:integer);
begin
  col[i].PutZnac(z);
end;

end.

Программа (Показать/Скрыть)

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Unit1 in 'Unit1.pas';

var
  Column:TColumn;

begin
  Column.PutZnac(1,7); // Вот здесь ругается
  {Column.PutZnac(2,8);
  Column.PutZnac(3,5);}
  //writeln(Column.GetZnac(1)); // Вот здесь ругается
  readln;
end.

А если писать object, то все норм.

Сообщение отредактировано: sheka - 28.03.2010 15:07

[volvo]

Класс обязан инициализироваться конструктором всегда. Для Object это не так (если нет виртуальных методов - конструктор можно не вызывать). Так что добавь

Column := TColumn.Create;

и наслаждайся