Delphi 函数参考[13]

      例子 edit2.text := strscan(pchar(edit1.text), '*');
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function strrscan(const str: pchar; chr: char): pchar; $[sysutils.pas
      功能 返回在指针字符串str搜索字符chr最后一个出现的地址
      说明 没有找到则返回空指针
      参考 <null>
      例子 edit2.text := strrscan(pchar(edit1.text), '*');
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function strpos(const str1, str2: pchar): pchar; $[sysutils.pas
      功能 返回指针字符串str2在str1中第一个出现的地址
      说明 没有找到则返回空指针;strpos('12345', '3') = '345'
      参考 <null>
      例子 edit3.text := strpos(pchar(edit1.text), pchar(edit2.text));
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function strupper(str: pchar): pchar; $[sysutils.pas
      功能 返回指针字符串str大写
      说明 非小写字符不处理
      参考 <null>
      例子 edit1.text := strupper(pchar(edit2.text));
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function strlower(str: pchar): pchar; $[sysutils.pas
      功能 返回指针字符串str小写
      说明 非大写字符不处理
      参考 <null>
      例子 edit1.text := strlower(pchar(edit2.text));
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function strpas(const str: pchar): string; $[sysutils.pas
      功能 返回指针字符串str转换成字符串
      说明 也可以直接赋值
      参考 <null>
      例子 edit1.text := strpas(pchar(edit2.text));
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function stralloc(size: cardinal): pchar; $[sysutils.pas
      功能 返回分配指定空间的内存资源给指针字符串
      说明 空间的大小也将保存;用strdispose才能全部释放
      参考 function system.getmem
      例子
      ///////begin stralloc
      procedure tform1.button1click(sender: tobject);
      var
      p: pchar;
      begin
      p := stralloc(spinedit1.value);
      showmessage(inttostr(strlen(p)));
      dec(p, sizeof(cardinal));
      showmessage(inttostr(cardinal(pointer(p)^)));
      inc(p, sizeof(cardinal));
      strdispose(p);
      end;
      ///////end stralloc

      ━━━━━━━━━━━━━━━━━━━━━
      首部 function strbufsize(const str: pchar): cardinal; $[sysutils.pas
      功能 返回通过函数stralloc分配的缓冲区大小
      说明 出现异常情况则返回不可预知的结果
      参考 function system.sizeof
      例子 spinedit1.value := strbufsize(stralloc(spinedit2.value));
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function strnew(const str: pchar): pchar; $[sysutils.pas
      功能 返回复制一个新的指针字符串
      说明 如果str为nil则返回nil
      参考 function sysutils.strlen;function sysutils.strmove;function
      sysutils.stralloc
      例子
      ///////begin strnew,strdispose
      procedure tform1.button1click(sender: tobject);
      var
      p: pchar;
      begin
      p := strnew(pchar(edit1.text));
      showmessage(p);
      strdispose(p);
      end;
      ///////end strnew,strdispose
      ━━━━━━━━━━━━━━━━━━━━━
      首部 procedure strdispose(str: pchar); $[sysutils.pas
      功能 释放指针字符串str内存资源
      说明 如果str为nil则不作任何处理;并且释放空间大小信息
      参考 function system.dec;function system.sizeof;function system.freemem