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]

Угу... Вот для этого и придумали конструкторы. Чтобы в момент конструирования TColumn тебе не пришлось заботиться о создании каждого элемента Col - сделай так:

Constructor TColumn.Create;
begin
  Inherited Create;
  for i := 1 to N do Col[i] := TCol.Create;
end;

Кстати, я бы заменил функции на property, чтоб было совсем хорошо

  TYac = {object}class
  private
    Znac:integer;
  public
    property Value:integer read Znac write Znac;
  end;

function TColumn.GetZnac(i:integer):integer;
begin
  result := Col[i].Value;
end;
procedure TColumn.PutZnac(i,z:integer);
begin
  Col[i].Value := z;
end;

Не проще?

Можно и еще дальше пойти, и GetZnaс/PutZnaс в классе TColumn тоже на свойство поменять.