Какие Шаблоны разработки Вы реализуете в общем программировании Delphi? [закрытый]

It depends. Consider the multi-master replicated case, there could be conflicting entries added there consistent within each master, but not consistent once they replicate. You might only be using one couchdb server, but in general they design it assuming a multimaster case, and don't put in any features that would only work correctly in single unreplicated server.

If you only care about the single server case the conceivably you could rebuild your couchjs with networking support and perform an http query in your validate_doc_update() function that would perform a query against the DB to see if the email address already is already used and fail the update if so. Check here for more details about the validation mechanism. I don't recommend doing that, instead I would embed all the uniqueness in the id field (either directly or via hashing) and just deal with moving the doc if the user changed anything that effected that.

type
  TComponent = class(TPersistent, ...)
    constructor Create(AOwner: TComponent); virtual;
    ...
  end;

Например, конструктор TDirectoryListBox.Create переопределяет его:

type
  TDirectoryListBox = class(...)
    constructor Create(AOwner: TComponent); override;
    ...
  end;

Вы можете сохранить ссылку на класс (аналог классу ссылки на экземпляр объекта) в переменной типа 'тип класса'. Для классов компонентов существует предопределенный тип TComponentClass в модуле Classes :

type
  TComponentClass = class of TComponent;

Когда у вас есть переменная (или параметр) типа TComponentClass, вы можете выполнять полиморфную конструкцию, которая очень похожа на шаблон фабрики:

var
  ClassToCreate: TComponentClass;

...

procedure SomeMethodInSomeUnit;
begin
  ClassToCreate := TButton;
end;

...

procedure AnotherMethodInAnotherUnit;
var
  CreatedComponent: TComponent;
begin
  CreatedComponent := ClassToCreate.Create(Application);
  ...
end;

Delphi RTL использует это, например, здесь:

Result := TComponentClass(FindClass(ReadStr)).Create(nil);

и здесь:

// create another instance of this kind of grid
SubGrid := TCustomDBGrid(TComponentClass(Self.ClassType).Create(Self));

Первое использование в Delphi RTL - это то, как работает весь процесс создания форм, модулей данных, фреймов и компонентов, которые читаются из файла DFM.

Классы формы (datamodule / frame / ...) фактически имеют (опубликованный) список компонентов, которые находятся в форме (datamodule / frame / ...). При чтении файлов DFM Delphi RTL затем:

1. находит имя экземпляра компонента,
2. использует это имя для поиска базовой ссылки на класс,
3. затем использует ссылку на класс для динамического создания правильного объекта

] Обычный разработчик Delphi обычно никогда не видит этого, но без этого весь опыт Delphi RAD не существовал бы.

Аллен Бауэр (главный научный сотрудник Embarcadero) написал небольшой блог также статья по этой теме . Существует также SO вопрос о , где используются виртуальные конструкторы .

Дайте мне знать, достаточно ли это освещает тему виртуального конструктора Create: -)

- -джерун