Скачать: CL | DM;

Здравствуйте уважаемые мастера, вот имеется достойный вопрос о ср   Найти похожие ветки 

← →
Defunct ©   (2004-02-15 21:53) [0]

Здравствуйте уважаемые мастера, вот имеется достойный вопрос о сравнении переменных процедурного типа. Допустим, есть объект TActions, в него поступают и накапливаются в очереди сообщения, которые необходимо выполнить. Формат сообщений примерно такой:
TAction = Record
ExecTime : Real;
FunctionID : TNotifyEvent;
End;
Задача заключается в отлове и удалении повторяющихся сообщений, таких, у которых совпадают ExecTime и владелец функции FunctionID. Если с проверкой ExecTime проблем нет, то при сравнении FunctionID возникает проблема:
@FunctionID указывает на один и тот же метод из таблицы методов класса.

Заполняется FunctionID экземплярами наследников класса TSimpleComponent, у которого есть абстрактный метод StepForward.

TSimpleComponent = class(TComponent, TPersistent)
…
Constructor Create(AOwner:TActions);Override;
Procedure StepForward(Sender:TObject);virtual;abstract;
Procedure AddToQueue;virtual;
…
End;

Procedure TSimpleComponent.AddToQueue;
Var Action:TAction;
Begin
If (Owner is TActions) Then
Begin
Action.ExecTime := CurrentTime^ + Delay;
Action.FunctionID := StepForward;
(Owner as TActions).Add( Action );
End;
End;

Несмотря на то, что заполняют поля TAction разные экземпляры наследников TSimpleComponent, @FunctionID всегда равен одному и тому же значению.

Вопрос: как определяется, при вызове FunctionID, который из экземпляров должен отработать?

Я так и не смог найти ответ на этот вопрос, поэтому пришлось изменить структуру передаваемого сообщения на:

TAction = Record
ExecTime : Real;
Sender : TObject;
End;
Хотелось бы вернуться к изначальному варианту. Заранее спасибо за участие в обсуждении.

---

← →
Soft ©   (2004-02-15 22:15) [1]

Попробуй поменять структуру на:

TAction = Record
ExecTime : Real;
FunctionID : TNotifyEvent;
ActionUniqueID:Int64;//уникальный номер акции в системе
End;

ActionUniqueID вычисляется рандомом или от времени+объем памяти+... тоесть мат. ожидание совпадения должно быть очень низким. Далее ActionUniqueID сверяется со всеми в списке чтоб не было совпадений, если есть - перегенирация. Далее запись заносится в структуру.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.02 c