tntjvconsts.pas

来自「TntExUpdate 是 流行的 TntUnicodeControls控件的扩」· PAS 代码 · 共 31 行

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.