delphi字符串函数(二).txt

delphi函数参考大全 delphi函数参考大全

      Value := True
      else if CompareWith(FalseBoolStrs) then
      Value := False
      else
      Result := False;
      end;
      end;
      ///////End TryStrToBool
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function BoolToStr(B: Boolean; UseBoolStrs: Boolean = False): string; 
      $[SysUtils.pas
      功能 返回逻辑值B转换成字符串
      说明 BoolToStr(False, False)='0';BoolToStr(False, True)='-1'
      参考 var SysUtils.TrueBoolStrs;var SysUtils.FalseBoolStrs
      例子 Edit1.Text := BoolToStr(CheckBox1.Checked, CheckBox2.Checked);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function LoadStr(Ident: Integer): string; $[SysUtils.pas
      功能 返回根据标识Ident的字符串资源
      说明 字符串资源是指程序的内部资源
      参考 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中
      说明 Dest应已经分配足够的空间非则将触发异常
      参考 <NULL>
      例子
      ///////Begin StrLCopy
      procedure TForm1.Button1Click(Sender: TObject);
      var
      vBuffer: array[0..255] of Char;
      begin
      StrLCopy(vBuffer, PChar(Edit1.Text), SpinEdit1.Value);
      Edit2.Text := vBuffer;
      end;
      ///////End StrLCopy
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrPCopy(Dest: PChar; const Source: string): PChar; 
      $[SysUtils.pas
      功能 返回将指针字符串Source复制到指针字符串Dest中
      说明 StrLCopy(Dest, PChar(Source), Length(Source))
      参考 function SysUtils.StrLCopy
      例子
      ///////Begin StrPCopy
      procedure TForm1.Button1Click(Sender: TObject);
      var
      vBuffer: array[0..255] of Char;
      begin
      StrPCopy(vBuffer, PChar(Edit1.Text));
      Edit2.Text := vBuffer;
      end;
      ///////End StrPCopy
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrPLCopy(Dest: PChar; const Source: string; MaxLen: 
      Cardinal): PChar; $[SysUtils.pas
      功能 返回将字符串Source指定长度MaxLen复制到指针字符串Dest中
      说明 StrLCopy(Dest, PChar(Source), MaxLen)
      参考 function SysUtils.StrLCopy
      例子
      ///////Begin StrPLCopy
      procedure TForm1.Button1Click(Sender: TObject);
      var
      vBuffer: array[0..255] of Char;
      begin
      StrPLCopy(vBuffer, Edit1.Text, SpinEdit1.Value);
      Edit2.Text := vBuffer;
      end;
      ///////End StrPLCopy
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrCat(Dest: PChar; const Source: PChar): PChar; 
$[SysUtils.pas
      功能 返回连接指针字符串Dest和指针字符串Source
      说明 StrCopy(StrEnd(Dest), Source)
      参考 function SysUntils.StrCopy
      例子
      ///////Begin StrCat
      procedure TForm1.Button1Click(Sender: TObject);
      var
      vBuffer: array[0..255] of Char;
      begin
      StrPCopy(vBuffer, Edit1.Text);
      StrCat(vBuffer, PChar(Edit2.Text));
      Edit3.Text := vBuffer;
      end;
      ///////End StrCat
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrLCat(Dest: PChar; const Source: PChar; MaxLen: Cardinal): 
      PChar; $[SysUtils.pas
      功能 返回连接指针字符串Dest和指针字符串Source
      说明 [注意]MaxLen指定连接后的最大长度不是指针字符串Source的长度
      参考 <NULL>
      例子
      ///////Begin StrLCat
      procedure TForm1.Button1Click(Sender: TObject);
      var
      vBuffer: array[0..255] of Char;
      begin
      StrPCopy(vBuffer, Edit1.Text);
      StrLCat(vBuffer, PChar(Edit2.Text), SpinEdit1.Value);
      Edit3.Text := vBuffer;
      end;
      ///////End StrLCat
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrComp(const Str1, Str2: PChar): Integer; $[SysUtils.pas
      功能 返回比较两个指针字符串
      说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;[注意]返回第一个出现不同字符的差异
      参考 <NULL>
      例子 SpinEdit1.Value := StrComp(PChar(Edit1.Text), PChar(Edit2.Text));
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrIComp(const Str1, Str2: PChar): Integer; $[SysUtils.pas
      功能 返回比较两个指针字符串
      说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;[注意]返回第一个出现不同字符的差异
      参考 <NULL>
      例子 SpinEdit1.Value := StrIComp(PChar(Edit1.Text), PChar(Edit2.Text));
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrLComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer; 
      $[SysUtils.pas
      功能 返回比较两个指针字符串指定长度
      说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;Length(长度);[注意]返回第一个出现不同字符的差异
      参考 <NULL>
      例子 SpinEdit1.Value := StrLComp(PChar(Edit1.Text), PChar(Edit2.Text), 
      SpinEdit2.Value)
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrLIComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer; 
      $[SysUtils.pas
      功能 返回比较两个指针字符串指定长度
      说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;[注意]返回第一个出现不同字符的差异
      参考 <NULL>
      例子 SpinEdit1.Value := StrLIComp(PChar(Edit1.Text), PChar(Edit2.Text), 
      SpinEdit2.Value)
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas
      功能 返回在指针字符串Str搜索字符Chr第一个出现的地址
      说明 没有找到则返回空指针
      参考 <NULL>
      例子 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(