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]

sheka
Ты думаешь это все, чего можно добиться Свойствами? Ошибаешься. Опиши оба свойства (и Column в классе TColumn, и Row в классе TRow) как Default, и тогда обращение к содержимому матрицы упростится:

function TFunc.Mult(a,b:TMatr;N:byte):TMatr;
var
  i,j,s:byte;
  v:integer;
begin
  result := TMatr.Create;
  for i:=1 to N do
    for j:=1 to N do
      begin
        v:=0;
        for s:=1 to N do
          begin
            // inc(v,a.Row[i].Column[s].Value*b.Row[s].Column[j].Value); // <---вот это
            inc(v,a[i][s].Value*b[s][j].Value); // <--- Может выглядеть так
            result[i][j].Value:=v;                   // <---
          end;
      end;
end;