{ 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. java自学入门心得体会 从环境配置开始

    java —— 一种可以撰写跨平台应用软件的面向对象的程序设计语言. 很多教程里都要概述java语言的诞生发明.其实像图灵的”图灵机“和”图灵测试“一样,当初的java并不是这样. 是用来操控一些电冰 ...

  2. [Pytorch]Pytorch中图像的基本操作(TenCrop)

    转自:https://www.jianshu.com/p/73686691cf13 下面是几种常写的方式 第一种方式 normalize = transforms.Normalize([0.485, ...

  3. The way to Go(5): 文件名、关键字与标识符

    Reference: Github: Go Github: The way to Go 文件名 1.后缀名:.go 2.小写字母 3._分割名称 4.不包含空格或其他特殊字符 标识符 有效的标识符必须 ...

  4. HDU 3466 Proud Merchants（0-1背包）

    http://acm.hdu.edu.cn/showproblem.php?pid=3466 题意: 最近,iSea去了一个古老的国家.在这么长的时间里,它是世界上最富有和最强大的王国.结果,这个国家 ...

  5. C# string[]转List<string>

    List<string> ltProduct = new List<string>(Product.Split('|'));

  6. Intellij IDEA 使用spring-boot-devtools无效解决办法一

    Intellij IDEA 使用spring-boot-devtools maven依赖 ``` <dependency> <groupId>org.springframewo ...

  7. python 时间元组转时间戳

    #!/usr/bin/python # -*- coding: UTF- -*- import time print(time.mktime((, , , , , , , , ))) 输出 15382 ...

  8. vim/vi中移动光标键会变成A，B，C，D的解决办法

    在某些情况下, vi/vim中的编辑会出现一些很不愉快的情况, 比如在vi/vim中输入方向键有时被转化为A B C D, 或者按个Enter键, 却被转为为其他字母, 恼人得很, 该怎么办呢? 方法 ...

  9. MongoDB (课时1,2)

    1.数据库之中支持的的SQL语句是由IBM开发出来的,使用并不麻烦,就是几个简单的单词:select, from, where,  group by, having, order by.目前最流行的数 ...

  10. HTTP请求GET/POST查看工具

    当你有一个http的get请求需要知道结果,可以直接在浏览器上输入,然后等待查看结果.    那如果是一个post请求呢?推荐使用一个国外工具Send HTTP Tool.    传送门:http:/ ...