/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/generics2.pas
26 строк
372 B
Бондарев Иван
extensionmethod in units
24 окт 2015, 21:18
24 окт 2015, 21:18
e269115
Код
Авторство
О чём код?
type list<T> = class procedure Add(a: T); begin assert(a.Equals(5)); assert(a.ToString()='5'); end; procedure Add2(a:T);virtual; begin end; end; My = class(list<integer>) procedure Add2(a: integer);override; begin assert(a.Equals(3)); end; end; begin var m := new My; m.Add(5); m.Add2(3); end.