Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.12.06;
Скачать: 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 вся ветка

Текущий архив: 2009.12.06;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.008 c
15-1254768851
freeman1
2009-10-05 22:54
2009.12.06
Устроство подключено


2-1255610309
XTasy
2009-10-15 16:38
2009.12.06
Глобальные переменные delphi


15-1255010538
@!!ex
2009-10-08 18:02
2009.12.06
Чем можно докачать файл?


15-1255001989
картман
2009-10-08 15:39
2009.12.06
"Служба XXX неожиданно прервана" Service Control Manager код 7034


1-1228119004
parasolka
2008-12-01 11:10
2009.12.06
Передача параметров в Dll.