USES WordsTuning.script ; : InsertLog WORDWORKER DoFiles : DoDirPrim STRING IN aDir WordToWork '*.pas' aDir ProcessFilesWithMask ; // DoDirPrim FORWARD DoDir : DoDir STRING IN aDir aDir . aDir DoDirPrim @ DoDir aDir ProcessSubDirs ; // DoDir : DoRoot STRING IN aRoot @ DoDir aRoot ProcessSubDirs aRoot DoDirPrim ; // DoRoot //'W:common\components\rtl\external\BorlandDelphi\Vcl' DoRoot 'W:common\components\rtl\external\BorlandDelphi' DoRoot 'W:common\components\gui' DoRoot 'W:common\components\rtl\Garant' DoRoot ; // DoFiles : TestFile STRING IN aIn STRING VAR cOut aIn '.log' Cat =: cOut cOut . BOOLEAN VAR l_Changed false =: l_Changed BOOLEAN VAR l_WasEnter false =: l_WasEnter FILE VAR l_In aIn file:OpenRead =: l_In TRY FILE VAR l_Out cOut file:OpenWrite =: l_Out TRY : DoLine W-STRING IN aStr CONST cTouched '{!touched!}' ( l_WasEnter И ( ( aStr РАВНО 'end.' ) ИЛИ ( aStr РАВНО 'finalization' ) ) ) ? ( cTouched l_Out file:WriteStr [[ '{$IfDef LogInit} ' 'WriteLn(''' aIn ' initialization leave'');' ' {$EndIf}' ]] strings:Cat l_Out file:WriteStr #13#10 l_Out file:WriteStr false =: l_WasEnter ) ( aStr "начинается с" cTouched ) ! IF aStr l_Out file:WriteWStrLn ( aStr РАВНО 'initialization' ) ? ( true =: l_Changed true =: l_WasEnter cTouched l_Out file:WriteStr [[ '{$IfDef LogInit} ' 'WriteLn(''' aIn ' initialization enter'');' ' {$EndIf}' ]] strings:Cat l_Out file:WriteStr #13#10 l_Out file:WriteStr ) ELSE true =: l_Changed ENDIF ; l_In file:ReadLines DoLine FINALLY nil =: l_Out END FINALLY nil =: l_In END l_Changed IF aIn DeleteFile ! ? ( [[ 'Не удалось удалить ' aIn ]] strings:Cat . ) cOut aIn RenameFile ! ? ( [[ 'Не удалось переименовать ' cOut ' в ' aIn ]] strings:Cat . ) ELSE cOut DeleteFile ! ? ( [[ 'Не удалось удалить ' cOut ]] strings:Cat . ) ENDIF //cOut '%' tests:CheckEtalon ; // TestFile DoFiles TestFile ; InsertLog
TA = class protected function GetValue: Integer; virtual; procedure SetValue(aValue: Integer); virtual; protected property Value: Integer read GetValue write SetValue; end;
TA = class protected function pm_GetValue: Integer; virtual; procedure pm_SetValue(aValue: Integer); virtual; protected property Value: Integer read pm_GetValue write pm_SetValue; end;
procedure TSomeObject.Cleanup; // override begin SomeOwnCode; inherited Cleanup; end;
procedure TSomeObject.Cleanup; // override begin SomeOwnCode; inherited; end;
type TA = class protected procedure Cleanup; virtual; end; TB = class(TA) private procedure Cleanup; override; end; TC = class(TB) protected procedure Cleanup; override; end;
procedure TC.Cleanup; //override; begin SomeOwnCode; inherited; end;
procedure TC.Cleanup; //override; begin SomeOwnCode; inherited Cleanup; end;
function l3IEQ(const I1, I2: IUnknown): Boolean; {-} var iu1 : IUnknown; iu2 : IUnknown; begin Result := (I1 = I2); if not Result AND (I1 <> nil) AND (I2 <> nil) then begin if Succeeded(I1.QueryInterface(IUnknown, iu1)) then try if Succeeded(I2.QueryInterface(IUnknown, iu2)) then try Result := (iu1 = iu2); finally iu2 := nil; end;//try..finally finally iu1 := nil; end;//try..finally end;//not Result.. end;
TmyReferenceCountGuard = class(TmyInterfacedObject, ImyReferenceCountGuard) {* Класс исключительно для примеров } ... public // public methods class function Make: ImyReferenceCountGuard; reintroduce; {* Фабрика TmyReferenceCountGuard.Make } end;//TmyReferenceCountGuard .... class function TmyReferenceCountGuard.Make: ImyReferenceCountGuard; var l_Inst : TmyReferenceCountGuard; begin l_Inst := Create; try Result := l_Inst; finally l_Inst.Free; end;//try..finally end;
procedure TmyReferenceCountGuardTest.DoIt; var l_G : ImyReferenceCountGuard; begin l_G := TmyReferenceCountGuard.Make; ...
class function TmyReferenceCountGuard.Make: ImyReferenceCountGuard; begin Result := Create; end;
DoSomething(A, B);
if (A = 'X') AND (B = 10) then DoSomething(A, B) // - сюда ставим break-point else DoSomething(A, B);
ImyInterface = interface(IUnknown) end;//ImyInterface TA = class(TInterfacedObject, ImyInterface) end;//TA TB = class(TA, ImyInterface) end;//TB
function TA.SomeMethod: ImyInterface; begin Result := Self; end; ... var l_X : TB; l_A : ImyInterface; l_B : ImyInterface; begin l_X := TB.Create; l_A := l_X.SomeMethod; l_B := l_X As ImyInterface; Assert(l_A = l_B, 'Улыбайтесь пошире и удивляйтесь :-)'); end;
var l_X : TA; l_A : ImyInterface; l_B : ImyInterface; begin l_X := TB.Create; l_A := l_X; l_B := l_X As ImyInterface; Assert(l_A = l_B, 'Улыбайтесь пошире и удивляйтесь :-)'); end;
DoSomething;
try DoSomething; except DoSomething; // - тут ставим бреак-поинт end;