📄 blobdib.int
字号:
unit BlobDib;
//-----------------------------------------------
// Extends the TDIB class to support TBlobField assignments
//
// Author: Lubomir Antonov Version: 1.3
//
//-----------------------------------------------
interface
uses CDIBs, DB, DBTables, Classes;
type
// An extended DIB class that can work with blob fields
TBlobDIB = class( TDIB )
private
procedure AssignFromBlobField( Source: TBlobField );
procedure AssignToBlobField( Dest: TBlobField );
protected
procedure AssignTo( Dest: TPersistent ); override;
public
procedure Assign( Source: TPersistent ); override;
end;
implementation
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -