anchor.diff:  interface
   
   uses
  -  Generics.Collections, Classes, UCrypto, UAccounts, ULog, UThread, SyncObjs, SysUtils, UCommon;
  -
  +  Classes, UCrypto, UAccounts, ULog, UThread, SyncObjs;
   {$I config.inc}
   
   {
  
positive.code:     Procedure Clear(DeleteOperations : Boolean);
      Function Count: Integer;
      Property OperationBlock: TOperationBlock read FOperationBlock;
      Class Function OperationBlockToText(OperationBlock: TOperationBlock) : AnsiString;
      Class Function SaveOperationBlockToStream(Const OperationBlock: TOperationBlock; Stream: TStream) : Boolean;
      Property AccountKey: TAccountKey read GetAccountKey write SetAccountKey;
      Property nonce: Cardinal read GetnOnce write SetnOnce;
  
negative.code:   end;
  end;
  
  class function TPCOperationsComp.OperationBlockToText(const OperationBlock: TOperationBlock): AnsiString;
  begin
    Result := Format('Block:%d Timestamp:%d Reward:%d Fee:%d Target:%d PoW:%s Payload:%s Nonce:%d OperationsHash:%s SBH:%s',[operationBlock.block,
      operationblock.timestamp,operationblock.reward,operationblock.fee, OperationBlock.compact_target, TCrypto.ToHexaString(operationblock.proof_of_work),
      OperationBlock.block_payload,OperationBlock.nonce,TCrypto.ToHexaString(OperationBlock.operations_hash),
      TCrypto.ToHexaString(OperationBlock.initial_safe_box_hash)]);
  end;
  
  class function TPCOperationsComp.RegisterOperationClass(OpClass: TPCOperationClass): Boolean;
  