TOvcIntlSup

type TOvcIntlSup = class(TObject)

protected

  FAutoUpdate: Boolean;

  FCurrencyLtStr: TCurrencySt;

  FCurrencyRtStr: TCurrencySt;

  FDecimalChar: AnsiChar;

  FCommaChar: AnsiChar;

  FCurrencyDigits: Byte;

  FListChar: AnsiChar;

  FSlashChar: AnsiChar;

  FTrueChar: AnsiChar;

  FFalseChar: AnsiChar;

  FYesChar: AnsiChar;

  FNoChar: AnsiChar;

  FOnWinIniChange: TNotifyEvent;

  intlHandle: hWnd;

  w1159: array [0..5] of AnsiChar;

  w2359: array [0..5] of AnsiChar;

  wColonChar: AnsiChar;

  wCountry: PAnsiChar;

  wCurrencyForm: Byte;

  wldSub1: array [0..5] of AnsiChar;

  wldSub2: array [0..5] of AnsiChar;

  wldSub3: array [0..5] of AnsiChar;

  wLongDate: array [0..39] of AnsiChar;

  wNegCurrencyForm: Byte;

  wShortDate: array [0..29] of AnsiChar;

  wTLZero: Boolean;

  w12Hour: Boolean;

  function GetCountry;

  function GetCurrencyLtStr;

  function GetCurrencyRtStr;

  procedure SetAutoUpdate();

  procedure SetCurrencyLtStr();

  procedure SetCurrencyRtStr();

  procedure isExtractFromPicture();

  procedure isIntlWndProc();

  function isMaskCharCount();

  procedure isMergeIntoPicture();

  procedure isMergePictureSt();

  procedure isPackResult();

  procedure isSubstChar();

  procedure isSubstCharSim();

  function isTimeToTimeStringPrim();

public

  constructor Create;

  destructor Destroy; override;

  function CurrentDateString();

  function CurrentDatePChar();

  function CurrentTimeString();

  function CurrentTimePChar();

  function DateToDateString();

  function DateToDatePChar();

  function DateStringToDMY();

  function DatePCharToDMY();

  function DateStringIsBlank();

  function DatePCharIsBlank();

  function DateStringToDate();

  function DatePCharToDate();

  function DayOfWeekToString();

  function DayOfWeekToPChar();

  function DMYtoDateString();

  function DMYtoDatePChar();

  function InternationalCurrency();

  function InternationalCurrencyPChar();

  function InternationalDate();

  function InternationalDatePChar();

  function InternationalLongDate();

  function InternationalLongDatePChar();

  function InternationalTime();

  function InternationalTimePChar();

  function MonthStringToMonth();

  function MonthPCharToMonth();

  function MonthToString();

  function MonthToPChar();

  procedure ResetInternationalInfo;

  function TimeStringToHMS();

  function TimePCharToHMS();

  function TimeStringToTime();

  function TimePCharToTime();

  function TimeToTimeString();

  function TimeToTimePChar();

  function TimeToAmPmString();

  function TimeToAmPmPChar();

  property AutoUpdate: Boolean; [rw]

  property CurrencyLtStr: string; [rw]

  property CurrencyRtStr: string; [rw]

  property DecimalChar: AnsiChar; [rw]

  property CommaChar: AnsiChar; [rw]

  property Country: string; [r]

  property CurrencyDigits: Byte; [rw]

  property ListChar: AnsiChar; [rw]

  property SlashChar: AnsiChar; [rw]

  property TrueChar: AnsiChar; [rw]

  property FalseChar: AnsiChar; [rw]

  property YesChar: AnsiChar; [rw]

  property NoChar: AnsiChar; [rw]

  property OnWinIniChange: TNotifyEvent; [rw]

end;

TOvcIntlSup

TObject