В чем ошибка?(Индексированные свойства)

[danek130995]

Выдается ошибка Project Project2 raised exception class EClassNotFound with message 'class TShape not found'. Прога рисует прямоугольник с использованием индексированных свойств.

Unit1:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ExtCtrls, Unit2;

type
  TForm1 = class(TForm)
    clrbx1: TColorBox;
    trckbr1: TTrackBar;
    trckbr2: TTrackBar;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    btn1: TButton;

    procedure btn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure clrbx1Change(Sender: TObject);
    procedure trckbr1Change(Sender: TObject);
    procedure trckbr2Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  MyShape:TMyShape;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   MyShape:=TMyShape.Create(self);
   MyShape.Brush.Color:=clrbx1.Selected;
   MyShape._Height:=200;
   MyShape._Width:=200;
end;

procedure TForm1.clrbx1Change(Sender: TObject);
begin
    MyShape._Color:=clrbx1.Selected;
    MyShape.Brush.Color:=MyShape._Color;
end;

procedure TForm1.trckbr1Change(Sender: TObject);
begin
   MyShape._Height:=trckbr1.Position;
   MyShape.Height:=200+3*MyShape._Height;
end;

procedure TForm1.trckbr2Change(Sender: TObject);
begin
  MyShape._Width:=trckbr2.Position;
  MyShape.Width:=200+10*MyShape._Width;
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
  Form1.Close;
end;

end.



Unit2:
unit Unit2;

interface
  uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ExtCtrls;
type
    TMyShape=class(TShape)
   private
       Options:  array[1..3] of integer;
       function  GetOption(const Index: integer): integer;
       procedure SetOption(const Index, Value: integer);
   public
      property _Color:integer 	index 1 read GetOption write SetOption;
      property _Width:integer 	index 2 read GetOption write SetOption;
      property _Height:integer 	index 3 read GetOption write SetOption;
   end;


var
  MyShape:TMyShape;

implementation

function TMyShape.GetOption(const Index: integer): integer;
begin
   result:=Options[index];
end;

procedure TMyShape.SetOption(const Index, Value: integer);
begin
   Options[index]:=value;
end;

end.

[min@y™]

ну так очевидно же – ошибка в 17-й строке!
Ну и бонус тебе, конечно!

[danek130995]

Я не нашел кнопки для вставки кода! Я дико извиняюсь за такой код

Сообщение от min@y™

ну так очевидно же – ошибка в 17-й строке!
Ну и бонус тебе, конечно!

не могли бы вы поточнее пожалуйста сказать, в какой строке? где именно?

[min@y™]

плохо искалЪ?

[danek130995]

Сообщение от min@y™

плохо искалЪ?

Исправил) так где именно ошибка?

[min@y™]

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

не могли бы вы поточнее пожалуйста сказать, в какой строке? где именно?

это мем такой. он означает, что именно ты должен сообщить, в каком месте у тебя вылазит сабж.
в данном случае можно поюзать отладчик.

з.ы. неотформатированный код и/или код без подсветки я не читаю, если в нём больше 5 строк.

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

Исправил) так где именно ошибка?

в какой момент возикает сабж?
дебаггер юзал?

[Аватар]

http://www.delphibasics.co.uk/RTL.asp?Name=Property
Где типы свойств? Ну и на геттер и сеттер посмотри как пишут

[Rin]

пишу с экранной клавы- не пинайте за пунктуацию.
компиль говорит, что не находит тшейп. то есть либо не подключена библиотека в юните 2 - либо ошиба в том - как ты опсываешь св-ва, что скорее всего.

    TMyShape=class(TShape)
   private
       Options:  array[1..3] of integer;

так писать неьзя.

  
Topt= array[1..3] of integer; 
 TMyShape=class(TShape)
   private
       Options: Topt ;

А вот так можно.

помню сам столкнулся с этим. правда мне нужен был динамический массив в классе. а не статический.

Советую почитать - петр дарахвелидзе евгений марков программирование в Delphi 7. где-то на первых 60-70-ти станицах про индексированные св-ва пишут. сорри, что точно не могу скзаать страницу.

[phomm]

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

Options:  array[1..3] of integer;

так писать неьзя.

Можно. Наверное, путаете с подпрограммами, а в классах/структурах можно.

[Rin]

Извиняюсь за дезинформацию, вчера в полусонном состоянии писал. Вспомнил, почему описывал дин. массив как тип. Гетером и сетером нужно было передавать дин. массив в свойство, а они должны быть одинакового типа.
Только что запустил в delphi ваш код, у вас нет ошибок. У меня все компилится.