Alexey_Gawrilow
Advanced Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Код:
/// <summary>Object Guard.</summary>
function _gO(Obj: TObject): IObjectGuard; overload;
/// <summary>Object Guard.</summary>
function _gO(Obj: TObject; out Ref): IObjectGuard; overload;
...
var
f: TfmSelectListView;
begin
_gO(TfmSelectListView.Create(Self), f);
|
Код:
IQueryFluentGuard = interface(IInterface)
['{03AE6085-54B0-4C91-A34A-23A366203921}']
/// <summary>SetVariable.</summary>
function v(const AName: string; const AValue: Variant): IQueryFluentGuard; overload;
/// <summary>SetVariable.</summary>
function v(const Index: Integer; const AValue: Variant): IQueryFluentGuard; overload;
/// <summary>GetVariable.</summary>
function r(const AName: string): Variant; overload;
function r(const AName: string; out Value: Variant): IQueryFluentGuard; overload;
/// <summary>Execute+GetVariable.</summary>
function Execute: IQueryFluentGuard; overload;
procedure Commit;
end;
/// <summary>При входе ClearVariables. При выходе выполняет Close.</summary>
function _gFluent(q: TOracleQuery): IQueryFluentGuard; overload;
var v: Variant;
begin
_gFluent(qSesnNew)//:P_AUTH,  _CLNT, _NAME, _ID
.v(':P_AUTH', iAuth)
.v(':P_CLNT', iClnt)
.v(':P_NAME', sName)
.Execute
.r(':P_ID', v)
.Commit;
|
Код:
type
IActiveMemento = interface(IInterface)
['{A44E7C01-D995-4F6E-B45D-9835AE4F31FB}']
function ds: TDataset;
end;
function NewActiveGuard(aDS: TDataset; Reopen: Boolean = True): IActiveMemento; deprecated;
function NewEnumGuard(aDS: TDataset; Reopen: Boolean = True): IActiveMemento; deprecated;
function _gActive(aDS: TDataset; Reopen: Boolean = True): IActiveMemento;
function _gEnum(aDS: TDataset; Reopen: Boolean = True; FirstOnFinish: Boolean = False): IActiveMemento;
|
|
