Delphi 函数参考[19]

      procedure tform1.button1click(sender: tobject);
      var
      vdatetime: tdatetime;
      begin
      checkbox1.checked := trystrtodatetime(edit1.text, vdatetime);
      edit2.text := datetimetostr(vdatetime);
      end;
      ///////end trystrtodatetime
      ━━━━━━━━━━━━━━━━━━━━━
      首部 procedure datetimetostring(var result: string; const format: string;
      datetime: tdatetime); $[sysutils.pas
      功能 用指定的格式format来格式化日期时间datetime并返回到字符串result中
      说明 <参见formatdatetime>
      参考 function system.setstring
      例子 <参见formatdatetime>
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function getlocalestr(locale, localetype: integer; const default:
      string): string; platform; $[sysutils.pas
      功能 返回当前系统指定参数的字符串值
      说明 getlocalestr(getthreadlocale, locale_slanguage, '') = '中文(中国)'
      参考 function windows.getlocaleinfo
      例子 edit1.text := getlocalestr(getthreadlocale, spinedit1.value, '<null>');
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function getlocalechar(locale, localetype: integer; default: char):
      char; platform; $[sysutils.pas
      功能 返回当前系统指定参数的字符值
      说明 getlocalechar(getthreadlocale, locale_sthousand, #0) = ','
      参考 function windows.getlocaleinfo
      例子 edit1.text := getlocalechar(getthreadlocale, locale_slanguage, #0);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function bytetype(const s: string; index: integer): tmbcsbytetype;
      $[sysutils.pas
      功能 返回字符串s位置index上的字符在mbcs中类型
      说明 多字节字符系统:multi-byte character system (mbcs)
      参考 var sysutils.syslocale
      例子 spinedit1.value := ord(bytetype(edit1.text, spinedit2.value));
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function strbytetype(str: pchar; index: cardinal): tmbcsbytetype;
      $[sysutils.pas
      功能 返回指针字符串str位置index上的字符在mbcs中类型
      说明 index从0开始
      参考 var sysutils.syslocale
      例子 spinedit1.value := ord(strbytetype(pchar(edit1.text),
spinedit2.value));
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function bytetocharlen(const s: string; maxlen: integer): integer;
      $[sysutils.pas
      功能 返回字符串s中有多少个多字节字符
      说明 maxlen指定处理字符个数
      参考 function sysutils.bytetocharindex
      例子 spinedit1.value := bytetocharlen(edit1.text, spinedit2.value);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function chartobytelen(const s: string; maxlen: integer): integer;
      $[sysutils.pas
      功能 返回字符串s中有多少个字符
      说明 maxlen指定处理多字节字符个数
      参考 var sysutils.syslocale
      例子 spinedit1.value := chartobytelen(edit1.text, spinedit2.value);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function bytetocharindex(const s: string; index: integer): integer;
      $[sysutils.pas
      功能 返回字符位置对应的多字节字符位置
      说明 bytetocharindex('你好', 2) = 1;bytetocharindex('你好', 3) = 2
      参考 function sysutils.nextcharindex
      例子 spinedit1.value := bytetocharindex(edit1.text, spinedit2.value);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function chartobyteindex(const s: string; index: integer): integer;
      $[sysutils.pas
      功能 返回多字节字符位置对应的字符起始位置
      说明 chartobyteindex('你好', 1) = 1;chartobyteindex('你好', 2) = 3