fcl-db: dbase: rename new TLargeIntegerConstant to TLargeIntConstant to align naming with existing identifiers like etLargeInt and TLargeIntVariable

git-svn-id: trunk@25791 -

packages/fcl-db/src/dbase/dbf_prscore.pas

@@ -497,10 +497,10 @@ begin
             etFloat:   ExprWord := TFloatConstant.CreateAsDouble(EmptyStr, PDouble(FExpResult)^);
             etInteger: ExprWord := TIntegerConstant.Create(PInteger(FExpResult)^);
 {$ifdef SUPPORT_INT64}
-            etLargeInt:ExprWord := TLargeIntegerConstant.Create(PInt64(FExpResult)^);
+            etLargeInt:ExprWord := TLargeIntConstant.Create(PInt64(FExpResult)^);
 {$endif}
             etString:  ExprWord := TStringConstant.Create(FExpResult);
-            else raise EparserException.CreateFmt('No support for resulttype %d. Please fix the TDBF code.',[ResultType]);
+            else raise EParserException.CreateFmt('No support for resulttype %d. Please fix the TDBF code.',[ResultType]);
           end;
 
           // fill in structure

packages/fcl-db/src/dbase/dbf_prsdef.pas

@@ -201,9 +201,7 @@ type
   end;
 
 {$ifdef SUPPORT_INT64}
-  { TLargeIntegerConstant }
-
-  TLargeIntegerConstant = class(TConstant)
+  TLargeIntConstant = class(TConstant)
   private
     FValue: Int64;
   public
@@ -647,16 +645,16 @@ begin
 end;
 
 {$ifdef SUPPORT_INT64}
-{ TLargeIntegerConstant }
+{ TLargeIntConstant }
 
-constructor TLargeIntegerConstant.Create(AValue: Int64);
+constructor TLargeIntConstant.Create(AValue: Int64);
 begin
   inherited Create(IntToStr(AValue), etLargeInt, _LargeIntVariable);
 
   FValue := AValue;
 end;
 
-function TLargeIntegerConstant.AsPointer: PChar;
+function TLargeIntConstant.AsPointer: PChar;
 begin
   Result := PChar(@FValue);
 end;