亚洲国产日韩欧美一区二区三区,精品亚洲国产成人av在线,国产99视频精品免视看7,99国产精品久久久久久久成人热,欧美日韩亚洲国产综合乱

characters




<<Delphi6函數(shù)大全2-SysUtils.pas>>

首部      function Languages: TLanguages; $[SysUtils.pas
功能 返回系統(tǒng)語(yǔ)言對(duì)象
說明      通過此函數(shù)可以得到系統(tǒng)的語(yǔ)言環(huán)境
參考 type SysUtils.TLanguages
例子
///////Begin      Languages
procedure TForm1.Button1Click(Sender: TObject);
var
I:      Integer;
begin
Memo1.Clear;
for I := 0 to Languages.Count - 1      do
Memo1.Lines.Add(Languages.Name[I]);
end;
///////End      Languages
━━━━━━━━━━━━━━━━━━━━━
首部 function AllocMem(Size:      Cardinal): Pointer; $[SysUtils.pas
功能 返回一個(gè)指定大小Size的內(nèi)存塊
說明      配合用FreeMem釋放資源
參考 function System.GetMem
例子
///////Begin      AllocMem
procedure TForm1.Button1Click(Sender: TObject);
var
I:      PInteger;
begin
I := AllocMem(SizeOf(Integer));
I^ :=      100;
Edit1.Text := IntToStr(I^);
FreeMem(I,      SizeOf(Integer));
end;
///////End AllocMem
━━━━━━━━━━━━━━━━━━━━━      
首部 procedure AddExitProc(Proc: TProcedure); $[SysUtils.pas
功能      添加一個(gè)退出處理的過程
說明 建議用finalization部分取代
參考 <NULL>
例子      
////////Begin AddExitProc
uses
ShellApi;

procedure      ExitProc;
begin
ShellExecute(0, 'Open', 'Calc.exe', nil, nil,      SW_SHOW);
end;

procedure TForm1.Button1Click(Sender:      TObject);
begin
AddExitProc(ExitProc);
end;
////////End      AddExitProc
━━━━━━━━━━━━━━━━━━━━━
首部 function NewStr(const S:      string): PString; deprecated; $[SysUtils.pas
功能 返回一個(gè)新的字符串指針地址
說明      字符串S為空時(shí)返回NullStr
參考 procedure System.New
例子
////////Begin      NewStr,DisposeStr
procedure TForm1.Button1Click(Sender:      TObject);
var
P: PString;
begin
P :=      NewStr(Edit1.Text);
Edit2.Text :=      P^;
DisposeStr(P);
end;
////////End      NewStr,DisposeStr
━━━━━━━━━━━━━━━━━━━━━
首部 procedure DisposeStr(P:      PString); deprecated; $[SysUtils.pas
功能 釋放字符串指針P資源
說明      配合函數(shù)NewStr使用
參考 procedure System.Dispose
例子      <如上參見,如下參見>
━━━━━━━━━━━━━━━━━━━━━
首部 procedure AssignStr(var      P: PString; const S: string); deprecated; $[SysUtils.pas
功能      將字符串S更新給字符串指針P
說明 更新值時(shí)會(huì)釋放以前字符串指針的資源
參考 function      SysUtils.NewStr;function SysUtils.DisposeStr
例子
////////Begin      AssignStr
procedure TForm1.Button1Click(Sender: TObject);
var
P:      PString;
begin
P := nil;
AssignStr(P, Edit1.Text);
Edit2.Text      := P^;
DisposeStr(P);
end;
////////End      AssignStr
━━━━━━━━━━━━━━━━━━━━━
首部 procedure AppendStr(var Dest:      string; const S: string); deprecated; $[SysUtils.pas
功能      在字符串Dest后追加字符串S
說明 相當(dāng)于Dest := Dest + S;Delphi6已經(jīng)不建議使用
參考      <NULL>
例子
////////Begin AppendStr
procedure      TForm1.Button1Click(Sender: TObject);
var
S: string;
begin
S      := Edit2.Text;
AppendStr(S, Edit1.Text);
Edit2.Text :=      S;
end;
////////End AppendStr
━━━━━━━━━━━━━━━━━━━━━
首部      function UpperCase(const S: string): string; $[SysUtils.pas
功能      返回字符串S的大寫形式
說明 非小寫字符不處理
參考 procedure System.SetLength
例子      Edit2.Text := UpperCase(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部      function LowerCase(const S: string): string; $[SysUtils.pas
功能      返回字符串S的小寫形式
說明 非大寫字符不處理
參考 procedure System.SetLength
例子      Edit2.Text := LowerCase(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部      function CompareStr(const S1, S2: string): Integer; $[SysUtils.pas
功能      返回比較兩個(gè)字符
說明 當(dāng)S1>S2返回值>0;當(dāng)S1<S2返回值<0;當(dāng)S1=S2返回值=0;區(qū)分大小寫
參考      <NULL>
例子 SpinEdit1.Value := CompareStr(Edit1.Text,      Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部 function CompareMem(P1, P2:      Pointer; Length: Integer): Boolean; assembler; $[SysUtils.pas
功能      返回比較兩個(gè)內(nèi)存指針
說明 CompareMem(PChar('12a'), PChar('12c'),      2)=True;CompareMem(PChar('12a'), PChar('12c'), 3)=False
參考      <NULL>
例子 CheckBox1.Checked := CompareMem(Self, Form1,      8);
━━━━━━━━━━━━━━━━━━━━━
首部 function CompareText(const S1, S2:      string): Integer; $[SysUtils.pas
功能 返回比較兩個(gè)字符串
說明 不區(qū)分大小寫
參考      <NULL>
例子 SpinEdit1.Value := CompareText(Edit1.Text,      Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部 function SameText(const S1,      S2: string): Boolean; $[SysUtils.pas
功能 返回兩個(gè)字符串是否相等
說明 不區(qū)分大小寫
參考      <NULL>
例子 CheckBox1.Checked := SameText(Edit1.Text,      Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部 function AnsiUpperCase(const      S: string): string; $[SysUtils.pas
功能 返回字符串S的大寫形式
說明 ANSI(American      National Standards Institute)美國(guó)國(guó)家標(biāo)準(zhǔn)協(xié)會(huì);非小寫的字符不變
參考 function      Windows.CharUpperBuff
例子 Edit2.Text :=      AnsiUpperCase(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部 function      AnsiLowerCase(const S: string): string; $[SysUtils.pas
功能      返回字符串S的小寫形式
說明 非大寫字符不處理
參考 function Windows.CharLowerBuff
例子      Edit2.Text := AnsiLowerCase(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部      function AnsiCompareStr(const S1, S2: string): Integer;      $[SysUtils.pas
功能 反回比較兩個(gè)字符串
說明      當(dāng)S1>S2返回值>0;當(dāng)S1<S2返回值<0;當(dāng)S1=S2返回值=0;區(qū)分大小寫
參考 function      Windows.CompareString
例子 SpinEdit1.Value := AnsiCompareStr(Edit1.Text,      Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部 function AnsiSameStr(const S1,      S2: string): Boolean; $[SysUtils.pas
功能 返回兩個(gè)字符串是否相等
說明 區(qū)分大小寫
參考      function SysUtils.AnsiCompareStr
例子 CheckBox1.Checked :=      AnsiSameStr(Edit1.Text, Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部      function AnsiCompareText(const S1, S2: string): Integer;      $[SysUtils.pas
功能 反回比較兩個(gè)字符串
說明      當(dāng)S1>S2返回值>0;當(dāng)S1<S2返回值<0;當(dāng)S1=S2返回值=0;不區(qū)分大小寫
參考 function      Windows.CompareString
例子 SpinEdit1.Value := AnsiCompareText(Edit1.Text,      Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部 function AnsiSameText(const      S1, S2: string): Boolean; $[SysUtils.pas
功能 返回兩個(gè)字符串是否相等
說明      不區(qū)分大小寫
參考 function SysUtils.AnsiCompareText
例子 CheckBox1.Checked :=      AnsiSameText(Edit1.Text, Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部      function AnsiStrComp(S1, S2: PChar): Integer; $[SysUtils.pas
功能      返回比較兩個(gè)指針字符串
說明      當(dāng)S1>S2返回值>0;當(dāng)S1<S2返回值<0;當(dāng)S1=S2返回值=0;區(qū)分大小寫
參考 function      System.CompareString
例子 SpinEdit1.Value :=      AnsiStrComp(PChar(Edit1.Text),      PChar(Edit2.Text))
━━━━━━━━━━━━━━━━━━━━━
首部 function      AnsiStrIComp(S1, S2: PChar): Integer; $[SysUtils.pas
功能      返回比較兩個(gè)指針字符串
說明      當(dāng)S1>S2返回值>0;當(dāng)S1<S2返回值<0;當(dāng)S1=S2返回值=0;不區(qū)分大小寫;Ignore(忽略)
參考      function Windows.CompareString
例子 SpinEdit1.Value :=      AnsiStrIComp(PChar(Edit1.Text),      PChar(Edit2.Text))
━━━━━━━━━━━━━━━━━━━━━
首部 function      AnsiStrLComp(S1, S2: PChar; MaxLen: Cardinal): Integer;      $[SysUtils.pas
功能 返回比較兩個(gè)指針字符串指定長(zhǎng)度
說明      當(dāng)S1>S2返回值>0;當(dāng)S1<S2返回值<0;當(dāng)S1=S2返回值=0;區(qū)分大小寫;Length(長(zhǎng)度)
參考      function Windows.CompareString
例子 SpinEdit1.Value :=      AnsiStrLComp(PChar(Edit1.Text), PChar(Edit2.Text),      SpinEdit2.Value)
━━━━━━━━━━━━━━━━━━━━━
首部 function AnsiStrLIComp(S1,      S2: PChar; MaxLen: Cardinal): Integer; $[SysUtils.pas
功能      返回比較兩個(gè)指針字符串指定長(zhǎng)度
說明      當(dāng)S1>S2返回值>0;當(dāng)S1<S2返回值<0;當(dāng)S1=S2返回值=0;不區(qū)分大小寫
參考 function      Windows.CompareString
例子 SpinEdit1.Value :=      AnsiStrLIComp(PChar(Edit1.Text), PChar(Edit2.Text),      SpinEdit2.Value)
━━━━━━━━━━━━━━━━━━━━━
首部 function AnsiStrLower(Str:      PChar): PChar; $[SysUtils.pas
功能 返回指針字符串小寫形式
說明 非大寫字符不處理
參考      function Windows.CharLower
例子 Edit2.Text :=      AnsiStrLower(PChar(Edit1.Text));
━━━━━━━━━━━━━━━━━━━━━
首部 function      AnsiStrUpper(Str: PChar): PChar; $[SysUtils.pas
功能 返回指針字符串大寫形式
說明      非小寫字符不處理
參考 function Windows.CharUpper
例子 Edit2.Text :=      AnsiStrUpper(PChar(Edit1.Text));
━━━━━━━━━━━━━━━━━━━━━
首部 function      AnsiLastChar(const S: string): PChar; $[SysUtils.pas
功能      返回字符串S的最后一個(gè)指針字符
說明 當(dāng)字符串S為空串則返回空指針
參考 function      SysUtils.ByteType
例子 Edit2.Text :=      AnsiLastChar(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部 function      AnsiStrLastChar(P: PChar): PChar; $[SysUtils.pas
功能      返回指針字符串P的最后一個(gè)指針字符
說明 當(dāng)字符串P為空空指針則返回空指針
參考 function      SysUtils.ByteType
例子 Edit2.Text :=      AnsiLastChar(PChar(Edit1.Text));
━━━━━━━━━━━━━━━━━━━━━
首部 function      WideUpperCase(const S: WideString): WideString; $[SysUtils.pas
功能      返回雙字節(jié)字符串的大寫形式
說明 WideChar雙字節(jié)字符
參考 function      Windows.CharUpperBuffW
例子 Edit2.Text :=      WideUpperCase(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部 function      WideLowerCase(const S: WideString): WideString; $[SysUtils.pas
功能      返回雙字節(jié)字符串的小寫形式
說明 我怎么就測(cè)試不出來呢
參考 function Windows.CharLowerBuffW
例子      Edit2.Text := WideLowerCase(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部      function WideCompareStr(const S1, S2: WideString): Integer;      $[SysUtils.pas
功能 返回比較兩個(gè)雙字節(jié)字符串
說明      當(dāng)S1>S2返回值>0;當(dāng)S1<S2返回值<0;當(dāng)S1=S2返回值=0;區(qū)分大小寫
參考 function      Windows.CompareStringW
例子 SpinEdit1.Value := WideCompareStr(Edit1.Text,      Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部 function WideSameStr(const      S1, S2: WideString): Boolean; $[SysUtils.pas
功能 返回兩個(gè)雙字節(jié)字符串是否相同
說明      區(qū)分大小寫
參考 function SysUtils.WideCompareStr
例子 CheckBox1.Checked :=      WideSameStr(Edit1.Text, Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部      function WideCompareText(const S1, S2: WideString): Integer;      $[SysUtils.pas
功能 返回比較兩個(gè)雙字節(jié)字符串
說明      當(dāng)S1>S2返回值>0;當(dāng)S1<S2返回值<0;當(dāng)S1=S2返回值=0;不區(qū)分大小寫
參考 function      Windows.CompareStringW
例子 SpinEdit1.Value :=      WideCompareText(Edit1.Text, Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部      function WideSameText(const S1, S2: WideString): Boolean;      $[SysUtils.pas
功能 返回兩個(gè)雙字節(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)形式
說明 單引號(hào)中的一個(gè)單引號(hào)將轉(zhuǎn)成兩個(gè)
參考 procedure      System.Insert
例子 Edit2.Text :=      QuotedStr(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部 function      AnsiQuotedStr(const S: string; Quote: Char): string; $[SysUtils.pas
功能      返回字符串S以字符Quote為引號(hào)的表現(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為引號(hào)的表現(xiàn)形式原形
說明 表現(xiàn)形式非法時(shí)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為引號(hào)的表現(xiàn)形式原形
說明 表現(xiàn)形式非法時(shí)則返回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是否是正確的標(biāo)識(shí)符
說明      標(biāo)識(shí)符::字母|下劃線[字母|下劃線|數(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)換成十六進(jìn)制表現(xiàn)結(jié)果;Format('%.*x',      [Digits, Value])
說明 參數(shù)Digits指定字符最小寬度;最小寬度不足時(shí)將用0填充
參考 function      SysUtils.FmtStr
例子 Edit2.Text := IntToHex(SpinEdit1.Value,      SpinEdit2.Value);
━━━━━━━━━━━━━━━━━━━━━
首部 function StrToInt(const      S: string): Integer; $[SysUtils.pas
功能 返回字符串S轉(zhuǎn)換成整數(shù)
說明      字符串非整數(shù)表達(dá)時(shí)將引起異常
參考 procedure System.Val
例子 SpinEdit1.Value :=      StrToInt(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部 function      StrToIntDef(const S: string; Default: Integer): Integer;      $[SysUtils.pas
功能 返回字符串S轉(zhuǎn)換成整數(shù)
說明 字符串非整數(shù)表達(dá)時(shí)則返回默認(rèn)值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ù)表達(dá)時(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ù)表達(dá)時(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ù)表達(dá)時(shí)則返回默認(rèn)值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ù)表達(dá)時(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)換成邏輯值
說明      字符非邏輯表達(dá)時(shí)將引起異常
參考 function SysUtils.TryStrToBool
例子 CheckBox1.Checked      := StrToBool(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部 function      StrToBoolDef(const S: string; const Default: Boolean): Boolean;      $[SysUtils.pas
功能 返回字符串S轉(zhuǎn)換成邏輯值
說明 字符非邏輯表達(dá)時(shí)則返回默認(rè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
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轉(zhuǎn)換成字符串
說明 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
功能 返回根據(jù)標(biāo)識(shí)Ident的字符串資源
說明      字符串資源是指程序的內(nèi)部資源
參考 function SysUtils.FindStringResource
例子 Edit2.Text      := LoadStr(StrToIntDef(Edit1.Text, 0));
━━━━━━━━━━━━━━━━━━━━━
首部      function FmtLoadStr(Ident: Integer; const Args: array of const): string;      $[SysUtils.pas
功能 返回格式化的字符串資源
說明 字符串資源是指程序的內(nèi)部資源
參考 function      SysUtils.FmtStr;function SysUtils.FindStringResource
例子      <NULL>;
━━━━━━━━━━━━━━━━━━━━━
首部 function FileOpen(const      FileName: string; Mode: LongWord): Integer; $[SysUtils.pas
功能      返回打開文件果
說明      Mode指定打開文件的模式(fmOpenRead,fmOpenWrite,fmOpenReadWrite....);打開失敗則返回負(fù)數(shù)
參考      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
功能 返回創(chuàng)建文件
說明      創(chuàng)建失敗則返回負(fù)數(shù)
參考 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
功能      返回讀取文件緩沖區(qū)的大小
說明 讀取失敗則返回負(fù)數(shù)
參考 function Windows.ReadFile
例子      <參見FileOpen>
━━━━━━━━━━━━━━━━━━━━━
首部 function      FileWrite(Handle: Integer; const Buffer; Count: LongWord): Integer;      $[SysUtils.pas
功能 返回寫入文件緩沖區(qū)的大小
說明 寫入失敗則返回負(fù)數(shù)
參考 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指定原點(diǎn)(Origin為0時(shí)指文件首;為1時(shí)指當(dāng)前位置;為2時(shí)指文件尾)
參考 function      Windows.SetFilePointer
例子      <參見FileOpen>
━━━━━━━━━━━━━━━━━━━━━
首部 procedure      FileClose(Handle: Integer); $[SysUtils.pas
功能 返回關(guān)閉文件
說明      不關(guān)閉打開的文件會(huì)占用系統(tǒng)資源
參考 function Windows.CloseHandle
例子      <參見FileOpen>
━━━━━━━━━━━━━━━━━━━━━
首部 function FileAge(const      FileName: string): Integer; $[SysUtils.pas
功能 返回文件創(chuàng)建的時(shí)間
說明      文件不存在則返回-1
參考 function Windows.FindFirstFile
例子
///////Begin      FileAge,DateTimeToStr,FileDateToDateTime
procedure      TForm1.Button1Click(Sender: TObject);
begin
SpinEdit1.Value :=      FileAge(Edit1.Text);
if SpinEdit1.Value > 0 then
Edit2.Text :=      DateTimeToStr(FileDateToDateTime(SpinEdit1.Value));
end;
///////End      FileAge,DateTimeToStr,FileDateToDateTime
━━━━━━━━━━━━━━━━━━━━━
首部      function FileExists(const FileName: string): Boolean; $[SysUtils.pas
功能      返回文件名FileName是否有實(shí)體存在
說明 包括隱藏文件
參考 function SysUtils.FileAge
例子      CheckBox1.Checked := FileExists(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━      
首部 function DirectoryExists(const Directory: string): Boolean;      $[SysUtils.pas
功能 返回目錄名FileName是否有實(shí)體存在
說明 包括隱藏目錄
參考 function      Windows.GetFileAttributes
例子 CheckBox1.Checked :=      DirectoryExists(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部 function      ForceDirectories(Dir: string): Boolean; $[SysUtils.pas
功能      返回創(chuàng)建子目錄是否成功
說明 直接創(chuàng)建多級(jí)目錄
參考 function SysUtils.CreateDir
例子      CheckBox1.Checked :=      ForceDirectories(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部 function      FindFirst(const Path: string; Attr: Integer; var F: TSearchRec): Integer;      $[SysUtils.pas
功能 返回設(shè)置文件搜索
說明 搜索成功則返回0
參考 function      Windows.FindFirstFile
例子
///////Begin      FindFirst,FindNext,FindClose
procedure TForm1.Button1Click(Sender:      TObject);
var
vSearchRec: TSearchRec;
I:      Integer;
begin
Memo1.Clear;
I := FindFirst(Edit1.Text, faAnyFile,      vSearchRec);
while I = 0 do      begin
Memo1.Lines.Add(vSearchRec.Name);
I :=      FindNext(vSearchRec);
end;
FindClose(vSearchRec);
end;
///////End      FindFirst,FindNext,FindClose
━━━━━━━━━━━━━━━━━━━━━

Previous article： Next article：