* Fix casing

packages/fcl-db/src/base/fieldmap.pp

@@ -37,9 +37,9 @@ type
   { TFieldMap }
   TTransformMap = class(TObject)
   Protected
-    function TransFormString(const aString : RawByteString) : RawByteString; virtual; overload;
-    function TransFormString(const aString : UnicodeString) : UnicodeString; virtual; overload;
-    function TransFormString(const aString : WideString) : WideString; virtual; overload;
+    function TransformString(const aString : RawByteString) : RawByteString; virtual; overload;
+    function TransformString(const aString : UnicodeString) : UnicodeString; virtual; overload;
+    function TransformString(const aString : WideString) : WideString; virtual; overload;
   end;
 
   TFieldMap = Class(TTransFormMap)
@@ -493,17 +493,17 @@ end;
 
 { TTransformMap }
 
-function TTransformMap.TransFormString(const aString: RawByteString): RawByteString;
+function TTransformMap.TransformString(const aString: RawByteString): RawByteString;
 begin
   Result:=aString;
 end;
 
-function TTransformMap.TransFormString(const aString: UnicodeString): UnicodeString;
+function TTransformMap.TransformString(const aString: UnicodeString): UnicodeString;
 begin
   Result:=aString;
 end;
 
-function TTransformMap.TransFormString(const aString: WideString): WideString;
+function TTransformMap.TransformString(const aString: WideString): WideString;
 begin
   Result:=aString;
 end;
@@ -542,7 +542,7 @@ function TParamMap.SetParam(P: TParam; const aValue: AnsiString): Boolean;
 begin
   Result:=Assigned(P);
   If Result then
-    P.AsString:=TransFormString(aValue);
+    P.AsString:=TransformString(aValue);
 end;
 
 function TParamMap.SetParam(P: TParam; aValue: Boolean): Boolean;
@@ -599,14 +599,14 @@ function TParamMap.SetParam(P: TParam; const aValue: UnicodeString): Boolean;
 begin
   Result:=Assigned(P);
   If Result then
-    P.AsUnicodeString:=TransFormString(aValue);
+    P.AsUnicodeString:=TransformString(aValue);
 end;
 
 function TParamMap.SetParam(P: TParam; const aValue: WideString): Boolean;
 begin
   Result:=Assigned(P);
   If Result then
-    P.AsWideString:=TransFormString(aValue);
+    P.AsWideString:=TransformString(aValue);
 end;
 
 function TParamMap.SetParam(P: TParam; aValue: TBytes): Boolean;
@@ -693,7 +693,7 @@ begin
     Result:=F.AsString
   else
     Result:=ADefault;
-  Result:=TransFormString(Result);
+  Result:=TransformString(Result);
 end;
 
 function TFieldMap.GetFromField(F: TField; ADefault: Boolean): Boolean;
@@ -766,7 +766,7 @@ begin
     Result:=F.AsUnicodeString
   else
     Result:=ADefault;
-  Result:=TransFormString(Result);
+  Result:=TransformString(Result);
 end;
 
 function TFieldMap.GetFromField(F: TField; const ADefault: WideString): WideString;
@@ -775,7 +775,7 @@ begin
     Result:=F.AsWideString
   else
     Result:=ADefault;
-  Result:=TransFormString(Result);
+  Result:=TransformString(Result);
 end;
 
 function TFieldMap.GetFromField(F: TField; ADefault: TBytes): TBytes;