首部  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
      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 FileOpen(const FileName: string; Mode: LongWord): Integer; $[SysUtils.pas
功能  返回打開文件果
說明  Mode指定打開文件的模式(fmOpenRead,fmOpenWrite,fmOpenReadWrite....);打開失敗則返回負數
參考  function Windows.CreateFile
例子
///////Begin FileOpen,FileClose
procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  I := FileOpen(Edit1.Text, fmOpenRead);
  CheckBox1.Checked := I > 0;
  FileClose(I);
end;
///////Begin FileOpen,FileClose
━━━━━━━━━━━━━━━━━━━━━
首部  function FileCreate(const FileName: string): Integer; overload; $[SysUtils.pas
首部  function FileCreate(const FileName: string; Rights: Integer): Integer; overload; $[SysUtils.pas
功能  返回創建文件
說明  創建失敗則返回負數
參考  function Windows.CreateFile
例子
///////Begin FileCreate
procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  I := FileCreate(Edit1.Text);
  CheckBox1.Checked := I > 0;
  FileClose(I);
end;
///////End FileCreate
━━━━━━━━━━━━━━━━━━━━━
首部  function FileRead(Handle: Integer; var Buffer; Count: LongWord): Integer; $[SysUtils.pas
功能  返回讀取文件緩沖區的大小
說明  讀取失敗則返回負數
參考  function Windows.ReadFile
例子  <參見FileOpen>
━━━━━━━━━━━━━━━━━━━━━
首部  function FileWrite(Handle: Integer; const Buffer; Count: LongWord): Integer; $[SysUtils.pas
功能  返回寫入文件緩沖區的大小
說明  寫入失敗則返回負數
參考  function Windows.WriteFile
例子  <參見FileCreate>
━━━━━━━━━━━━━━━━━━━━━
首部  function FileSeek(Handle, Offset, Origin: Integer): Integer; overload; $[SysUtils.pas
首部  function FileSeek(Handle: Integer; const Offset: Int64; Origin: Integer): Int64; overload; $[SysUtils.pas
功能  返回指定文件偏移量
說明  Offset指定偏移量;Origin指定原點(Origin為0時指文件首;為1時指當前位置;為2時指文件尾)
參考  function Windows.SetFilePointer
例子  <參見FileOpen>
━━━━━━━━━━━━━━━━━━━━━
首部  procedure FileClose(Handle: Integer); $[SysUtils.pas
功能  返回關閉文件