AlekXL
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Код: program Project5; {$APPTYPE CONSOLE} {$R *.res} uses System.SysUtils,System.Generics.Collections, system.Generics.Defaults; type pMyRec=^TMyRec; IMyEnBase=IEnumerable<pMyRec>; IMyEn=interface(IMyEnBase) function Method1():IMyEn; end; TMyRec=record private FM1:integer; type TMEnumerable=class(TInterfacedObject, IMyEn,IMyEnBase) protected function Method1():IMyEn; function GetEnumerator: System.IEnumerator;overload; // function IMyEnBase.GetEnumerator=GetEnumeratorT; function IMyEnBase.GetEnumerator=GetEnumeratorT; public function GetEnumeratorT: IEnumerator<pMyRec>;overload; end; end; { TMyRec.TMEnumerable } function TMyRec.TMEnumerable.GetEnumerator: System.IEnumerator; begin end; function TMyRec.TMEnumerable.GetEnumeratorT: System.IEnumerator<pMyRec>; begin end; function TMyRec.TMEnumerable.Method1: IMyEn; begin end; begin try { TODO -oUser -cConsole Main : Insert code here } except on E: Exception do Writeln(E.ClassName, ': ', E.Message); end; end. | | Всего записей: 792 | Зарегистр. 24-04-2008 | Отправлено: 18:38 23-08-2016 | Исправлено: AlekXL, 18:51 23-08-2016 |
|