tntjvconsts.pas

TntExUpdate 是 流行的 TntUnicodeControls控件的扩展包.包括很难找到的 TntJVCL 也在里面. TntSysUtils2.pas/TntSysUtilsEx.pa

unit TntJvConsts;

interface

var
  DigitCharsW: WideString = '0123456789';

procedure UpdateDigitCharsWDL (DigitLang: Byte);
procedure UpdateDigitChars;

implementation

uses
  TntSysUtils2;

procedure UpdateDigitCharsWDL (DigitLang: Byte);
var
  I: Byte;
begin
  DigitCharsW := '';
  for  I := 0 to 9  do
    DigitCharsW := Concat (DigitCharsW, WideChar(AllDigitsArr[DigitLang]+I));
end;

procedure UpdateDigitChars;
begin
  UpdateDigitCharsWDL (Def_DigitLang);
end;

end.