Есть некий класс, допустим:
TListEx<T: TBaseClass> = class ...
....
procedure Sort;
....
end;
и есть некое событие TNotifyEvent, где необходимо вызвать этот Sort:
procedure TMyForm.ListEvent(Sender: TObject);
begin
....
(Sender as ??????).Sort;
end;
Вопрос: что должно быть написано вместо "?????" ? Если туда написать TListEx<TBaseClass>
, то при вызове метода с Sender = TListEx<TExtClass>
(TExtClass = class(TBaseClass)
) всё равно получаю ошибку несоответствия типов 'invalid class typecast'.
Но ведь метод-то всё равно общий? Как обойти данную неприятность?
Точнее, на данный момент я решил это как TListEx<TBaseClass>(Sender).Sort
, но хотелось бы всё-таки сделать через as
для надёжности.
TListEx<TBaseClass
> иTListEx<TExtClass>
это совершенно разные вещи (у них нет общего предка). У вас наследуется параметр, а не класс. Поэтому и не приводит его . Вот если бы вы написалиTListEx<T> = class(TListEx)
с методомsort()
и приводили бы к нему, то все было бы нормально.TListEx<T>