anchor.diff:      Property HasValidSignature : Boolean read FHasValidSignature;
       Class function OperationHash_OLD(op : TPCOperation; Block : Cardinal) : TRawBytes;
       Class function OperationHashValid(op : TPCOperation; Block : Cardinal) : TRawBytes;
  -    class function IsValidOperationHash(const AOpHash : AnsiString) : Boolean;
  -    class function TryParseOperationHash(const AOpHash : AnsiString; var block, account, n_operation: Cardinal; var md160Hash : TRawBytes) : Boolean;
  +    class function IsValidOperationHash(const AOpHash : String) : Boolean;
  +    class function TryParseOperationHash(const AOpHash : String; var block, account, n_operation: Cardinal; var md160Hash : TRawBytes) : Boolean;
       Class function DecodeOperationHash(Const operationHash : TRawBytes; var block, account,n_operation : Cardinal; var md160Hash : TRawBytes) : Boolean;
       Class function EqualOperationHashes(Const operationHash1, operationHash2 : TRawBytes) : Boolean;
  -    Class function FinalOperationHashAsHexa(Const operationHash : TRawBytes) : AnsiString;
  -    class function OperationHashAsHexa(const operationHash : TRawBytes) : AnsiString;
  +    Class function FinalOperationHashAsHexa(Const operationHash : TRawBytes) : String;
  +    class function OperationHashAsHexa(const operationHash : TRawBytes) : String;
       class function GetOpReferenceAccount(const opReference : TOpReference) : Cardinal;
       class function GetOpReferenceN_Operation(const opReference : TOpReference) : Cardinal;
       function Sha256 : TRawBytes;
  
positive.code:   end;
  end;
  
  procedure TPCBank.NewLog(Operations: TPCOperationsComp; Logtype: TLogType; Logtxt: AnsiString);
  var s : AnsiString;
  begin
    if Assigned(Operations) then s := Operations.ClassName
    else s := Classname;
  
negative.code:     Procedure Clear(DeleteOperations : Boolean);
      Function Count: Integer;
      Property OperationBlock: TOperationBlock read FOperationBlock;
      Class Function OperationBlockToText(const OperationBlock: TOperationBlock) : String;
      Class Function SaveOperationBlockToStream(Const OperationBlock: TOperationBlock; Stream: TStream) : Boolean;
      Property AccountKey: TAccountKey read GetAccountKey write SetAccountKey;
      Property nonce: Cardinal read GetnOnce write SetnOnce;
  