Объявления событий

[Aleksey1989]

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

   property OnSecond: TNotifyEvent read FOnSecond write FOnSecond;
   property OnMinute: TNotifyEvent read FOnMinute write FOnMinute;
   property OnHour: TNotifyEvent read FOnHour write FOnHour;

[Риндера]

А можно уточнить на каком языке это?)

На сколько я понимаю (по делфи):
запись в событие - это присваивание событию, например кнопки, onClick какого-то значения (имени процедуры, функции и тп).
Buttn1.onClick := StartProcedure

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

Как-то так...

[_-Re@l-_]

А можно уточнить на каком языке это?)

Неужели Delphi настолько сложно узнать?
Просто такие директивы как property, published, protected, и т.п. используются нечасто(как правило).

[Roof]

2 _-Re@l-_ - каждый день использую (как правильно)

[Риндера]

Сообщение от _-Re@l-_

Неужели Delphi настолько сложно узнать?
Просто такие директивы как property, published, protected, и т.п. используются нечасто(как правило).

Просто не писала на делфи нормальных проектов со времен диплома прошлой весной) Так смотрю на TNotifyEvent - вроде делфи, а записей вроде того что идет далее - не встречала...)

[_-Re@l-_]

2 _-Re@l-_ - каждый день использую (как правильно)

Я вот последний раз юзал их где-то в июне...

[Roof]

Классы свои когда пишу, модифицирую, тогда и использую.
Ежедневная почти работа.

[_-Re@l-_]

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

Классы свои когда пишу, модифицирую, тогда и использую.
Ежедневная почти работа.

А, ну тогда понятно.
Я их юзал, когда свои компоненты писал.

[profi]

Вот пример:

  MyClass = class
    private
      i : integer;
    public
      procedure setI(n : integer);
      function getI() : integer;
      property myI : integer read getI write setI;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure MyClass.setI(n : integer);
  begin
    i := n;
end;

function MyClass.getI() : integer;
  begin
    Result := i;
  end;

procedure TForm1.Button1Click(Sender: TObject);
  var
    obj : MyClass;
begin
  obj := MyClass.Create;
  obj.myI := 7;
  ShowMessage(IntToStr(obj.myI));
end;

Property могут принимать и возвращать только одно значение и только одного типа.

[_-Re@l-_]

 MyClass = class
    private
      i : integer;
    public
      procedure setI(n : integer);
      function getI() : integer;
      property myI : integer read getI write setI;
  end;

Вы директиву type пропустили..