myldblocale.pas

一个本地database引擎,支持中文T_Sql查询,兼容DELPHI标准数据库控件

unit MYLDBLocale;

interface

{$I MYLDBVer.inc}

uses SysUtils;

type

 TMYLDBLocaleRecord = packed record
    // Numbers
    DecimalSeparator: String[3];   // (.)   123.45
    NoOfDigistsAfterDecimal: Byte; // (2)   123.45
    DigitGroupingSymbol: String[3];// (,)   123,456.78
    DigitGrouping: Byte;           // 0 - nogroup
                                   // 2 - 12,34,56.78
                                   // 3 - 123,456.78
    NegativeSignSymbol: String[5]; // (-)
    NegativeNumberFormat: Byte;    // 0 = (1.1)
                                   // 1 = -1.1
                                   // 2 = - 1.1
                                   // 3 = 1.1-
                                   // 4 = 1.1 -
    DisplayLeadingZeros: ByteBool; // .7 or 0.7
    ListSeparator: String[3];      // (,)
    MeasurementSystem: Byte;       // 0 - US;  1 - Metric

    //Currency
    CurrencySymbol: string[5];     // ($)
    PositiveCurrencyFormat: Byte;  // 0 = $1.1
                                   // 1 = 1.1$
                                   // 2 = $ 1.1
                                   // 3 = 1.1 $
    NegativeCurrencyFormat: Byte;  // 0  = ($1.1)
                                   // 1  = -$1.1
                                   // 2  = $-1.1
                                   // 3  = $1.1-
                                   // 4  = (1.1$)
                                   // 5  = -1.1$
                                   // 6  = 1.1-$
                                   // 7  = 1.1$-
                                   // 8  = -1.1 $
                                   // 9  = -$ 1.1
                                   // 10 = 1.1 $-
                                   // 11 = $ 1.1-
                                   // 12 = $ -1.1
                                   // 13 = 1.1- $
                                   // 14 = ($ 1.1)
                                   // 15 = (1.1 $)

    CurrencyDecimalSymbol: String[3]; // (.) $100.99
    CurrencyNoOfDigistsAfterDecimal: Byte; // (2)  $123.45
    CurrencyDigitGroupingSymbol: String[3];// (,)   $123,456.78
    CurrencyDigitGrouping: Byte;           // 0 - nogroup
                                           // 2 - $12,34,56.78
                                           // 3 - $123,456.78

    // Time
    TimeFormat: string[80];        // hh:mm:ss ampm
    TimeSeparator: String[3];      // (:)  12:30 PM
    TimeAMString: string[12];      // (AM) 12:30 AM
    TimePMString: string[12];      // (PM) 12:30 PM
    // Date
    TwoDigitYearCenturyWindow: Word;  // (30) 1930 - 2029
    ShortDateFormat: string[80];   // (M/d/yyyy) 5/20/2003
    DateSeparator: string[3];      // (/)
    LongDateFormat: string[80];    // (dddd, MMMM dd, yyyy) Tuesday, May 20, 2003

//
    ShortMonthNames: array[1..12] of string;
    LongMonthNames: array[1..12] of string;
    ShortDayNames: array[1..7] of string;
    LongDayNames: array[1..7] of string;

    SysLocale: TSysLocale;

    EraNames: array[1..7] of string;
    EraYearOffsets: array[1..7] of Integer;

    ToUpperChars,ToLowerChars: array[0..255] of Char;
    ToOemChars,ToAnsiChars: array[0..255] of Char;
 end;


 TMYLDBLocale = class(TObject)
  private

    {
    SShortMonthNameJan = 'Jan';
    SShortMonthNameFeb = 'Feb';
    SShortMonthNameMar = 'Mar';
    SShortMonthNameApr = 'Apr';
    SShortMonthNameMay = 'May';
    SShortMonthNameJun = 'Jun';
    SShortMonthNameJul = 'Jul';
    SShortMonthNameAug = 'Aug';
    SShortMonthNameSep = 'Sep';
    SShortMonthNameOct = 'Oct';
    SShortMonthNameNov = 'Nov';
    SShortMonthNameDec = 'Dec';

    SLongMonthNameJan = 'January';
    SLongMonthNameFeb = 'February';
    SLongMonthNameMar = 'March';
    SLongMonthNameApr = 'April';
    SLongMonthNameMay = 'May';
    SLongMonthNameJun = 'June';
    SLongMonthNameJul = 'July';
    SLongMonthNameAug = 'August';
    SLongMonthNameSep = 'September';
    SLongMonthNameOct = 'October';
    SLongMonthNameNov = 'November';
    SLongMonthNameDec = 'December';

    SShortDayNameSun = 'Sun';
    SShortDayNameMon = 'Mon';
    SShortDayNameTue = 'Tue';
    SShortDayNameWed = 'Wed';
    SShortDayNameThu = 'Thu';
    SShortDayNameFri = 'Fri';
    SShortDayNameSat = 'Sat';

    SLongDayNameSun = 'Sunday';
    SLongDayNameMon = 'Monday';
    SLongDayNameTue = 'Tuesday';
    SLongDayNameWed = 'Wednesday';
    SLongDayNameThu = 'Thursday';
    SLongDayNameFri = 'Friday';
    SLongDayNameSat = 'Saturday';
    }
 end;

implementation

initialization

end.