Как организовать event'ы у своего класса(потока)?

[psycho-coder]

Я тоже, чтоль отпишусь))

type
  TMyClass = class
  private:
    FVar: Integer;
   public:
    property SetVar: Integer write FVar;
    property GetVar: Integer read FVar;
    property MVar: Integer read FVar write FVar default 0;
  end;

Тут FVar переменная которую видно только внутри класса TMyClass.
Свойство SetVar устанавливает новое значение для FVar прочитать его с помощью
этого свойства неполучится.
GetVar соответственно читает значение, установить с помощью этого свойства новое
не получится.
MVar позволяет читать и записывать значения, default озночает, если новое
значение не записывается и не считывается

var
  MyClass: TMyClass;
begin
  MyClass.MVar;
end;

, то в него будет занесено 0 (кажется так).

Есть еще способ задания значений и считываний
например с преобразованиями:

type
  TMyClass = class
  priavte:
    FVar: Integer;
    function FGetVar: Integer;
    procedure PSetVar(new: Integer);
   public:
    property SetVar: Integer write PSetVar;
    property GetVar: Integer read FGetVar;
    property MVar: Integer read FGetVar write PSetVar;
  end;
  
funtcion TMyClass.FGetVar: Integer;
begin
  Result := FVar * 1000;
end;

procedure TMyClass.PSetVar(new: Integer);
begin
  if FVar <> new 
    FVar := Round(new / 1000);
end;

end.

В этом примере при использовании свойства на чтение результат вернет функция
FGetVar, а при задании нового значения, будет выполнятся процедура PSetVar

var 
  MyClass: TMyClass;
  i: Integer;
begin
  MyClass.MVar := i;
end;

Здесь, значение из i передается как входной параметр в процедуру PSetVar.

Ну и смешанный вариант:

type
  TMyClass = class
  priavte:
    FVar: Integer;
    procedure PSetVar(new: Integer);
   public:
    property SetVar: Integer write PSetVar;
    property GetVar: Integer read FVar;
    property MVar: Integer read FVar write PSetVar;
  end;

Тут при считывании, считывается значение как есть. Будет в FVar 5 и вернет 5.
Остальное надеюсь понятно.

[TwiX]

Обычные свойства типа

property MVar: Integer read FVar write FVar default 0;

Я знал и было очень легко для понимания, но вот с событиями никак не могу разобраться=)

[psycho-coder]

Тот же самый принцип. Можно в read указать на другой класс например ))

[Пепел Феникса]

psycho-coder

уточню...методы чтения(Get) и записи(Set) принято именовать так
Get<имя св-ва> Set<имя св-ва>
принято так в Делфи...да и не только там
в том же С++ также(правда там самого property нет)

[psycho-coder]

Сообщение от Пепел Феникса

уточню...методы чтения(Get) и записи(Set) принято именовать так
Get<имя св-ва> Set<имя св-ва>
принято так в Делфи...да и не только там
в том же С++ также(правда там самого property нет)

Где принято? Для облегчения читабельности - да.
У меня они так называются, потому что такие названия уже есть.
Вот специально попробовал, все работает!

  TMyClass = class
  private
    FVar: Integer;
    function gVar: Integer;
  public
    //property SetVar: Integer write FVar;
    //property GetVar: Integer read FVar;
    property MVar: Integer read gVar write FVar default 0;
  end;


procedure TForm1.Button1Click(Sender: TObject);
var
  my: TMyClass;
begin
  my := TMyClass.Create;
  my.MVar := 1;
  Tag := my.MVar;
  my.Free;
end;


function TMyClass.gVar: Integer;
begin
  Result := FVar;
end;

[Пепел Феникса]

Где принято?

я думаю на счет оформления кода, это вполне принято, ибо сразу понятно что за что отвечает.
+иногда бывает нужно переопределять методы...и следование стандарту это очень упрощает....ибо в Делфи можно заныкать методы...(в С++ не выйдет, иначе ты в принципе не сможешь прочесть)
насчет имен, это вполне принято как и типы начинать с T(TForm и тд)
исключения я знаю в названиях структур которые идут от С(апишные)

[psycho-coder]

Ну это я и имел ввиду под читабельностью.

[TwiX]

Хоть убейте... Никак не пойму)
Можно простенький примерчик?
Вот я пытался сделать:

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure asd(var s:string);
    procedure bsd(var s:string);
    procedure FormCreate(Sender: TObject);
  private
    property onCaption: TNotifyEvent read asd write asd;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  asd('*');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  onCaption:=bsd;
end;

procedure TForm1.asd(var s:string);
begin
  Form1.Caption:=Form1.Caption+s;
end;

procedure TForm1.bsd(var s:string);
begin
  ShowMessage('Hooked');
end;

[Пепел Феникса]

эмм...Твикс а ты что вообще хочешь сделать??

[TwiX]

Хочу что бы у потока было свойсвто onDone или что-то в этом роде)