Скачать: CL | DM;

Как реализован синглетон TRttiContext?   Найти похожие ветки 

← →
Kolan ©   (2009-10-08 10:54) [0]

В Делфи 2010 TRttiContext — синглетон. Но я не могу понять как реализован этот паттерн.

TRttiContext = record
 private
   FContextToken: IInterface;
 public
   class function Create: TRttiContext; static;
   procedure Free;
   
   function GetType(ATypeInfo: Pointer): TRttiType; overload;
   function GetType(AClass: TClass): TRttiType; overload;
   function GetTypes: TArray<TRttiType>;
   function FindType(const AQualifiedName: string): TRttiType;
   function GetPackages: TArray<TRttiPackage>;
 end;
...

class function TRttiContext.Create: TRttiContext;
begin
 Result.FContextToken := nil;
end;

procedure TRttiContext.Free;
begin
 FContextToken := nil;
end;



Нету привычного GetInstance, объект вроде нигде не создается. Как это работает? Объясните?

---

← →
Kolan ©   (2009-10-08 10:56) [1]

Тьфу, это запись. class function в записи выглядит странно.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c