{ TStringField }

  TStringField = class(TField)

  private

    FFixedChar: Boolean;

    FTransliterate: Boolean;

  protected

    class procedure CheckTypeSize(Value: Integer); override;

    function GetAsBCD: TBcd; override;

    function GetAsBoolean: Boolean; override;

    function GetAsDateTime: TDateTime; override;

    function GetAsSingle: Single; override;

    function GetAsFloat: Double; override;

    function GetAsExtended: Extended; override;

    function GetAsInteger: Longint; override;

    function GetAsLargeInt: Largeint; override;

    function GetAsSQLTimeStamp: TSQLTimeStamp; override;

    function GetAsString: string; override;

    function GetAsAnsiString: AnsiString; override;

    function GetAsVariant: Variant; override;

    function GetDataSize: Integer; override;

    function GetDefaultWidth: Integer; override;

    procedure GetText(var Text: string; DisplayText: Boolean); override;

    function GetValue(var Value: AnsiString): Boolean;

    procedure SetAsBCD(const Value: TBcd); override;

    procedure SetAsBoolean(Value: Boolean); override;

    procedure SetAsDateTime(Value: TDateTime); override;

    procedure SetAsSingle(Value: Single); override;

    procedure SetAsFloat(Value: Double); override;

    procedure SetAsExtended(Value: Extended); override;

    procedure SetAsInteger(Value: Longint); override;

    procedure SetAsLargeInt(Value: Largeint); override;

    procedure SetAsSQLTimeStamp(const Value: TSQLTimeStamp); override;

    procedure SetAsString(const Value: string); override;

    procedure SetAsAnsiString(const Value: AnsiString); override;

    procedure SetVarValue(const Value: Variant); override;

  public

    constructor Create(AOwner: TComponent); override;

    property Value: AnsiString read GetAsAnsiString write SetAsAnsiString;

  published

    property EditMask;

    property FixedChar: Boolean read FFixedChar write FFixedChar default False;

    property Size default ;

    property Transliterate: Boolean read FTransliterate write FTransliterate default True;

  end;

{ TWideStringField }

  TWideStringField = class(TStringField)

  protected

    class procedure CheckTypeSize(Value: Integer); override;

    procedure CopyData(Source, Dest: Pointer); override;

    function GetAsAnsiString: AnsiString; override;

    function GetAsString: string; override;

    function GetAsVariant: Variant; override;

    function GetAsWideString: UnicodeString; override;

    function GetDataSize: Integer; override;

    procedure GetText(var Text: string; DisplayText: Boolean); override;

    function GetValue(var Value: UnicodeString): Boolean;

    procedure SetAsAnsiString(const Value: AnsiString); override;

    procedure SetAsString(const Value: string); override;

    procedure SetVarValue(const Value: Variant); override;

    procedure SetAsWideString(const Value: UnicodeString); override;

  public

    constructor Create(AOwner: TComponent); override;

    property Value: UnicodeString read GetAsWideString write SetAsWideString;

  end;

XE里， TStringField 还是 ansi的的更多相关文章

  1. 原来windows里记事本的ansi编码就是GB2312啊，跟utf-8,unicode是不一样的。

    原来windows里记事本的ansi编码就是GB2312啊,跟utf-8,unicode是不一样的. 程序里的比如java的,Qt的string都是unicode的字符串,因此如果是你从文件中读取文字 ...

  2. Delphi XE里的StrPas要注意哦（要让StrPas知道哪里是字符串结束）

    废话不多说了,直接上例子解说: procedure TForm1.Button1Click(Sender: TObject);var  aa: array[0..1]of AnsiChar;  bb1 ...

  3. delphi7和XE下 获取路径

    XE里没有Application.Exename所以用paramstr(0); Str:=ParamStr(0); //自己全路径c:\555\qq.exe,可用于控制台Str:=ExpandFile ...

  4. XE下的FMX中压缩图片

    用FMX压缩图片,发现FMX里的canvas没有draw,stretch,cliprect类,FMX里程序创建时会自动引用FMX.Graphics, 而这个单元内的TBitmap类的Canvas没有S ...

  5. delphi常用快捷键（我自己经常使用的）

    代码编辑器: Home 回到当前行的头部 End 回到当前行的尾部 Insert 插入代码,覆盖后面的代码,(按回车无效), 再按撤回效果 Delete 删除 F1 双击一个单词后,按F1调用自带的L ...

  6. Delphi调用Android的.so文件（转）

    原地址:http://zhidao.baidu.com/link?url=fzqefMM44ljXA5BnAbkX44SapCUteyzlXFvGLKvukBivm9AB-w39P_h7eX1ty-G ...

  7. c++Builder XE6 MD5 加密算法 BASE64 URL 编码

    xe6,xe7 BASE64XE6 MD5 加密算法Delphifunction MD5(const texto: string): string; var idmd5: TIdHashMessage ...

  8. 使用vs的时候，遇到这个：当前不会命中断点 还没有为该文档加载任何符号

    一 http://stackoverflow.com/questions/2155930/fixing-the-breakpoint-will-not-currently-be-hit-no-symb ...

  9. FastReports_4.14.1 _Cliff手动安装

    首次编译frx15.dproj包的时候,会出错: [DCC Fatal Error] fs15.dpk(59): F1026 File not found: 'fs_ipascal.dcu'原因是因为 ...

随机推荐

  1. 25个c#知识点

    网站地址:http://m.3y.uu456.com/mbp_56hl91r1rx5uqa87qrzo_1.html

  2. Python3基础 __setattr__ 在属性被赋值的时候，新增提示功能

             Python : 3.7.0          OS : Ubuntu 18.04.1 LTS         IDE : PyCharm 2018.2.4       Conda ...

  3. JavaScript:正则表达式 分组

    在现在的我看来,带小挂号的就是分组,嗯. 代码: var reg=/(abc)/; var str="abcdabcdeabcdef"; console.dir(reg.exec( ...

  4. 切换tab页时，tab页中的echart变形问题

    本文为博主原创,未经允许,不得转载: 在两个tab页中,分别展现了两个echart图表,同样的格式与写法,但只有在默认选中的tab页中的图表显示的是正常的, 但进入另一个tab页中时,图表则产生了变形 ...

  5. Ansible 操作windows

      1.主控端安装ansible         1) pip install ansible 2.主控端安装相关的包 pip install http://github.com/diyan/pywi ...

  6. Java中Arrays 与 Collections 的简单操作

    import java.util.ArrayList; import java.util.Arrays; import java.util.Collection; import java.util.C ...

  7. 对不队—— Alpha冲刺

    第三天  日期:2018/6/18 一. 今日完成任务:会议内容管理部分 冯晓.马思远:会议网站栏目管理开发,博客撰写 王爽.彭辉:参会人员管理开发 吴琼.郝延婷:审稿专家管理开发 1.1会议管理界面 ...

  8. CMake Error: CMake was unable to find a build program corresponding to "Ninja".

    系统环境: $ lsb_release -a LSB Version: :base-4.0-amd64:base-4.0-noarch:core-4.0-amd64:core-4.0-noarch:g ...

  9. Codeforces 260C - Balls and Boxes

    260C - Balls and Boxes 思路:模拟.在x前面找到最小值,如果没有,从0跳到n,继续找到最小值,边找最小值路过的点边减1.然后所有值都减去最小值,最小值那个点加上减去的值. 找到x ...

  10. CAS-自旋锁

    自旋锁 自旋锁(spinlock):是指当一个线程在获取锁的时候,如果锁已经被其它线程获取,那么该线程将循环等待,然后不断的判断锁是否能够被成功获取,直到获取到锁才会退出循环.  获取锁的线程一直处于 ...