AlekXL
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код:
program Project4;
{$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)
protected
function Method1():IMyEn;
function GetEnumerator: System.IEnumerator;overload;
// function IMyEnBase.GetEnumerator=GetEnumeratorT;
function IEnumerable<pMyRec>.GetEnumerator=GetEnumeratorT_;
public
function GetEnumeratorT_: System.IEnumerable<pMyRec>;overload;
end;
end;
{ TMyRec.TMEnumerable }
function TMyRec.TMEnumerable.GetEnumerator: System.IEnumerator;
begin
end;
function TMyRec.TMEnumerable.GetEnumeratorT: System.IEnumerable<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 | Отправлено: 15:49 23-08-2016 | Исправлено: AlekXL, 15:50 23-08-2016 |
|
