Delphi字符串函数大全

      说明 字符串资源是指程序的内部资源
      参考 function SysUtils.FindStringResource
      例子 Edit2.Text := LoadStr(StrToIntDef(Edit1.Text, 0));
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function FmtLoadStr(Ident: Integer; const Args: array of const):
      string; $[SysUtils.pas
      功能 返回格式化的字符串资源
      说明 字符串资源是指程序的内部资源
      参考 function SysUtils.FmtStr;function SysUtils.FindStringResource
      例子 <NULL>;
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrLen(const Str: PChar): Cardinal; $[SysUtils.pas
      功能 返回指针字符串的长度
      说明 当指针字符串Str为nil时将触发异常
      参考 <NULL>
      例子 SpinEdit2.Value := StrLen(PChar(Edit1.Text));
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrEnd(const Str: PChar): PChar; $[SysUtils.pas
      功能 返回指针字符串的结尾
      说明 当指针字符串Str为nil时将触发异常
      参考 <NULL>
      例子 Edit2.Text := StrEnd(PChar(Edit1.Text)) - SpinEdit1.Value;
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrMove(Dest: PChar; const Source: PChar; Count: Cardinal):
      PChar; $[SysUtils.pas
      功能 返回将指针字符串Source指定内存数量Count复制覆盖到指针字符串Dest中
      说明 Dest没有分配资源将触发异常s
      参考 function System.Move
      例子
      ///////Begin StrMove
      procedure TForm1.Button1Click(Sender: TObject);
      var
      vBuffer: PChar;
      begin
      vBuffer := '0123456789';
      StrMove(vBuffer, PChar(Edit1.Text), SpinEdit1.Value);
      Edit2.Text := vBuffer;
      end;
      ///////End StrMove
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrCopy(Dest: PChar; const Source: PChar): PChar;
      $[SysUtils.pas
      功能 返回将指针字符串Source复制到指针字符串Dest中
      说明 Dest应已经分配足够的空间非则将触发异常
      参考 <NULL>
      例子
      ///////Begin StrCopy
      procedure TForm1.Button1Click(Sender: TObject);
      var
      vBuffer: PChar;
      begin
      GetMem(vBuffer, Length(Edit1.Text) + 1);
      StrCopy(vBuffer, PChar(Edit1.Text));
      Edit2.Text := vBuffer;
      FreeMem(vBuffer);
      end;
      ///////End StrCopy
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrECopy(Dest:PChar; const Source: PChar): PChar;
      $[SysUtils.pas
      功能 返回将指针字符串Source复制到指针字符串Dest中的结尾
      说明 可以连接指针字符串
      参考 <NULL>
      例子
      ///////Begin StrECopy
      procedure TForm1.Button1Click(Sender: TObject);
      var
      vBuffer: array[0..255] of Char;
      begin
      StrECopy(StrECopy(vBuffer, PChar(Edit1.Text)), PChar(Edit2.Text));
      Edit3.Text := vBuffer;
      end;
      ///////End StrECopy
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrLCopy(Dest: PChar; const Source: PChar; MaxLen: Cardinal):
      PChar; $[SysUtils.pas
      功能 返回将指针字符串Source指定长度MaxLen复制到指针字符串Dest中

 如果您对本文有任何疑问或者建议，请到讨论区发表您的意见: >> 论坛入口 <<

上一页 1 2 3 4 5 6 7 8 9 10 1112 13 下一页

上一篇：我的共享软件防破解的实用着法   下一篇：让ReportBuilder彻底支持Oracle

【文章评论】 【收藏本文】 【推荐好友】 【打印本文】 【我要投稿】 【论坛讨论】