paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 09:09:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@12243 -
This commit is contained in:
joost 2008-11-27 11:40:18 +00:00
parent 332d850f1e
commit 8fce9ba897
2 changed files with 0 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-db/src/base/db.pas
View File

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

14
packages/fcl-db/src/base/fields.inc
View File

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