unit Unit1;
interfaceconst N=3;
type
TYac = {object}classprivate
Znac:integer;
publicfunction GetZnac:integer;
procedure PutZnac(z:integer);
end;
TColumn = {object}classprivate
Col:array[1..N] of TYac;
publicfunction GetZnac(i:integer):integer;
procedure PutZnac(i,z:integer);
end;
implementationfunction 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