Известные на этот момент ошибки я поотлавливал (некорректно работал с интерфейсами в некоторых местах). Сейчас привожу в божеский вид класс.
Изначально суть была в том, чтоб просто проверить работу интерфейсов, поэтому демка была написана на скоряк. Хотя даже не так. Изначально была попытка помочь ответить тебе на твой вопрос. А потом любопытство взяло вверх. Интересные задачи здесь не так часто попадаются.
Ну а коли взялся, то надо доводить до ума. Либо компонентом сделаю, либо оставлю классом и после тщательных тестов отправлю полноценное демо в "исходники". Учитывая что информации об этом мало, а на Delphi вообще нет (или тщательно скрыта).
__________________
Грамотно поставленный вопрос содержит не менее 50% ответа.
Грамотно поставленная речь вызывает уважение, а у некоторых даже зависть.
|