[DungeonLords]

Привет всем.

Есть код:

Код:

//...[тут объявление формы...]
  TP = class
  public
  Enabled:Boolean;
  end;

  Tx = class
  FPole:TP;
  public
  procedure re(Value:TP);
  published
  property Prop:TP read FPole write re;
  end;

var
  Form1: TForm1;
  xx:Tx;
implementation

{$R *.dfm}

procedure Tx.re(Value:TP);
begin
Prop.Enabled:=Value.Enabled;
end;

procedure TForm1.FormClick(Sender: TObject);
begin
xx:=Tx.create;
xx.Prop.Enabled:=True;
end;
...

При нажатии на форму вылетает AV, а нужно, чтобы записывалось xx.Prop.Enabled:=True. Что я не так сделал?

[NumLock]

конструктор!

PHP код:

Tx = class
  FPole:TP;
  public
  procedure re(Value:TP);
  constructor Create;
  published
  property Prop:TP read FPole write re;
  end;

constructor Tx.Create;
begin
  FPole:=TP.Create;
end; 


[Asinkrit]

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

При нажатии на форму вылетает AV, а нужно, чтобы записывалось xx.Prop.Enabled:=True. Что я не так сделал?

Зачем такой простой механизм, так сложно реализовывать?

[Bars1992]

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

Зачем такой простой механизм, так сложно реализовывать?

Возможно он это делает в учебных целях

[NumLock]

кста, про деструктор думаю догадался

[Страдалецъ]

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

Зачем такой простой механизм, так сложно реализовывать?

Знаете, лапша Доширак тоже очень простая штука, но прежде чем ее есть ее все-же лучше залить водой. Здесь та-же аналогия, прежде чем обратится к свойству классовой переменной, переменную надо приготовить для этого.

[PhoeniX]

2Страдалецъ, мб Asinkrit имел ввиду, зачем

Код:

  TP = class  public
    Enabled: Boolean;
  end;

когда можно

Код:

  TP = record
    Enabled: Boolean;
  end;

?

[Страдалецъ]

Возможно, но класс более удобен в дельфи т.к. во многих компонентах пользовательские данные должны иметь классовую обертку.

[DungeonLords]

NumLock, большое спасибо. Ошибка пропала, всё работает. Спасибо...

Сообщение от Страдалецъ

Возможно, но класс более удобен в дельфи т.к. во многих компонентах пользовательские данные должны иметь классовую обертку.

Точно.