TStringField

type TStringField = class(TField)

protected

  class procedure CheckTypeSize(); override;

  function GetAsBoolean; override;

  function GetAsDateTime; override;

  function GetAsFloat; override;

  function GetAsInteger; override;

  function GetAsLargeInt; override;

  function GetAsLongWord; override;

  function GetAsString; override;

  function GetAsAnsiString; override;

  function GetAsUTF8String; override;

  function GetAsVariant; override;

  function GetDataSize; override;

  function GetDefaultWidth; override;

  procedure GetText(); override;

  function GetValue();

  procedure SetAsBoolean(); override;

  procedure SetAsDateTime(); override;

  procedure SetAsFloat(); override;

  procedure SetAsInteger(); override;

  procedure SetAsLargeInt(); override;

  procedure SetAsLongWord(); override;

  procedure SetAsString(); override;

  procedure SetAsAnsiString(); override;

  procedure SetAsUTF8String(); override;

  procedure SetVarValue(); override;

  procedure SetValue();

public

  constructor Create(); override;

  procedure SetFieldType(); override;

  property CodePage: TSystemCodePage; [r]

  property FixedChar: Boolean; [rw]

  property Transliterate: Boolean; [rw]

  property Value: string; [rw]

published

  property EditMask: TEditMask;

  property Size: Integer;

end;

TStringField

TField

TObject