delphi字符串函数(二).txt

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

首部 function WideSameText(const S1, S2: WideString): Boolean; 
$[SysUtils.pas
      功能 返回两个双字节字符串是否相同
      说明 不区分大小写
      参考 function SysUtils.WideCompareText
      例子 CheckBox1.Checked := WideSameText(Edit1.Text, Edit2.Text);
      ━━━━━━━━━━━━━━━━━━━━━ 
      首部 function Trim(const S: string): string; overload; $[SysUtils.pas
      首部 function Trim(const S: WideString): WideString; overload; 
$[SysUtils.pas
      功能 返回除去字符串S左右不可见字符
      说明 小于#32的字符看作不可见字符
      参考 function System.Copy
      例子 Edit2.Text := Trim(Edit1.Text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function TrimLeft(const S: string): string; overload; $[SysUtils.pas
      首部 function TrimLeft(const S: WideString): WideString; overload; 
      $[SysUtils.pas
      功能 返回除去字符串S左边不可见字符
      说明 小于#32的字符看作不可见字符
      参考 function System.Copy
      例子 Edit2.Text := TrimLeft(Edit1.Text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function TrimRight(const S: string): string; overload; $[SysUtils.pas
      首部 function TrimRight(const S: WideString): WideString; overload; 
      $[SysUtils.pas
      功能 返回除去字符串S右边不可见字符
      说明 小于#32的字符看作不可见字符
      参考 function System.Copy
      例子 Edit2.Text := TrimRight(Edit1.Text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function QuotedStr(const S: string): string; $[SysUtils.pas
      功能 返回字符串S在pascal中的表现形式
      说明 单引号中的一个单引号将转成两个
      参考 procedure System.Insert
      例子 Edit2.Text := QuotedStr(Edit1.Text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function AnsiQuotedStr(const S: string; Quote: Char): string; 
      $[SysUtils.pas
      功能 返回字符串S以字符Quote为引号的表现形式
      说明 AnsiQuotedStr('hello"world', 
      '@')='@hello"world@';AnsiQuotedStr('hello"world', '"')='"hello""world"'
      参考 function SysUtils.AnsiStrScan
      例子 Edit2.Text := AnsiQuotedStr(Edit1.Text, '"');
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function AnsiExtractQuotedStr(var Src: PChar; Quote: Char): string; 
      $[SysUtils.pas
      功能 返回以字符Quote为引号的表现形式原形
      说明 表现形式非法时Src不变否则为空
      参考 function SysUtils.AnsiStrScan
      例子
      ///////Begin AnsiExtractQuotedStr
      procedure TForm1.Button1Click(Sender: TObject);
      var
      P: PChar;
      begin
      P := PChar(Edit1.Text);
      Edit2.Text := AnsiExtractQuotedStr(P, '"');
      Edit3.Text := P;
      end;
      ///////End AnsiExtractQuotedStr
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function AnsiDequotedStr(const S: string; AQuote: Char): string; 
      $[SysUtils.pas
      功能 返回以字符AQuote为引号的表现形式原形
      说明 表现形式非法时则返回S
      参考 function SysUtils.AnsiExtractQuotedStr
      例子 Edit2.Text := AnsiDequotedStr(Edit1.Text, '"');
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function AdjustLineBreaks(const S: string; Style: TTextLineBreakStyle = 
      {$IFDEF LINUX} tlbsLF {$ENDIF} {$IFDEF MSWINDOWS} tlbsCRLF {$ENDIF}): 
      string; $[SysUtils.pas
      功能 返回将给定字符串的行分隔符调整为CR/LF序列
      说明 
      AdjustLineBreaks('1'#13'2'#13)='1'#13#10'2'#13#10;AdjustLineBreaks('1'#10'2'#10)='1'#13#10'2'#13#10
      参考 function SysUtils.StrNextChar
      例子 <NULL>
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function IsValidIdent(const Ident: string): Boolean; $[SysUtils.pas
      功能 返回字符串Ident是否是正确的标识符
      说明 标识符::字母|下划线[字母|下划线|数字]...
      参考 <NULL>
      例子 CheckBox1.Checked := IsValidIdent(Edit1.Text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function IntToStr(Value: Integer): string; overload; $[SysUtils.pas
      首部 function IntToStr(Value: Int64): string; overload; $[SysUtils.pas
      功能 返回整数Value转换成字符串
      说明 Format('%d', [Value])
      参考 function SysUtils.FmtStr
      例子 Edit2.Text := IntToStr(SpinEdit1.Value);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function IntToHex(Value: Integer; Digits: Integer): string; overload; 
      $[SysUtils.pas
      首部 function IntToHex(Value: Int64; Digits: Integer): string; overload; 
      $[SysUtils.pas
      功能 返回整数Value转换成十六进制表现结果;Format('%.*x', [Digits, Value])
      说明 参数Digits指定字符最小宽度;最小宽度不足时将用0填充
      参考 function SysUtils.FmtStr
      例子 Edit2.Text := IntToHex(SpinEdit1.Value, SpinEdit2.Value);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrToInt(const S: string): Integer; $[SysUtils.pas
      功能 返回字符串S转换成整数
      说明 字符串非整数表达时将引起异常
      参考 procedure System.Val
      例子 SpinEdit1.Value := StrToInt(Edit1.Text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrToIntDef(const S: string; Default: Integer): Integer; 
      $[SysUtils.pas
      功能 返回字符串S转换成整数
      说明 字符串非整数表达时则返回默认值Default
      参考 procedure System.Val
      例子 SpinEdit1.Value := StrToIntDef(Edit1.Text, 0);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function TryStrToInt(const S: string; out Value: Integer): Boolean; 
      $[SysUtils.pas
      功能 返回字符串S转换成整数Value是否成功
      说明 字符串非整数表达时返回False并且Value将输出为0
      参考 procedure System.Val
      例子
      ///////Begin TryStrToInt
      procedure TForm1.Button1Click(Sender: TObject);
      var
      I: Integer;
      begin
      CheckBox1.Checked := TryStrToInt(Edit1.Text, I);
      SpinEdit1.Value := I;
      end;
      ///////End TryStrToInt
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrToInt64(const S: string): Int64; $[SysUtils.pas
      功能 返回字符串S转换成六十四位整数
      说明 字符串非六十四位整数表达时将引起异常
      参考 procedure System.Val
      例子 SpinEdit1.Value := StrToInt64(Edit1.Text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrToInt64Def(const S: string; const Default: Int64): Int64; 
      $[SysUtils.pas
      功能 返回字符串S转换成六十四位整数
      说明 字符串非六十四位整数表达时则返回默认值Default
      参考 procedure System.Val
      例子 SpinEdit1.Value := StrToInt64Def(Edit1.Text, 0);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function TryStrToInt64(const S: string; out Value: Int64): Boolean; 
      $[SysUtils.pas
      功能 返回字符串S转换成六十四位整数Value是否成功
      说明 字符串非六十四位整数表达时返回False并且Value将输出为0
      参考 procedure System.Val
      例子
      ///////Begin TryStrToInt64
      procedure TForm1.Button1Click(Sender: TObject);
      var
      I: Int64;
      begin
      CheckBox1.Checked := TryStrToInt64(Edit1.Text, I);
      SpinEdit1.Value := I;
      end;
      ///////End TryStrToInt64
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrToBool(const S: string): Boolean; $[SysUtils.pas
      功能 返回字符串S转换成逻辑值
      说明 字符非逻辑表达时将引起异常
      参考 function SysUtils.TryStrToBool
      例子 CheckBox1.Checked := StrToBool(Edit1.Text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrToBoolDef(const S: string; const Default: Boolean): 
      Boolean; $[SysUtils.pas
      功能 返回字符串S转换成逻辑值
      说明 字符非逻辑表达时则返回默认值Default
      参考 function SysUtils.TryStrToBool
      例子 CheckBox1.Checked := StrToBoolDef(Edit1.Text, False);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function TryStrToBool(const S: string; out Value: Boolean): Boolean; 
      $[SysUtils.pas
      功能 返回字符串S转换成逻辑值Value是否成功
      说明 [注意]0为假非0为真;不是'True'和'False';Delphi6 Bug 如下修正
      参考 function SysUtils.AnsiSameText;var SysUtils.TrueBoolStrs;var 
      SysUtils.FalseBoolStrs
      例子
      ///////Begin TryStrToBool
      procedure TForm1.Button1Click(Sender: TObject);
      var
      B: Boolean;
      begin
      SetLength(TrueBoolStrs, 2);
      SetLength(FalseBoolStrs, 2);
      TrueBoolStrs[0] := 'True';
      FalseBoolStrs[0] := 'False';
      TrueBoolStrs[1] := 'Yes';
      FalseBoolStrs[1] := 'No';
      CheckBox1.Checked := TryStrToBool(Edit1.Text, B);
      CheckBox2.Checked := B;
      end;
      ///////End TryStrToBool
      附加
      ///////Begin TryStrToBool
      function TryStrToBool(const S: string; out Value: Boolean): Boolean;
      function CompareWith(const aArray: array of string): Boolean;
      var
      I: Integer;
      begin
      Result := False;
      for I := Low(aArray) to High(aArray) do
      if AnsiSameText(S, aArray[I]) then
      begin
      Result := True;
      Break;
      end;
      end;
      var
      LResult: Extended;
      begin
      Result := TryStrToFloat(S, LResult);
      if Result then
      Value := LResult <> 0
      else
      begin
      Result := True; //修正处
      VerifyBoolStrArray;
      if CompareWith(TrueBoolStrs) then