Tfields

type Tfields = class(TObject)

protected

  procedure Changed;

  procedure CheckfieldKind();

  function GetCount;

  function GetField();

  procedure SetField();

  procedure SetFieldIndex();

  property OnChange: TNotifyEvent; [rw]

  property ValidFieldKinds: TFieldKinds; [r]

public

  constructor Create();

  destructor Destroy; override;

  procedure Add();

  procedure CheckFieldName();

  procedure CheckFieldNames();

  procedure Clear;

  function FindField();

  function FieldByName();

  function FieldByNumber();

  procedure GetFieldNames();

  function IndexOf();

  procedure Remove();

  property Count: Integer; [r]

  property Dataset: TDataSet; [r]

  property Fields: TField; default; [rw]

end;

Tfields

TObject