TIBStringField

type TIBStringField = class(TStringField)

protected

  procedure Bind(); override;

  function GetDataSize; override;

public

  constructor Create(); override;

  class procedure CheckTypeSize(); override;

  function GetAsString; override;

  function GetAsVariant; override;

  function GetValue();

  procedure SetAsString(); override;

  property CharacterSetName: RawByteString; [rw]

  property CharacterSetSize: Integer; [rw]

  property CodePage: TSystemCodePage; [rw]

published

  property AutoFieldSize: Boolean; [rw]

end;

TIBStringField

TObject