fix calculator example pascal compilation

Author: gangatp

Examples/Calculator/Calculator_component/Implementations/Pascal/Interfaces/calculator_interfaces.pas

@@ -32,7 +32,7 @@ interface
 **************************************************************************************************************************)
 
 ICalculatorBase = interface
-  ['{71742BA8-A9A1-4760-B0D5-6F1AB514AE45}']
+  ['{606128A4-C847-4057-A841-4B8871165F63}']
 
   function GetLastErrorMessage(out AErrorMessage: String): Boolean;
   procedure ClearErrorMessages();
@@ -48,7 +48,7 @@ interface
 **************************************************************************************************************************)
 
 ICalculatorVariable = interface(ICalculatorBase)
-  ['{561ED9AC-F6FE-45DD-B7EF-682F8F6B4A6A}']
+  ['{1E683C18-EFC4-4772-AB4B-6A055D74C97F}']
 
   function GetValue(): Double;
   procedure SetValue(const AValue: Double);
@@ -60,7 +60,7 @@ interface
 **************************************************************************************************************************)
 
 ICalculatorCalculator = interface(ICalculatorBase)
-  ['{6B9C2A52-0A3C-4A13-9313-0DCB06BBE768}']
+  ['{65CB20D4-1384-4F17-BB4D-0F556E2EA955}']
 
   procedure EnlistVariable(AVariable: TObject);
   function GetEnlistedVariable(const AIndex: Cardinal): TObject;

Examples/Calculator/Calculator_component/Implementations/Pascal/Stub/calculator_impl_base.pas

@@ -36,6 +36,7 @@   TCalculatorBase = class(TObject, ICalculatorBase)
       procedure RegisterErrorMessage(const AErrorMessage: String);
       procedure IncRefCount();
       function DecRefCount(): Boolean;
+      function ClassTypeId(): QWord; virtual;
   end;
 
 implementation
@@ -86,4 +87,9 @@ function TCalculatorBase.DecRefCount(): Boolean;
    result := false;
 end;
 
+function TCalculatorBase.ClassTypeId(): QWord;
+begin
+  result := 0; // Base class type ID
+end;
+
 end.

Examples/Calculator/Calculator_component/Implementations/Pascal/Stub/calculator_impl_calculator.pas

@@ -37,6 +37,7 @@   TCalculatorCalculator = class(TCalculatorBase, ICalculatorCalculator)
       procedure ClearVariables();
       function Multiply(): TObject;
       function Add(): TObject;
+      function ClassTypeId(): QWord; override;
   end;
 
 implementation
@@ -116,4 +117,9 @@ function TCalculatorCalculator.Add(): TObject;
   result := AResVar;
 end;
 
+function TCalculatorCalculator.ClassTypeId(): QWord;
+begin
+  result := 2; // Calculator class type ID
+end;
+
 end.

Examples/Calculator/Calculator_component/Implementations/Pascal/Stub/calculator_impl_variable.pas

@@ -30,6 +30,7 @@   TCalculatorVariable = class(TCalculatorBase, ICalculatorVariable)
     public
       function GetValue(): Double;
       procedure SetValue(const AValue: Double);
+      function ClassTypeId(): QWord; override;
   end;
 
 implementation
@@ -44,4 +45,9 @@ procedure TCalculatorVariable.SetValue(const AValue: Double);
   FValue := AValue;
 end;
 
+function TCalculatorVariable.ClassTypeId(): QWord;
+begin
+  result := 1; // Variable class type ID
+end;
+
 end.