Переопределение метода для каждого экземпляря класса

[vsrmis]

Сделал приблизительно так

TUser = class 

FValue :Integer;
procedure SetValue(AValue:Integer);
function GetValue:Integer;
property Value:Integer read GetValue write SetValue;
procedure onValueChanged;virtual;

end;

procedure TUser.SetValue(AValue:Integer);
begin
FValue = AValue;
onValueChanged;
end;


procedure TUser.onValueChanged;
begin

end;

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

Сначала думал сделать так

var 
User1:TUser1
User2:TUser1

begin
procedure User1.onValueChanged;override;
begin
//блаблабла
end;
end.

но нет , так сделать нельзя. Ка организовать подобный функционал?

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

вам нужен аналог событий компонентов, ибо они не привязаны к классам(не считая специализированных классов), посмотрите как это делается в сорцах компонентов.

[veniside]

или можно так:

TMyUser = class(TUser)
private
  f_someData: string;
protected
  procedure onValueChanged(); override;
public
  constructor Create(const someData: string);
end;

{ TMyUser }

procedure TMyUser.onValueChanged(); 
begin
  inherited onValueChanged();
  //
  Memo.Text := f_someData; // "чтоб выводил кое какие данные в свой Memo"
end;

constructor Create (const someData: string);
begin
  f_someData := someData;
  //
  inherited Create();
end;

и потом создаём 2 юзера, каждый со своими "кое какие данными" для вывода в Мемо:

var
  user1, user2: TMyUser;
begin
  user1 := TMyUser.Create('Кое-какие данные для юзера №1');
  user2 := TMyUser.Create('Кое-какие данные для юзера №2');
  //  ...
end;

[vsrmis]

Надо чтоб у разных юзеров разные Мемо были

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

ну можно еще передавать мемо в конструктор.

[ReportCube]

Воспользуйтесь созданным свойством в классе TUser

property OnChange: TNotifyEvent read FOnChange wtite FOnChange;
////// 
procedure TUser.SetValue(AValue:Integer);
begin
  FValue = AValue;
  if Assigned(FOnChange) then
    FOnChange(Self); // Тем самым передаёте класс в обработчик
end;

[vsrmis]

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

Воспользуйтесь созданным свойством в классе TUser

property OnChange: TNotifyEvent read FOnChange wtite FOnChange;
////// 
procedure TUser.SetValue(AValue:Integer);
begin
  FValue = AValue;
  if Assigned(FOnChange) then
    FOnChange(Self); // Тем самым передаёте класс в обработчик
end;

Не совсем то что я хотел, но сделали менно так, работает спасибо.