* Removed empty implementation of TBlobField.Assign(to), uses inherited implementation. Bug #12578

git-svn-id: trunk@12243 -

packages/fcl-db/src/base/db.pas

@@ -794,7 +794,6 @@ type
     FTransliterate : Boolean;
     Function GetBlobStream (Mode : TBlobStreamMode) : TStream;
   protected
-    procedure AssignTo(Dest: TPersistent); override;
     procedure FreeBuffers; override;
     function GetAsString: string; override;
     function GetAsVariant: Variant; override;
@@ -808,7 +807,6 @@ type
     procedure SetAsWideString(const aValue: WideString); override;
   public
     constructor Create(AOwner: TComponent); override;
-    procedure Assign(Source: TPersistent); override;
     procedure Clear; override;
     class function IsBlob: Boolean; override;
     procedure LoadFromFile(const FileName: string);

packages/fcl-db/src/base/fields.inc

@@ -2330,13 +2330,6 @@ end;
 
 { TBlobField }
 
-
-procedure TBlobField.AssignTo(Dest: TPersistent);
-
-begin
-  //!! To be implemented
-end;
-
 Function TBlobField.GetBlobStream(Mode : TBlobStreamMode) : TStream;
 
 begin
@@ -2492,13 +2485,6 @@ begin
 end;
 
 
-procedure TBlobField.Assign(Source: TPersistent);
-
-begin
-  //!! To be implemented
-end;
-
-
 procedure TBlobField.Clear;
 
 begin