首部 function WideSameText(const S1, S2: WideString): Boolean; 
$[SysUtils.pas
      功能 返回兩個雙字節(jié)字符串是否相同
      說明 不區(qū)分大小寫
      參考 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中的表現(xiàn)形式
      說明 單引號中的一個單引號將轉(zhuǎn)成兩個
      參考 procedure System.Insert
      例子 Edit2.Text := QuotedStr(Edit1.Text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function AnsiQuotedStr(const S: string; Quote: Char): string; 
      $[SysUtils.pas
      功能 返回字符串S以字符Quote為引號的表現(xiàn)形式
      說明 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為引號的表現(xiàn)形式原形
      說明 表現(xiàn)形式非法時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為引號的表現(xiàn)形式原形
      說明 表現(xiàn)形式非法時則返回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
      功能 返回將給定字符串的行分隔符調(diào)整為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是否是正確的標識符
      說明 標識符::字母|下劃線[字母|下劃線|數(shù)字]...
      參考 <NULL>
      例子 CheckBox1.Checked := IsValidIdent(Edit1.Text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function IntToStr(Value: Integer): string; overload; $[SysUtils.pas
      首部 function IntToStr(Value: Int64): string; overload; $[SysUtils.pas
      功能 返回整數(shù)Value轉(zhuǎn)換成字符串
      說明 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
      功能 返回整數(shù)Value轉(zhuǎn)換成十六進制表現(xiàn)結(jié)果;Format('%.*x', [Digits, Value])
      說明 參數(shù)Digits指定字符最小寬度;最小寬度不足時將用0填充
      參考 function SysUtils.FmtStr
      例子 Edit2.Text := IntToHex(SpinEdit1.Value, SpinEdit2.Value);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrToInt(const S: string): Integer; $[SysUtils.pas
      功能 返回字符串S轉(zhuǎn)換成整數(shù)
      說明 字符串非整數(shù)表達時將引起異常
      參考 procedure System.Val
      例子 SpinEdit1.Value := StrToInt(Edit1.Text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrToIntDef(const S: string; Default: Integer): Integer; 
      $[SysUtils.pas
      功能 返回字符串S轉(zhuǎn)換成整數(shù)
      說明 字符串非整數(shù)表達時則返回默認值Default
      參考 procedure System.Val
      例子 SpinEdit1.Value := StrToIntDef(Edit1.Text, 0);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function TryStrToInt(const S: string; out Value: Integer): Boolean; 
      $[SysUtils.pas
      功能 返回字符串S轉(zhuǎn)換成整數(shù)Value是否成功
      說明 字符串非整數(shù)表達時返回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轉(zhuǎn)換成六十四位整數(shù)
      說明 字符串非六十四位整數(shù)表達時將引起異常
      參考 procedure System.Val
      例子 SpinEdit1.Value := StrToInt64(Edit1.Text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrToInt64Def(const S: string; const Default: Int64): Int64; 
      $[SysUtils.pas
      功能 返回字符串S轉(zhuǎn)換成六十四位整數(shù)
      說明 字符串非六十四位整數(shù)表達時則返回默認值Default
      參考 procedure System.Val
      例子 SpinEdit1.Value := StrToInt64Def(Edit1.Text, 0);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function TryStrToInt64(const S: string; out Value: Int64): Boolean; 
      $[SysUtils.pas
      功能 返回字符串S轉(zhuǎn)換成六十四位整數(shù)Value是否成功
      說明 字符串非六十四位整數(shù)表達時返回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轉(zhuǎn)換成邏輯值
      說明 字符非邏輯表達時將引起異常
      參考 function SysUtils.TryStrToBool
      例子 CheckBox1.Checked := StrToBool(Edit1.Text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrToBoolDef(const S: string; const Default: Boolean): 
      Boolean; $[SysUtils.pas
      功能 返回字符串S轉(zhuǎn)換成邏輯值
      說明 字符非邏輯表達時則返回默認值Default
      參考 function SysUtils.TryStrToBool
      例子 CheckBox1.Checked := StrToBoolDef(Edit1.Text, False);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function TryStrToBool(const S: string; out Value: Boolean): Boolean; 
      $[SysUtils.pas
      功能 返回字符串S轉(zhuǎn)換成邏輯值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