s2.tools.is2record.pas

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

unit S2.Tools.IS2Record;

interface

uses
  Types, S2.Tools.TS2IntegerField, S2.Tools.TS2StringField,
  S2.Tools.TS2Field, S2.Tools.TS2DateField, S2.Tools.TS2DoubleField, S2.Tools.TS2MoneyField;

type
  IS2Record = interface
    function GetFieldCount: Integer;
    function GetIntegerField(const FieldName: string): TS2IntegerField;
    function GetStringField(const FieldName: string): TS2StringField;
    function GetDateField(const FieldName: string): TS2DateField;
    function GetDoubleField(const FieldName: string): TS2DoubleField;
    function GetMoneyField(const FieldName: string): TS2MoneyField;
    function GetFieldName(const Index: Integer): string;
    function GetField(const FieldName: string): TS2Field;
    procedure AddField(Field: TS2Field);
  end;

implementation

end.