s2.tools.ts2fieldfactory.pas

来自「轉載的程序應用框架」· PAS 代码 · 共 67 行

unit S2.Tools.TS2FieldFactory;

interface

uses
  DB, S2.Tools.TS2Field;

type
  TS2FieldFactory = class
    class function GetField(Field: TField): TS2Field; 
  end;

implementation

uses
  S2.Tools.TS2Data, S2.Tools.TS2Date, S2.Tools.TS2DateField;

{ TS2FieldFactory }

class function TS2FieldFactory.GetField(Field: TField): TS2Field;
var
  _Field: TS2Field;
  _Data: TS2Data;
begin
  if Field is TDateField then
  begin
    _Data := TS2Date.Create;
    TS2Date(_Data).SetValue(TDateField(Field).AsDateTime);
    _Field := TS2DateField.Create;
    TS2DateField(_Field).SetValue(TS2Date(_Data));
  end;
{
TADTField
TReferenceField
TAggregateField
TDateTimeField
TSmallIntField
TArrayField
TFloatField
TSQLTimeStampField
TAutoIncField
TFMTBCDField
TStringField
TBCDField
TGraphicField
TTimeField
TBinaryField
TGuidField
TVarBytesField
TBlobField
TIDispatchField
TVariantField
TBooleanField
TIntegerField
TWideStringField
TBytesField
TInterfaceField
TWordField
TCurrencyField
TLargeintField
TDataSetField
TMemoField
}
end;

end.