AnsiString to String on gui-classic

src/gui-classic/UFRMAccountSelect.pas

@@ -158,7 +158,7 @@ procedure TSearchThread.BCExecute;
     account : TAccount;
     isValid : Boolean;
     validAccKey : Boolean;
-    errors : AnsiString;
+    errors : String;
     i : Integer;
   begin
     SetLength(FAccounts,0);

src/gui-classic/UFRMOperation.pas

@@ -155,15 +155,15 @@ type
     Procedure UpdateWalletKeys;
     { Private declarations }
     Procedure UpdateAccountsInfo;
-    Function UpdateFee(var Fee : Int64; errors : AnsiString) : Boolean;
-    Function UpdateOperationOptions(var errors : AnsiString) : Boolean;
-    Function UpdatePayload(Const SenderAccount : TAccount; var errors : AnsiString) : Boolean;
-    Function UpdateOpTransaction(Const SenderAccount : TAccount; var DestAccount : TAccount; var amount : Int64; var errors : AnsiString) : Boolean;
-    Function UpdateOpChangeKey(Const TargetAccount : TAccount; var SignerAccount : TAccount; var NewPublicKey : TAccountKey; var errors : AnsiString) : Boolean;
-    Function UpdateOpListForSale(Const TargetAccount : TAccount; var SalePrice : Int64; var SellerAccount,SignerAccount : TAccount; var NewOwnerPublicKey : TAccountKey; var LockedUntilBlock : Cardinal; var errors : AnsiString) : Boolean;
-    Function UpdateOpDelist(Const TargetAccount : TAccount; var SignerAccount : TAccount; var errors : AnsiString) : Boolean;
-    Function UpdateOpBuyAccount(Const SenderAccount : TAccount; var AccountToBuy : TAccount; var amount : Int64; var NewPublicKey : TAccountKey; var errors : AnsiString) : Boolean;
-    Function UpdateOpChangeInfo(Const TargetAccount : TAccount; var SignerAccount : TAccount; var changeName : Boolean; var newName : TRawBytes; var changeType : Boolean; var newType : Word; var errors : AnsiString) : Boolean;
+    Function UpdateFee(var Fee : Int64; errors : String) : Boolean;
+    Function UpdateOperationOptions(var errors : String) : Boolean;
+    Function UpdatePayload(Const SenderAccount : TAccount; var errors : String) : Boolean;
+    Function UpdateOpTransaction(Const SenderAccount : TAccount; var DestAccount : TAccount; var amount : Int64; var errors : String) : Boolean;
+    Function UpdateOpChangeKey(Const TargetAccount : TAccount; var SignerAccount : TAccount; var NewPublicKey : TAccountKey; var errors : String) : Boolean;
+    Function UpdateOpListForSale(Const TargetAccount : TAccount; var SalePrice : Int64; var SellerAccount,SignerAccount : TAccount; var NewOwnerPublicKey : TAccountKey; var LockedUntilBlock : Cardinal; var errors : String) : Boolean;
+    Function UpdateOpDelist(Const TargetAccount : TAccount; var SignerAccount : TAccount; var errors : String) : Boolean;
+    Function UpdateOpBuyAccount(Const SenderAccount : TAccount; var AccountToBuy : TAccount; var amount : Int64; var NewPublicKey : TAccountKey; var errors : String) : Boolean;
+    Function UpdateOpChangeInfo(Const TargetAccount : TAccount; var SignerAccount : TAccount; var changeName : Boolean; var newName : TRawBytes; var changeType : Boolean; var newType : Word; var errors : String) : Boolean;
     procedure SetDefaultFee(const Value: Int64);
     Procedure OnSenderAccountsChanged(Sender : TObject);
     procedure OnWalletKeysChanged(Sender : TObject);
@@ -216,7 +216,7 @@ end;
 { TFRMOperation }
 
 procedure TFRMOperation.actExecuteExecute(Sender: TObject);
-Var errors : AnsiString;
+Var errors : String;
   P : PAccount;
   i,iAcc : Integer;
   wk : TWalletKey;
@@ -440,7 +440,7 @@ end;
 
 procedure TFRMOperation.bbPasswordClick(Sender: TObject);
 Var s : String;
-  errors : AnsiString;
+  errors : String;
 begin
   if FWalletKeys.IsValidPassword then begin
   end else begin
@@ -598,7 +598,7 @@ begin
 end;
 
 procedure TFRMOperation.ebNewPublicKeyExit(Sender: TObject);
-var errors : AnsiString;
+var errors : String;
 begin
   UpdateOperationOptions(errors);
 end;
@@ -645,7 +645,7 @@ begin
 end;
 
 procedure TFRMOperation.memoPayloadClick(Sender: TObject);
-Var errors : AnsiString;
+Var errors : String;
 begin
   if SenderAccounts.Count>0 then begin
     UpdatePayload(TNode.Node.Bank.SafeBox.Account(SenderAccounts.Get(0)),errors);
@@ -653,7 +653,7 @@ begin
 end;
 
 procedure TFRMOperation.OnSenderAccountsChanged(Sender: TObject);
-Var errors : AnsiString;
+Var errors : String;
 begin
   if SenderAccounts.Count>1 then begin
     ebAmount.Text := 'ALL BALANCE';
@@ -683,7 +683,7 @@ begin
 end;
 
 procedure TFRMOperation.PageControlOpTypeChange(Sender: TObject);
-var errors : AnsiString;
+var errors : String;
 begin
   UpdateOperationOptions(errors);
 end;
@@ -781,7 +781,7 @@ begin
   End;
 end;
 
-function TFRMOperation.UpdateFee(var Fee: Int64; errors: AnsiString): Boolean;
+function TFRMOperation.UpdateFee(var Fee: Int64; errors: String): Boolean;
 begin
   errors := '';
   if trim(ebFee.Text)<>'' then begin
@@ -794,12 +794,12 @@ begin
 end;
 
 procedure TFRMOperation.updateInfoClick(Sender: TObject);
-Var errors : AnsiString;
+Var errors : String;
 begin
   UpdateOperationOptions(errors);
 end;
 
-function TFRMOperation.UpdateOpBuyAccount(const SenderAccount: TAccount; var AccountToBuy: TAccount; var amount: Int64; var NewPublicKey: TAccountKey; var errors: AnsiString): Boolean;
+function TFRMOperation.UpdateOpBuyAccount(const SenderAccount: TAccount; var AccountToBuy: TAccount; var amount: Int64; var NewPublicKey: TAccountKey; var errors: String): Boolean;
 var c : Cardinal;
   i : Integer;
 begin
@@ -854,7 +854,7 @@ begin
 end;
 
 function TFRMOperation.UpdateOpChangeInfo(const TargetAccount: TAccount; var SignerAccount : TAccount;
-   var changeName : Boolean; var newName: TRawBytes; var changeType : Boolean; var newType: Word; var errors: AnsiString): Boolean;
+   var changeName : Boolean; var newName: TRawBytes; var changeType : Boolean; var newType: Word; var errors: String): Boolean;
 var auxC : Cardinal;
   i : Integer;
   errCode : Integer;
@@ -937,7 +937,7 @@ begin
   end;
 end;
 
-function TFRMOperation.UpdateOpChangeKey(Const TargetAccount : TAccount; var SignerAccount : TAccount; var NewPublicKey: TAccountKey; var errors: AnsiString): Boolean;
+function TFRMOperation.UpdateOpChangeKey(Const TargetAccount : TAccount; var SignerAccount : TAccount; var NewPublicKey: TAccountKey; var errors: String): Boolean;
 var i : Integer;
   auxC : Cardinal;
 begin
@@ -1001,7 +1001,7 @@ begin
   end;
 end;
 
-function TFRMOperation.UpdateOpDelist(const TargetAccount : TAccount; var SignerAccount : TAccount; var errors: AnsiString): Boolean;
+function TFRMOperation.UpdateOpDelist(const TargetAccount : TAccount; var SignerAccount : TAccount; var errors: String): Boolean;
 Var auxC : Cardinal;
 begin
   lblDelistErrors.Caption := '';
@@ -1051,11 +1051,11 @@ begin
   end;
 end;
 
-function TFRMOperation.UpdateOperationOptions(var errors : AnsiString) : Boolean;
+function TFRMOperation.UpdateOperationOptions(var errors : String) : Boolean;
 Var
   iWallet,iAcc : Integer;
   wk : TWalletKey;
-  e : AnsiString;
+  e : String;
   sender_account,dest_account,seller_account, account_to_buy, signer_account : TAccount;
   publicKey : TAccountKey;
   salePrice, amount : Int64;
@@ -1163,7 +1163,7 @@ end;
 function TFRMOperation.UpdateOpListForSale(const TargetAccount: TAccount;
   var SalePrice: Int64; var SellerAccount, SignerAccount: TAccount;
   var NewOwnerPublicKey: TAccountKey; var LockedUntilBlock: Cardinal;
-  var errors: AnsiString): Boolean;
+  var errors: String): Boolean;
 var auxC : Cardinal;
 begin
   Result := False;
@@ -1257,7 +1257,7 @@ begin
   End;
 end;
 
-function TFRMOperation.UpdateOpTransaction(const SenderAccount: TAccount;  var DestAccount: TAccount; var amount: Int64;  var errors: AnsiString): Boolean;
+function TFRMOperation.UpdateOpTransaction(const SenderAccount: TAccount;  var DestAccount: TAccount; var amount: Int64;  var errors: String): Boolean;
 Var c : Cardinal;
 begin
   Result := False;
@@ -1298,7 +1298,7 @@ begin
 end;
 
 function TFRMOperation.UpdatePayload(const SenderAccount: TAccount;
-  var errors: AnsiString): Boolean;
+  var errors: String): Boolean;
 Var payload_u : AnsiString;
   payload_encrypted : TRawBytes;
   account : TAccount;

src/gui-classic/UFRMOperationsExplorer.pas

@@ -357,7 +357,7 @@ Var op : TPCOperation;
   aux : String;
   nAccount,n_operation : Cardinal;
   changes : TMultiOpChangesInfo;
-  new_name, errors : AnsiString;
+  new_name, errors : String;
   new_type : Word;
   new_account_key : TAccountKey;
 label LBL_start_changer;
@@ -494,7 +494,7 @@ end;
 
 procedure TFRMOperationsExplorer.ActExecuteOperationExecute(Sender: TObject);
 Var op : TPCOperation;
-  errors : AnsiString;
+  errors : String;
 begin
   If Not Assigned(FSourceNode) then Raise Exception.Create('No node to Execute');
   op := GetSelectedOperation;
@@ -531,7 +531,7 @@ Var i : Integer;
   raw : TRawBytes;
   aux : AnsiString;
   auxS : String;
-  errors : AnsiString;
+  errors : String;
   opht : TOperationsHashTree;
   ms : TMemoryStream;
 begin

src/gui-classic/UFRMRandomOperations.pas

@@ -130,7 +130,7 @@ procedure TRandomGeneratorThread.BCExecute;
 Var nCounter, nTotalRound, iLastSend, i : Integer;
   operationsComp : TPCOperationsComp;
   ohtToAdd : TOperationsHashTree;
-  errors : AnsiString;
+  errors : String;
   nAddedOperations : Integer;
 begin
   operationsComp := TPCOperationsComp.Create(Nil);
@@ -292,7 +292,7 @@ var nAccount, nAccountTarget : Cardinal;
   opTx : TOpTransaction;
   senderAcc : TAccount;
   amount,fees : Int64;
-  errors : AnsiString;
+  errors : String;
 begin
   Result := 0;
   If Not GetRandomSigner(operationsComp,aWalletKeys,iKey,nAccount) then Exit;
@@ -350,7 +350,7 @@ Var opMulti : TOpMultiOperation;
   receiver : TMultiOpReceiver;
   changer: TMultiOpChangeInfo;
   acc : TAccount;
-  errors : AnsiString;
+  errors : String;
 begin
   Result := False;
   opMulti := TOpMultiOperation.Create;

src/gui-classic/UFRMWallet.pas

@@ -333,7 +333,7 @@ Type
   private
     FLastTC : TTickCount;
     FLastMsg : String;
-    procedure OnProgressNotify(sender : TObject; const mesage : AnsiString; curPos, totalCount : Int64);
+    procedure OnProgressNotify(sender : TObject; const mesage : String; curPos, totalCount : Int64);
     procedure ThreadSafeNotify;
   protected
     procedure BCExecute; override;
@@ -341,7 +341,7 @@ Type
 
 { TThreadActivate }
 
-procedure TThreadActivate.OnProgressNotify(sender: TObject; const mesage: AnsiString; curPos, totalCount: Int64);
+procedure TThreadActivate.OnProgressNotify(sender: TObject; const mesage: String; curPos, totalCount: Int64);
 var pct : String;
 begin
   If TPlatform.GetElapsedMilliseconds(FLastTC)>500 then begin
@@ -363,7 +363,7 @@ begin
 end;
 
 procedure TThreadActivate.BCExecute;
-Var currentProcess : AnsiString;
+Var currentProcess : String;
 begin
   FLastTC := 0;
   FLastMsg := '';
@@ -500,7 +500,7 @@ end;
 
 procedure TFRMWallet.bbSendAMessageClick(Sender: TObject);
 Var basem,m : String;
-  them, errors : AnsiString;
+  them, errors : String;
   i,n : Integer;
   nc : TNetConnection;
 begin
@@ -565,7 +565,7 @@ begin
 end;
 
 procedure TFRMWallet.CheckIsReady;
-Var isready : AnsiString;
+Var isready : String;
 begin
   if Not Assigned(FNode) then Abort;
 
@@ -2205,7 +2205,7 @@ begin
 end;
 
 procedure TFRMWallet.UpdateConnectionStatus;
-var errors : AnsiString;
+var errors : String;
 begin
   UpdateNodeStatus;
   OnNetStatisticsChanged(Nil);
@@ -2222,7 +2222,7 @@ begin
 end;
 
 procedure TFRMWallet.UpdateNodeStatus;
-Var status : AnsiString;
+Var status : String;
 begin
   If Not Assigned(FNode) then begin
     lblNodeStatus.Font.Color := clRed;

src/gui-classic/UFRMWalletKeys.pas

@@ -370,7 +370,7 @@ var s : String;
  raw : TRawBytes;
  EC : TECPrivateKey;
  account : TAccountKey;
- errors : AnsiString;
+ errors : String;
 begin
   CheckIsWalletKeyValidPassword;
   if Not Assigned(WalletKeys) then exit;