国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

打開APP
userphoto
未登錄

開通VIP,暢享免費(fèi)電子書等14項(xiàng)超值服

開通VIP
Delphi 函數(shù)參考
uses StrUtils;
【字符串函數(shù)大全】
      首部 function AnsiResemblesText(const AText, AOther: string): Boolean;
      $[StrUtils.pas
      功能 返回兩個(gè)字符串是否相似
      說明 ANSI(American National Standards Institute)美國國家標(biāo)準(zhǔn)協(xié)會(huì);不區(qū)分大小寫
      參考 function StrUtils.SoundexProc; var StrUtils.AnsiResemblesProc
      例子 CheckBox1.Checked := AnsiResemblesText(Edit1.Text, Edit2.Text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function AnsiContainsText(const AText, ASubText: string): Boolean;
      $[StrUtils.pas
      功能 返回字符串AText是否包含子串ASubText
      說明 不區(qū)分大小寫
      參考 function StrUtils.AnsiUppercase; function StrUtils.AnsiPos
      例子 CheckBox1.Checked := AnsiContainsText(Edit1.Text, Edit2.Text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function AnsiStartsText(const ASubText, AText: string): Boolean;
      $[StrUtils.pas
      功能 返回字符串AText是否以子串ASubText開頭
      說明 不區(qū)分大小寫
      參考 function Windows.CompareString
      例子 CheckBox1.Checked := AnsiStartsText(Edit1.Text, Edit2.Text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function AnsiEndsText(const ASubText, AText: string): Boolean;
      $[StrUtils.pas
      功能 返回字符串AText是否以子串ASubText結(jié)尾
      說明 不區(qū)分大小寫
      參考 function Windows.CompareString
      例子 CheckBox1.Checked := AnsiEndsText(Edit1.Text, Edit2.Text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function AnsiReplaceText(const AText, AFromText, AToText: string):
      string; $[StrUtils.pas
      功能 返回字符串AText中用子串AFromText替換成子串AToText的結(jié)果
      說明 不區(qū)分大小寫
      參考 function SysUtils.StringReplace; type SysUtils.TReplaceFlags
      例子 Edit4.Text := AnsiReplaceText(Edit1.Text, Edit2.Text, Edit3.Text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function AnsiMatchText(const AText: string; const AValues: array of
      string): Boolean; $[StrUtils.pas
      功能 返回字符串?dāng)?shù)組AValues中是否包含字符串AText
      說明 不區(qū)分大小寫
      參考 function StrUtils.AnsiIndexText
      例子 CheckBox1.Checked := AnsiMatchText(Edit1.Text, [‘a(chǎn)1‘, ‘a(chǎn)2‘, ‘a(chǎn)3‘,
      ‘a(chǎn)4‘]);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function AnsiIndexText(const AText: string; const AValues: array of
      string): Integer; $[StrUtils.pas
      功能 返回字符串AText在字符串?dāng)?shù)組AValues中的位置
      說明 不區(qū)分大小寫;如果不包含則返回-1
      參考 function SysUtils.AnsiSameText
      例子 SpinEdit1.Value := AnsiIndexText(Edit1.Text, [‘a(chǎn)1‘, ‘a(chǎn)2‘, ‘a(chǎn)3‘, ‘a(chǎn)4‘]);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function AnsiContainsStr(const AText, ASubText: string): Boolean;
      $[StrUtils.pas
      功能 返回字符串AText是否包含子串ASubText
      說明 區(qū)分大小寫
      參考 function StrUtils.AnsiPos
      例子 CheckBox1.Checked := AnsiContainsStr(Edit1.Text, Edit2.Text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function AnsiStartsStr(const ASubText, AText: string): Boolean;
      $[StrUtils.pas
      功能 返回字符串AText是否以子串ASubText開頭
      說明 區(qū)分大小寫
      參考 function SysUtils.AnsiSameStr
      例子 CheckBox1.Checked := AnsiStartsStr(Edit1.Text, Edit2.Text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function AnsiEndsStr(const ASubText, AText: string): Boolean;
      $[StrUtils.pas
      功能 返回字符串AText是否以子串ASubText結(jié)尾
      說明 區(qū)分大小寫
      參考 function SysUtils.AnsiSameStr
      例子 CheckBox1.Checked := AnsiEndsStr(Edit1.Text, Edit2.Text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function AnsiReplaceStr(const AText, AFromText, AToText: string):
      string; $[StrUtils.pas
      功能 返回字符串AText中用子串AFromText替換成子串AToText的結(jié)果
      說明 區(qū)分大小寫
      參考 function SysUtils.StringReplace; type SysUtils.TReplaceFlags
      例子 Edit4.Text := AnsiReplaceStr(Edit1.Text, Edit2.Text, Edit3.Text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function AnsiMatchStr(const AText: string; const AValues: array of
      string): Boolean; $[StrUtils.pas
      功能 返回字符串?dāng)?shù)組AValues中是否包含字符串AText
      說明 區(qū)分大小寫
      參考 function StrUtils.AnsiIndexStr
      例子 CheckBox1.Checked := AnsiMatchStr(Edit1.Text, [‘a(chǎn)1‘, ‘a(chǎn)2‘, ‘a(chǎn)3‘,
‘a(chǎn)4‘]);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function AnsiIndexStr(const AText: string; const AValues: array of
      string): Integer; $[StrUtils.pas
      功能 返回字符串AText在字符串?dāng)?shù)組AValues中的位置
      說明 區(qū)分大小寫
      參考 function SysUtils.AnsiSameStr
      例子 SpinEdit1.Value := AnsiIndexStr(Edit1.Text, [‘a(chǎn)1‘, ‘a(chǎn)2‘, ‘a(chǎn)3‘, ‘a(chǎn)4‘]);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function DupeString(const AText: string; ACount: Integer): string;
      $[StrUtils.pas
      功能 返回字符串AText的ACount個(gè)復(fù)本
      說明 當(dāng)ACount為0時(shí)返回‘‘
      參考 function System.SetLength
      例子 Edit3.Text := DupeString(Edit1.Text, SpinEdit1.Value);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function ReverseString(const AText: string): string; $[StrUtils.pas
      功能 返回字符串AText的反序
      說明 ReverseString(‘1234‘) = ‘4321‘
      參考 function System.SetLength
      例子 Edit3.Text := ReverseString(Edit1.Text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StuffString(const AText: string; AStart, ALength: Cardinal;
      const ASubText: string): string; $[StrUtils.pas
      功能 返回嵌套字符串
      說明 AStart:嵌套開始位置;ALength:嵌套長度;StuffString(‘a(chǎn)bcd‘, 2, 0, ‘12‘) = ‘a(chǎn)12bcd‘
      參考 function System.Copy
      例子 Edit3.Text := StuffString(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value,
      Edit2.Text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function RandomFrom(const AValues: array of string): string; overload;
      $[StrUtils.pas
      功能 隨機(jī)返回字符串?dāng)?shù)組AValues中的一個(gè)元素
      說明 之前建議執(zhí)行Randomize
      參考 function System.Random
      例子 Randomize; Edit3.Text := RandomFrom([‘a(chǎn)1‘, ‘a(chǎn)2‘, ‘a(chǎn)3‘, ‘a(chǎn)4‘]);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function IfThen(AValue: Boolean; const ATrue: string; AFalse: string =
      ‘‘): string; overload; $[StrUtils.pas
      功能 返回指定的邏輯字符串
      說明 IfThen(True, ‘是‘, ‘否‘) = ‘是‘;IfThen(False, ‘是‘, ‘否‘) = ‘否‘
      參考 <NULL>
      例子 Edit3.Text := IfThen(CheckBox1.Checked, Edit1.Text, Edit2.Text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function LeftStr(const AText: string; const ACount: Integer): string;
      $[StrUtils.pas
      功能 返回字符串AText左邊的ACount個(gè)字符
      說明 LeftStr(‘123456‘, 3) = ‘123‘
      參考 function System.Copy
      例子 Edit3.Text := LeftStr(Edit1.Text, SpinEdit1.Value);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function RightStr(const AText: string; const ACount: Integer): string;
      $[StrUtils.pas
      功能 返回字符串AText右邊的ACount個(gè)字符
      說明 RightStr(‘123456‘, 3) = ‘456‘
      參考 function System.Copy
      例子 Edit3.Text := RightStr(Edit1.Text, SpinEdit1.Value);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function MidStr(const AText: string; const AStart, ACount: Integer):
      string; $[StrUtils.pas
      功能 返回字符串AText從AStart開始的ACount個(gè)字符
      說明 其實(shí)就是Copy
      參考 function System.Copy
      例子 Edit3.Text := MidStr(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function SearchBuf(Buf: PChar; BufLen: Integer; SelStart, SelLength:
      Integer; SearchString: String; Options: TStringSearchOptions = [soDown]):
      PChar; $[StrUtils.pas
      功能 返回第一個(gè)搜索到的指針位置
      說明 這函數(shù)常用于文本中搜索字符串
      參考 <NULL>
      例子
      ///////Begin SearchBuf
      function SearchEdit(EditControl: TCustomEdit; const SearchString: String;
      SearchOptions: TStringSearchOptions; FindFirst: Boolean = False): Boolean;
      var
      Buffer, P: PChar;
      Size: Word;
      begin
      Result := False;
      if (Length(SearchString) = 0) then Exit;
      Size := EditControl.GetTextLen;
      if (Size = 0) then Exit;
      Buffer := StrAlloc(Size + 1);
      try
      EditControl.GetTextBuf(Buffer, Size + 1);
      P := SearchBuf(Buffer, Size, EditControl.SelStart, EditControl.SelLength,
      SearchString, SearchOptions);
      if P <> nil then begin
      EditControl.SelStart := P - Buffer;
      EditControl.SelLength := Length(SearchString);
      Result := True;
      end;
      finally
      StrDispose(Buffer);
      end;
      end;

      procedure TForm1.Button1Click(Sender: TObject);
      var
      SearchOptions: TStringSearchOptions;
      begin
      SearchOptions := [];
      if CheckBox1.Checked then
      Include(SearchOptions, soDown);
      if CheckBox2.Checked then
      Include(SearchOptions, soMatchCase);
      if CheckBox3.Checked then
      Include(SearchOptions, soWholeWord);
      SearchEdit(Memo1, Edit1.Text, SearchOptions);
      Memo1.SetFocus;
      end;
      ///////End SearchBuf
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function Soundex(const AText: string; ALength: TSoundexLength = 4):
      string; $[StrUtils.pas
      功能 返回探測字符串
      說明 根據(jù)探測法(Soundex)可以找到相進(jìn)的字符串;http://www.nara.gov/genealogy/coding.html
      參考 <NULL>
      例子 Edit2.Text := Soundex(Edit1.Text, SpinEdit1.Value);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function SoundexInt(const AText: string; ALength: TSoundexIntLength =
      4): Integer; $[StrUtils.pas
      功能 返回探測整數(shù)
      說明 ALength的值越大解碼準(zhǔn)確率越高
      參考 <NULL>
      例子 SpinEdit2.Value := SoundexInt(Edit1.Text, SpinEdit1.Value);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function DecodeSoundexInt(AValue: Integer): string; $[StrUtils.pas
      功能 返回探測整數(shù)的解碼
      說明 DecodeSoundexInt(SoundexInt(‘hello‘)) 相當(dāng)于 Soundex(‘hello‘)
      參考 <NULL>
      例子 Edit2.Text := DecodeSoundexInt(SpinEdit2.Value);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function SoundexWord(const AText: string): Word; $[StrUtils.pas
      功能 返回探測文字?jǐn)?shù)值
      說明 沒有參數(shù)ALength已經(jīng)固定為4
      參考 <NULL>
      例子 SpinEdit2.Value := SoundexWord(Edit1.Text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function DecodeSoundexWord(AValue: Word): string; $[StrUtils.pas
      功能 返回探測文字?jǐn)?shù)值的解碼
      說明 DecodeSoundexWord(SoundexWord(‘hello‘)) 相當(dāng)于 Soundex(‘hello‘)
      參考 <NULL>
      例子 Edit2.Text := DecodeSoundexWord(SpinEdit2.Value);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function SoundexSimilar(const AText, AOther: string; ALength:
      TSoundexLength = 4): Boolean; $[StrUtils.pas
      功能 返回兩個(gè)字符串的探測字符串是否相同
      說明 Result := Soundex(AText, ALength) = Soundex(AOther, ALength)
      參考 <NULL>
      例子 CheckBox1.Checked := SoundexSimilar(Edit1.Text, Edit2.Text,
      SpinEdit1.Value);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function SoundexCompare(const AText, AOther: string; ALength:
      TSoundexLength = 4): Integer; $[StrUtils.pas
      功能 返回比較兩個(gè)字符串的探測字符串的結(jié)果
      說明 Result := AnsiCompareStr(Soundex(AText, ALength), Soundex(AOther,
      ALength))
      參考 function SysUtils.AnsiCompareStr
      例子 SpinEdit2.Value := SoundexCompare(Edit1.Text, Edit2.Text,
      SpinEdit1.Value);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function SoundexProc(const AText, AOther: string): Boolean;
      $[StrUtils.pas
      功能 調(diào)用SoundexSimilar返回兩個(gè)字符串的探測字符串是否相同
      說明 系統(tǒng)變量AnsiResemblesProc的默認(rèn)值
      參考 function StrUtils.AnsiResemblesText
      例子 [var AnsiResemblesProc: TCompareTextProc = SoundexProc;]
      ━━━━━━━━━━━━━━━━━━━━━
      首部 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)美國國家標(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è)指針字符串指定長度
      說明 當(dāng)S1>S2返回值>0;當(dāng)S1<S2返回值<0;當(dāng)S1=S2返回值=0;區(qū)分大小寫;Length(長度)
      參考 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è)指針字符串指定長度
      說明 當(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é)字符串的小寫形式
      說明 我怎么就測試不出來呢
      參考 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 StrLen(const Str: PChar): Cardinal; $[SysUtils.pas
      功能 返回指針字符串的長度
      說明 當(dāng)指針字符串Str為nil時(shí)將觸發(fā)異常
      參考 <NULL>
      例子 SpinEdit2.Value := StrLen(PChar(Edit1.Text));
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrEnd(const Str: PChar): PChar; $[SysUtils.pas
      功能 返回指針字符串的結(jié)尾
      說明 當(dāng)指針字符串Str為nil時(shí)將觸發(fā)異常
      參考 <NULL>
      例子 Edit2.Text := StrEnd(PChar(Edit1.Text)) - SpinEdit1.Value;
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrMove(Dest: PChar; const Source: PChar; Count: Cardinal):
      PChar; $[SysUtils.pas
      功能 返回將指針字符串Source指定內(nèi)存數(shù)量Count復(fù)制覆蓋到指針字符串Dest中
      說明 Dest沒有分配資源將觸發(fā)異常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復(fù)制到指針字符串Dest中
      說明 Dest應(yīng)已經(jīng)分配足夠的空間非則將觸發(fā)異常
      參考 <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復(fù)制到指針字符串Dest中的結(jié)尾
      說明 可以連接指針字符串
      參考 <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復(fù)制到指針字符串Dest中
      說明 Dest應(yīng)已經(jīng)分配足夠的空間非則將觸發(fā)異常
      參考 <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復(fù)制到指針字符串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復(fù)制到指針字符串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
      功能 返回比較兩個(gè)指針字符串
      說明 當(dāng)S1>S2返回值>0;當(dāng)S1<S2返回值<0;當(dāng)S1=S2返回值=0;區(qū)分大小寫;[注意]返回第一個(gè)出現(xiàn)不同字符的差異
      參考 <NULL>
      例子 SpinEdit1.Value := StrComp(PChar(Edit1.Text), PChar(Edit2.Text));
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrIComp(const Str1, Str2: PChar): Integer; $[SysUtils.pas
      功能 返回比較兩個(gè)指針字符串
      說明 當(dāng)S1>S2返回值>0;當(dāng)S1<S2返回值<0;當(dāng)S1=S2返回值=0;不區(qū)分大小寫;[注意]返回第一個(gè)出現(xiàn)不同字符的差異
      參考 <NULL>
      例子 SpinEdit1.Value := StrIComp(PChar(Edit1.Text), PChar(Edit2.Text));
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrLComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer;
      $[SysUtils.pas
      功能 返回比較兩個(gè)指針字符串指定長度
      說明 當(dāng)S1>S2返回值>0;當(dāng)S1<S2返回值<0;當(dāng)S1=S2返回值=0;區(qū)分大小寫;Length(長度);[注意]返回第一個(gè)出現(xiàn)不同字符的差異
      參考 <NULL>
      例子 SpinEdit1.Value := StrLComp(PChar(Edit1.Text), PChar(Edit2.Text),
      SpinEdit2.Value)
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrLIComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer;
      $[SysUtils.pas
      功能 返回比較兩個(gè)指針字符串指定長度
      說明 當(dāng)S1>S2返回值>0;當(dāng)S1<S2返回值<0;當(dāng)S1=S2返回值=0;不區(qū)分大小寫;[注意]返回第一個(gè)出現(xiàn)不同字符的差異
      參考 <NULL>
      例子 SpinEdit1.Value := StrLIComp(PChar(Edit1.Text), PChar(Edit2.Text),
      SpinEdit2.Value)
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas
      功能 返回在指針字符串Str搜索字符Chr第一個(gè)出現(xiàn)的地址
      說明 沒有找到則返回空指針
      參考 <NULL>
      例子 Edit2.Text := StrScan(PChar(Edit1.Text), ‘*‘);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrRScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas
      功能 返回在指針字符串Str搜索字符Chr最后一個(gè)出現(xiàn)的地址
      說明 沒有找到則返回空指針
      參考 <NULL>
      例子 Edit2.Text := StrRScan(PChar(Edit1.Text), ‘*‘);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrPos(const Str1, Str2: PChar): PChar; $[SysUtils.pas
      功能 返回指針字符串Str2在Str1中第一個(gè)出現(xiàn)的地址
      說明 沒有找到則返回空指針;StrPos(‘12345‘, ‘3‘) = ‘345‘
      參考 <NULL>
      例子 Edit3.Text := StrPos(PChar(Edit1.Text), PChar(Edit2.Text));
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrUpper(Str: PChar): PChar; $[SysUtils.pas
      功能 返回指針字符串Str大寫
      說明 非小寫字符不處理
      參考 <NULL>
      例子 Edit1.Text := StrUpper(PChar(Edit2.Text));
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrLower(Str: PChar): PChar; $[SysUtils.pas
      功能 返回指針字符串Str小寫
      說明 非大寫字符不處理
      參考 <NULL>
      例子 Edit1.Text := StrLower(PChar(Edit2.Text));
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrPas(const Str: PChar): string; $[SysUtils.pas
      功能 返回指針字符串Str轉(zhuǎn)換成字符串
      說明 也可以直接賦值
      參考 <NULL>
      例子 Edit1.Text := StrPas(PChar(Edit2.Text));
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrAlloc(Size: Cardinal): PChar; $[SysUtils.pas
      功能 返回分配指定空間的內(nèi)存資源給指針字符串
      說明 空間的大小也將保存;用StrDispose才能全部釋放
      參考 function System.GetMem
      例子
      ///////Begin StrAlloc
      procedure TForm1.Button1Click(Sender: TObject);
      var
      P: PChar;
      begin
      P := StrAlloc(SpinEdit1.Value);
      ShowMessage(IntToStr(StrLen(P)));
      Dec(P, SizeOf(Cardinal));
      ShowMessage(IntToStr(Cardinal(Pointer(P)^)));
      Inc(P, SizeOf(Cardinal));
      StrDispose(P);
      end;
      ///////End StrAlloc

      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrBufSize(const Str: PChar): Cardinal; $[SysUtils.pas
      功能 返回通過函數(shù)StrAlloc分配的緩沖區(qū)大小
      說明 出現(xiàn)異常情況則返回不可預(yù)知的結(jié)果
      參考 function System.SizeOf
      例子 SpinEdit1.Value := StrBufSize(StrAlloc(SpinEdit2.Value));
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrNew(const Str: PChar): PChar; $[SysUtils.pas
      功能 返回復(fù)制一個(gè)新的指針字符串
      說明 如果Str為nil則返回nil
      參考 function SysUtils.StrLen;function SysUtils.StrMove;function
      SysUtils.StrAlloc
      例子
      ///////Begin StrNew,StrDispose
      procedure TForm1.Button1Click(Sender: TObject);
      var
      P: PChar;
      begin
      P := StrNew(PChar(Edit1.Text));
      ShowMessage(P);
      StrDispose(P);
      end;
      ///////End StrNew,StrDispose
      ━━━━━━━━━━━━━━━━━━━━━
      首部 procedure StrDispose(Str: PChar); $[SysUtils.pas
      功能 釋放指針字符串Str內(nèi)存資源
      說明 如果Str為nil則不作任何處理;并且釋放空間大小信息
      參考 function System.Dec;function System.SizeOf;function System.FreeMem
      例子 <參見StrNew>
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function Format(const Format: string; const Args: array of const):
      string; $[SysUtils.pas
      功能 返回按指定方式格式化一個(gè)數(shù)組常量的字符形式
      說明 這個(gè)函數(shù)是我在Delphi中用得最多的函數(shù),現(xiàn)在就列舉幾個(gè)例子給你個(gè)直觀的理解
      "%" [索引 ":"] ["-"] [寬度] ["." 摘要] 類型
      Format(‘x=%d‘, [12]); //‘x=12‘ //最普通
      Format(‘x=%3d‘, [12]); //‘x= 12‘ //指定寬度
      Format(‘x=%f‘, [12.0]); //‘x=12.00‘ //浮點(diǎn)數(shù)
      Format(‘x=%.3f‘, [12.0]); //‘x=12.000‘ //指定小數(shù)
      Format(‘x=%.*f‘, [5, 12.0]); //‘x=12.00000‘ //動(dòng)態(tài)配置
      Format(‘x=%.5d‘, [12]); //‘x=00012‘ //前面補(bǔ)充0
      Format(‘x=%.5x‘, [12]); //‘x=0000C‘ //十六進(jìn)制
      Format(‘x=%1:d%0:d‘, [12, 13]); //‘x=1312‘ //使用索引
      Format(‘x=%p‘, [nil]); //‘x=00000000‘ //指針
      Format(‘x=%1.1e‘, [12.0]); //‘x=1.2E+001‘ //科學(xué)記數(shù)法
      Format(‘x=%%‘, []); //‘x=%‘ //得到"%"
      S := Format(‘%s%d‘, [S, I]); //S := S + StrToInt(I); //連接字符串
      參考 proceduer SysUtils.FmtStr
      例子 Edit1.Text := Format(Edit2.Text, [StrToFloatDef(Edit.3.Text, 0)]);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 procedure FmtStr(var Result: string; const Format: string; const Args:
      array of const); $[SysUtils.pas
      功能 按指定方式格式化一個(gè)數(shù)組常量的字符形式返回
      說明 <參見Format>
      參考 function SysUtils.FormatBuf;function System.Length;function
      System.SetLength
      例子 <參見Format>
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrFmt(Buffer, Format: PChar; const Args: array of const):
      PChar; $[SysUtils.pas
      功能 返回按指定方式格式化一個(gè)數(shù)組常量的字符指針形式
      說明 如果Buffer和Format其中只要有一個(gè)為nil則返回nil
      參考 function SysUtils.FormatBuf
      例子 <參見Format>
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrLFmt(Buffer: PChar; MaxBufLen: Cardinal; Format: PChar;
      const Args: array of const): PChar; $[SysUtils.pas
      功能 返回按指定方式和長度格式化一個(gè)數(shù)組常量的字符指針形式
      說明 StrLFmt(vBuffer, 6, ‘%d|12345‘, [1024]) = ‘1024|1‘;
      參考 function SysUtils.FormatBuf
      例子 <參見Format>
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function FormatBuf(var Buffer; BufLen: Cardinal; const Format; FmtLen:
      Cardinal; const Args: array of const): Cardinal; $[SysUtils.pas
      功能 返回按指定方式格式化一個(gè)數(shù)組常量到緩沖區(qū)Buffer中
      說明 <NULL>
      參考 <NULL>
      例子 <參見Format>
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function WideFormat(const Format: WideString; const Args: array of
      const): WideString; $[SysUtils.pas
      功能 返回按指定方式格式化一個(gè)數(shù)組常量的多字節(jié)字符形式
      說明 <NULL>
      參考 procedure SysUtils.WideFmtStr
      例子 <參見Format>
      ━━━━━━━━━━━━━━━━━━━━━
      首部 procedure WideFmtStr(var Result: WideString; const Format: WideString;
      const Args: array of const); $[SysUtils.pas
      功能 按指定方式格式化一個(gè)數(shù)組常量的多字節(jié)字符形式返回
      說明 <NULL>
      參考 function SysUtils.WideFormatBuf
      例子 <參見Format>
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function WideFormatBuf(var Buffer; BufLen: Cardinal; const Format;
      FmtLen: Cardinal; const Args: array of const): Cardinal; $[SysUtils.pas
      功能 返回按指定方式格式化一個(gè)數(shù)組常量到緩沖區(qū)Buffer中
      說明 <NULL>
      參考 <NULL>
      例子 <參見Format>
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function FloatToStr(Value: Extended): string; $[SysUtils.pas
      功能 返回浮點(diǎn)數(shù)Value轉(zhuǎn)換成字符串
      說明 當(dāng)浮點(diǎn)數(shù)大等于1E15將采用科學(xué)記數(shù)法
      參考 function SysUtils.FloatToText
      例子 Edit1.Text := FloatToStr(Now);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function CurrToStr(Value: Currency): string; $[SysUtils.pas
      功能 返回貨幣數(shù)Value轉(zhuǎn)換成字符串
      說明 貨幣數(shù)只保留四位小數(shù)
      參考 function SysUtils.FloatToText
      例子 Edit1.Text := CurrToStr(Now);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function FloatToCurr(const Value: Extended): Currency; $[SysUtils.pas
      功能 返回浮點(diǎn)數(shù)Value轉(zhuǎn)換成貨幣數(shù)
      說明 如果浮點(diǎn)數(shù)Value超出范圍則將觸發(fā)異常
      參考 const SysUtiles.MinCurrency;const SysUtiles.MaxCurrency
      例子 Edit1.Text := CurrToStr(FloatToCurr(Now));
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function FloatToStrF(Value: Extended; Format: TFloatFormat; Precision,
      Digits: Integer): string; $[SysUtils.pas
      功能 返回浮點(diǎn)數(shù)以指定格式轉(zhuǎn)換成字符串
      說明 Precision指定精度;Digits指定小數(shù)寬度
      參考 function SysUtils.FloatToText
      例子
      ///////Begin FloatToStrF
      procedure TForm1.Button1Click(Sender: TObject);
      begin
      Memo1.Lines.Values[‘ffGeneral‘] := FloatToStrF(StrToFloatDef(Edit1.Text,
      0),
      ffGeneral, SpinEdit1.Value, SpinEdit2.Value);
      Memo1.Lines.Values[‘ffExponent‘] := FloatToStrF(StrToFloatDef(Edit1.Text,
      0),
      ffExponent, SpinEdit1.Value, SpinEdit2.Value);
      Memo1.Lines.Values[‘ffFixed‘] := FloatToStrF(StrToFloatDef(Edit1.Text, 0),
      ffFixed, SpinEdit1.Value, SpinEdit2.Value);
      Memo1.Lines.Values[‘ffNumber‘] := FloatToStrF(StrToFloatDef(Edit1.Text,
0),
      ffNumber, SpinEdit1.Value, SpinEdit2.Value);
      Memo1.Lines.Values[‘ffCurrency‘] := FloatToStrF(StrToFloatDef(Edit1.Text,
      0),
      ffCurrency, SpinEdit1.Value, SpinEdit2.Value);
      end;
      ///////End FloatToStrF
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function CurrToStrF(Value: Currency; Format: TFloatFormat; Digits:
      Integer): string; $[SysUtils.pas
      功能 返回貨幣類型以指定格式轉(zhuǎn)換成字符串
      說明 Digits指定小數(shù)寬度
      參考 function SysUtils.FloatToText
      例子
      ///////Begin CurrToStrF
      procedure TForm1.Button1Click(Sender: TObject);
      begin
      Memo1.Lines.Values[‘ffGeneral‘] := CurrToStrF(StrToCurrDef(Edit1.Text, 0),
      ffGeneral, SpinEdit1.Value);
      Memo1.Lines.Values[‘ffExponent‘] := CurrToStrF(StrToCurrDef(Edit1.Text,
0),
      ffExponent, SpinEdit1.Value);
      Memo1.Lines.Values[‘ffFixed‘] := CurrToStrF(StrToCurrDef(Edit1.Text, 0),
      ffFixed, SpinEdit1.Value);
      Memo1.Lines.Values[‘ffNumber‘] := CurrToStrF(StrToCurrDef(Edit1.Text, 0),
      ffNumber, SpinEdit1.Value);
      Memo1.Lines.Values[‘ffCurrency‘] := CurrToStrF(StrToCurrDef(Edit1.Text,
0),
      ffCurrency, SpinEdit1.Value);
      end;
      ///////End CurrToStrF
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function FloatToText(BufferArg: PChar; const Value; ValueType:
      TFloatValue; Format: TFloatFormat; Precision, Digits: Integer): Integer;
      $[SysUtils.pas
      功能 返回浮點(diǎn)數(shù)以指定格式轉(zhuǎn)換成指針字符串的內(nèi)存大小
      說明 Precision指定精度;Digits指定小數(shù)寬度
      參考 <NULL>
      例子
      ///////Begin FloatToText
      procedure TForm1.Button1Click(Sender: TObject);
      var
      vBuffer: array[0..255] of Char;
      E: Extended;
      begin
      E := StrToFloatDef(Edit1.Text, 0);
      SpinEdit3.Value := FloatToText(vBuffer, E,
      fvExtended, ffNumber, SpinEdit1.Value, SpinEdit2.Value);
      Edit2.Text := Copy(vBuffer, 1, SpinEdit3.Value);
      end;
      ///////End FloatToText(
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function FormatFloat(const Format: string; Value: Extended): string;
      $[SysUtils.pas
      功能 返回浮點(diǎn)數(shù)類型以指定格式字符串Format轉(zhuǎn)換成字符串
      說明 FormatFloat(‘,.00‘, 1234567890) = ‘1,234,567,890.00‘
      參考 function SysUtils.FloatToTextFmt
      例子 Edit1.Text := FormatFloat(Edit2.Text, StrToFloatDef(Edit3.Text, 0));
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function FormatCurr(const Format: string; Value: Currency): string;
      $[SysUtils.pas
      功能 返回貨幣類型以指定格式字符串Format轉(zhuǎn)換成字符串
      說明 FormatCurr(‘,.00‘, 1234567890) = ‘1,234,567,890.00‘
      參考 function SysUtils.FloatToTextFmt
      例子 Edit1.Text := FormatCurr(Edit2.Text, StrToCurrDef(Edit3.Text, 0));
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function FloatToTextFmt(Buf: PChar; const Value; ValueType:
      TFloatValue; Format: PChar): Integer; $[SysUtils.pas
      功能 返回浮點(diǎn)數(shù)以指定格式字符串Format轉(zhuǎn)換成指針字符串的內(nèi)存大小
      說明 ValueType指定無類型參數(shù)Value的類型
      參考 <NULL>
      例子
      ///////Begin FloatToTextFmt
      procedure TForm1.Button1Click(Sender: TObject);
      var
      vBuffer: array[0..255] of Char;
      E: Extended;
      begin
      E := StrToFloatDef(Edit1.Text, 0);
      SpinEdit1.Value := FloatToTextFmt(vBuffer, E,
      fvExtended, PChar(Edit2.Text));
      Edit3.Text := Copy(vBuffer, 1, SpinEdit1.Value);
      end;
      ///////End FloatToTextFmt
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrToFloat(const S: string): Extended; $[SysUtils.pas
      功能 返回字符串S轉(zhuǎn)換成浮點(diǎn)數(shù)
      說明 字符串非浮點(diǎn)數(shù)表達(dá)時(shí)將引起異常
      參考 function SysUtils.TextToFloat
      例子 var E: Extended; begin E := StrToFloat(Edit1.Text); end;
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrToFloatDef(const S: string; const Default: Extended):
      Extended; $[SysUtils.pas
      功能 返回字符串S轉(zhuǎn)換成浮點(diǎn)數(shù)
      說明 字符串非浮點(diǎn)數(shù)表達(dá)時(shí)則返回默認(rèn)值Default
      參考 function SysUtils.TextToFloat
      例子 var E: Extended; begin E := StrToFloatDef(Edit1.Text, 0); end;
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function TryStrToFloat(const S: string; out Value: Extended): Boolean;
      overload; $[SysUtils.pas
      首部 function TryStrToFloat(const S: string; out Value: Single): Boolean;
      overload; $[SysUtils.pas
      首部 function TryStrToFloat(const S: string; out Value: Double): Boolean;
      overload; $[SysUtils.pas
      功能 返回字符串S轉(zhuǎn)換成浮點(diǎn)數(shù)Value是否成功
      說明 字符串非浮點(diǎn)數(shù)表達(dá)時(shí)返回False并且Value將輸出為不確定的值
      參考 function SysUtils.TextToFloat
      例子
      ///////Begin TryStrToFloat
      procedure TForm1.Button1Click(Sender: TObject);
      var
      E: Extended;
      begin
      CheckBox1.Checked := TryStrToFloat(Edit1.Text, E);
      Edit2.Text := FormatFloat(‘‘, E);
      end;
      ///////End TryStrToFloat
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrToCurr(const S: string): Currency; $[SysUtils.pas
      功能 返回字符串S轉(zhuǎn)換成貨幣數(shù)
      說明 字符串非貨幣數(shù)表達(dá)時(shí)將引起異常
      參考 function SysUtils.TextToFloat
      例子 var C: Currency; begin C := StrToCurr(Edit1.Text); end;
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrToCurrDef(const S: string; const Default: Currency):
      Currency; $[SysUtils.pas
      功能 返回字符串S轉(zhuǎn)換成貨幣數(shù)
      說明 字符串非貨幣數(shù)表達(dá)時(shí)則返回默認(rèn)值Default
      參考 function SysUtils.TextToFloat
      例子 var C: Currency; begin C := StrToCurrDef(Edit1.Text, 0); end;
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function TryStrToCurr(const S: string; out Value: Currency): Boolean;
      $[SysUtils.pas
      功能 返回字符串S轉(zhuǎn)換成貨幣數(shù)Value是否成功
      說明 字符串非貨幣數(shù)表達(dá)時(shí)返回False并且Value將輸出為不確定的值
      參考 function SysUtils.TextToFloat
      例子
      ///////Begin TryStrToCurr
      procedure TForm1.Button1Click(Sender: TObject);
      var
      C: Currency;
      begin
      CheckBox1.Checked := TryStrToCurr(Edit1.Text, C);
      Edit2.Text := FormatCurr(‘‘, C);
      end;
      ///////End TryStrToCurr
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function TextToFloat(Buffer: PChar; var Value; ValueType: TFloatValue):
      Boolean; $[SysUtils.pas
      功能 返回將指針字符串Buffer轉(zhuǎn)換成無類型變量Value
      說明 ValueType指定無類型參數(shù)Value的類型
      參考 <NULL>
      例子
      ///////Begin TextToFloat
      procedure TForm1.Button1Click(Sender: TObject);
      var
      E: Extended;
      begin
      CheckBox1.Checked := TextToFloat(PChar(Edit1.Text), E,
      fvExtended);
      Edit2.Text := FormatFloat(‘‘, E);
      end;
      ///////End TextToFloat
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function DateToStr(const DateTime: TDateTime): string; $[SysUtils.pas
      功能 返回日期DateTime轉(zhuǎn)換成字符串
      說明 轉(zhuǎn)換格式由系統(tǒng)變量ShortDateFormat控制
      參考 function SysUtils.DateTimeToString;var SysUtils.ShortDateFormat
      例子 Edit1.Text := DateToStr(Date);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function TimeToStr(const DateTime: TDateTime): string; $[SysUtils.pas
      功能 返回時(shí)間DateTime轉(zhuǎn)換成字符串
      說明 轉(zhuǎn)換格式由系統(tǒng)變量LongTimeFormat控制
      參考 function SysUtils.DateTimeToString;var SysUtils.LongTimeFormat
      例子 Edit1.Text := TimeToStr(Date);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function DateTimeToStr(const DateTime: TDateTime): string;
      $[SysUtils.pas
      功能 返回日期時(shí)間DateTime轉(zhuǎn)換成字符串
      說明 轉(zhuǎn)換格式由系統(tǒng)變量ShortDateFormat和LongTimeFormat控制
      參考 function SysUtils.DateTimeToString
      例子 Edit1.Text := DateTimeToStr(Now);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrToDate(const S: string): TDateTime; $[SysUtils.pas
      功能 返回字符串S轉(zhuǎn)換成日期
      說明 字符非日期表達(dá)時(shí)將引起異常
      參考 function SysUtils.TryStrToDate
      例子 DateTimePicker1.Date := StrToDate(Edit1.Text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrToDateDef(const S: string; const Default: TDateTime):
      TDateTime; $[SysUtils.pas
      功能 返回字符串S轉(zhuǎn)換成日期
      說明 字符非日期表達(dá)時(shí)則返回默認(rèn)值Default
      參考 function SysUtils.TryStrToDate
      例子 DateTimePicker1.Date := StrToDateDef(Edit1.Text, Date);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function TryStrToDate(const S: string; out Value: TDateTime): Boolean;
      $[SysUtils.pas
      功能 返回字符串S轉(zhuǎn)換成日期Value是否成功
      說明 字符非日期表達(dá)時(shí)返回False并且Value將輸出為0
      參考 <NULL>
      例子
      ///////Begin TryStrToDate
      procedure TForm1.Button1Click(Sender: TObject);
      var
      vDateTime: TDateTime;
      begin
      CheckBox1.Checked := TryStrToDate(Edit1.Text, vDateTime);
      DateTimePicker1.Date := vDateTime;
      end;
      ///////End TryStrToDate
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrToTime(const S: string): TDateTime; $[SysUtils.pas
      功能 返回字符串S轉(zhuǎn)換成時(shí)間
      說明 字符非時(shí)間表達(dá)時(shí)將引起異常
      參考 function SysUtils.TryStrToTime
      例子 DateTimePicker1.Time := StrToTime(Edit1.Text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrToTimeDef(const S: string; const Default: TDateTime):
      TDateTime; $[SysUtils.pas
      功能 返回字符串S轉(zhuǎn)換成時(shí)間
      說明 字符非時(shí)間表達(dá)時(shí)則返回默認(rèn)值Default
      參考 function SysUtils.TryStrToTime
      例子 DateTimePicker1.Time := StrToTimeDef(Edit1.Text, Time);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function TryStrToTime(const S: string; out Value: TDateTime): Boolean;
      $[SysUtils.pas
      功能 返回字符串S轉(zhuǎn)換成時(shí)間Value是否成功
      說明 字符非時(shí)間表達(dá)時(shí)返回False并且Value將輸出為0
      參考 <NULL>
      例子
      ///////Begin TryStrToTime
      procedure TForm1.Button1Click(Sender: TObject);
      var
      vDateTime: TDateTime;
      begin
      CheckBox1.Checked := TryStrToTime(Edit1.Text, vDateTime);
      DateTimePicker1.Time := vDateTime;
      end;
      ///////End TryStrToTime
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrToDateTime(const S: string): TDateTime; $[SysUtils.pas
      功能 返回字符串S轉(zhuǎn)換成日期時(shí)間
      說明 字符非日期時(shí)間表達(dá)時(shí)將引起異常
      參考 function SysUtils.TryStrToDateTime
      例子 Edit1.Text := DateTimeToStr(StrToDateTime(Edit2.Text));
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrToDateTimeDef(const S: string; const Default: TDateTime):
      TDateTime; $[SysUtils.pas
      功能 返回字符串S轉(zhuǎn)換成日期時(shí)間
      說明 字符非日期時(shí)間表達(dá)時(shí)則返回默認(rèn)值Default
      參考 function SysUtils.TryStrToDateTime
      例子 Edit1.Text := DateTimeToStr(StrToDateTimeDef(Edit2.Text, Now));
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function TryStrToDateTime(const S: string; out Value: TDateTime):
      Boolean; $[SysUtils.pas
      功能 返回字符串S轉(zhuǎn)換成日期時(shí)間Value是否成功
      說明 字符非日期時(shí)間表達(dá)時(shí)返回False并且Value將輸出為0
      參考 <NULL>
      例子
      ///////Begin TryStrToDateTime
      procedure TForm1.Button1Click(Sender: TObject);
      var
      vDateTime: TDateTime;
      begin
      CheckBox1.Checked := TryStrToDateTime(Edit1.Text, vDateTime);
      Edit2.Text := DateTimeToStr(vDateTime);
      end;
      ///////End TryStrToDateTime
      ━━━━━━━━━━━━━━━━━━━━━
      首部 procedure DateTimeToString(var Result: string; const Format: string;
      DateTime: TDateTime); $[SysUtils.pas
      功能 用指定的格式Format來格式化日期時(shí)間DateTime并返回到字符串Result中
      說明 <參見FormatDateTime>
      參考 function System.SetString
      例子 <參見FormatDateTime>
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function GetLocaleStr(Locale, LocaleType: Integer; const Default:
      string): string; platform; $[SysUtils.pas
      功能 返回當(dāng)前系統(tǒng)指定參數(shù)的字符串值
      說明 GetLocaleStr(GetThreadLocale, LOCALE_SLANGUAGE, ‘‘) = ‘中文(中國)‘
      參考 function Windows.GetLocaleInfo
      例子 Edit1.Text := GetLocaleStr(GetThreadLocale, SpinEdit1.Value, ‘<NULL>‘);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function GetLocaleChar(Locale, LocaleType: Integer; Default: Char):
      Char; platform; $[SysUtils.pas
      功能 返回當(dāng)前系統(tǒng)指定參數(shù)的字符值
      說明 GetLocaleChar(GetThreadLocale, LOCALE_STHOUSAND, #0) = ‘,‘
      參考 function Windows.GetLocaleInfo
      例子 Edit1.Text := GetLocaleChar(GetThreadLocale, LOCALE_SLANGUAGE, #0);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function ByteType(const S: string; Index: Integer): TMbcsByteType;
      $[SysUtils.pas
      功能 返回字符串S位置Index上的字符在MBCS中類型
      說明 多字節(jié)字符系統(tǒng):Multi-Byte Character System (MBCS)
      參考 var SysUtils.SysLocale
      例子 SpinEdit1.Value := Ord(ByteType(Edit1.Text, SpinEdit2.Value));
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrByteType(Str: PChar; Index: Cardinal): TMbcsByteType;
      $[SysUtils.pas
      功能 返回指針字符串Str位置Index上的字符在MBCS中類型
      說明 Index從0開始
      參考 var SysUtils.SysLocale
      例子 SpinEdit1.Value := Ord(StrByteType(PChar(Edit1.Text),
SpinEdit2.Value));
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function ByteToCharLen(const S: string; MaxLen: Integer): Integer;
      $[SysUtils.pas
      功能 返回字符串S中有多少個(gè)多字節(jié)字符
      說明 MaxLen指定處理字符個(gè)數(shù)
      參考 function SysUtils.ByteToCharIndex
      例子 SpinEdit1.Value := ByteToCharLen(Edit1.Text, SpinEdit2.Value);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function CharToByteLen(const S: string; MaxLen: Integer): Integer;
      $[SysUtils.pas
      功能 返回字符串S中有多少個(gè)字符
      說明 MaxLen指定處理多字節(jié)字符個(gè)數(shù)
      參考 var SysUtils.SysLocale
      例子 SpinEdit1.Value := CharToByteLen(Edit1.Text, SpinEdit2.Value);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function ByteToCharIndex(const S: string; Index: Integer): Integer;
      $[SysUtils.pas
      功能 返回字符位置對應(yīng)的多字節(jié)字符位置
      說明 ByteToCharIndex(‘你好‘, 2) = 1;ByteToCharIndex(‘你好‘, 3) = 2
      參考 function SysUtils.NextCharIndex
      例子 SpinEdit1.Value := ByteToCharIndex(Edit1.Text, SpinEdit2.Value);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function CharToByteIndex(const S: string; Index: Integer): Integer;
      $[SysUtils.pas
      功能 返回多字節(jié)字符位置對應(yīng)的字符起始位置
      說明 CharToByteIndex(‘你好‘, 1) = 1;CharToByteIndex(‘你好‘, 2) = 3
      參考 function System.Length
      例子 SpinEdit1.Value := CharToByteIndex(Edit1.Text, SpinEdit2.Value);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrCharLength(const Str: PChar): Integer; $[SysUtils.pas
      功能 返回第一個(gè)字符的寬度
      說明 參數(shù)為空則返回0
      參考 function Windows.CharNext
      例子 SpinEdit1.Value := StrCharLength(PChar(Edit1.Text));
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrNextChar(const Str: PChar): PChar; $[SysUtils.pas
      功能 返回字符指針Str的下一個(gè)字符指針
      說明 StrNextChar(‘1234‘) = ‘234‘;
      參考 function Windows.CharNext
      例子 Edit2.Text := StrNextChar(PChar(Edit1.Text));
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function CharLength(const S: String; Index: Integer): Integer;
      $[SysUtils.pas
      功能 返回字符串中指定位置的字符寬度
      說明 CharLength(‘English漢‘, 1) = 1;CharLength(‘English漢‘, 8) = 2
      參考 function System.Assert;function SysUtils.StrCharLength
      例子 SpinEdit1.Value := CharLength(Edit1.Text, SpinEdit2.Value);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function NextCharIndex(const S: String; Index: Integer): Integer;
      $[SysUtils.pas
      功能 返回下一個(gè)字符的位置
      說明 CharLength(‘你好‘, 1) = 3;CharLength(‘你好‘, 3) = 5
      參考 function System.Assert;function SysUtils.StrCharLength
      例子 SpinEdit1.Value := NextCharIndex(Edit1.Text, SpinEdit2.Value);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function IsPathDelimiter(const S: string; Index: Integer): Boolean;
      $[SysUtils.pas
      功能 返回字符串S中指定位置Index上是否是一個(gè)路徑分隔符
      說明 IsPathDelimiter(‘C:\Windows‘, 3) = True
      參考 const SysUtils.PathDelim;function SysUtils.ByteType
      例子 CheckBox1.Checked := IsPathDelimiter(Edit1.Text, SpinEdit1.Value);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function IsDelimiter(const Delimiters, S: string; Index: Integer):
      Boolean; $[SysUtils.pas
      功能 返回字符串S中指定位置Index上是否是一個(gè)分隔符Delimiters
      說明 IsDelimiter(
‘@‘, ‘wjhu111@21cn.com‘, 8) = True
      參考 function SysUtils.ByteType
      例子 CheckBox1.Checked := IsDelimiter(Edit1.Text, Edit2.Text,
      SpinEdit1.Value);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function IncludeTrailingPathDelimiter(const S: string): string;
      $[SysUtils.pas
      功能 返回包括最后路徑分隔符
      說明 最后一個(gè)字符是路徑分隔符則不變;否則加上一個(gè)路徑分隔符返回
      參考 function SysUtils.IsPathDelimiter;function System.Length
      例子 Edit1.Text := IncludeTrailingPathDelimiter(Edit2.Text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function IncludeTrailingBackslash(const S: string): string; platform;
      $[SysUtils.pas
      功能 返回包括最后斜線
      說明 Result := IncludeTrailingPathDelimiter(S);
      參考 function SysUtils.IncludeTrailingPathDelimiter
      例子 Edit1.Text := IncludeTrailingBackslash(Edit2.Text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function ExcludeTrailingPathDelimiter(const S: string): string;
      $[SysUtils.pas
      功能 返回排除最后路徑分隔符
      說明 最后一個(gè)字符不是路徑分隔符則不變;否則減去最后的路徑分隔符返回
      參考 function SysUtils.IsPathDelimiter;function System.Length;function
      System.SetLength
      例子 Edit1.Text := ExcludeTrailingPathDelimiter(Edit2.Text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function ExcludeTrailingBackslash(const S: string): string; platform;
      $[SysUtils.pas
      功能 返回排除最后斜線
      說明 Result := ExcludeTrailingPathDelimiter(S)
      參考 function SysUtils.ExcludeTrailingPathDelimiter
      例子 Edit1.Text := ExcludeTrailingBackslash(Edit2.Text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function LastDelimiter(const Delimiters, S: string): Integer;
      $[SysUtils.pas
      功能 返回最后一個(gè)分隔符的位置
      說明 LastDelimiter(‘.‘, ‘kingron.myetang.com‘) = 16
      參考 function SysUtils.StrScan;function SysUtils.ByteType
      例子 SpinEdit1.Value := LastDelimiter(Edit1.Text, Edit2.Text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function AnsiCompareFileName(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 SysUtils.AnsiCompareStr
      例子 SpinEdit1.Value := AnsiCompareFileName(Edit1.Text, Edit2.Text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function SameFileName(const S1, S2: string): Boolean; $[SysUtils.pas
      功能 返回兩個(gè)文件名是否相等
      說明 區(qū)分大小寫
      參考 function SysUtils.AnsiCompareFileName
      例子 CheckBox1.Checked := SameFileName(Edit1.Text, Edit2.Text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function AnsiLowerCaseFileName(const S: string): string; $[SysUtils.pas
      功能 返回小寫文件名
      說明 在非多字節(jié)字符系統(tǒng)上相當(dāng)于AnsiLowerCase
      參考 function SysUtils.AnsiLowerCase
      例子 Edit2.Text := AnsiLowerCaseFileName(Edit1.Text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function AnsiUpperCaseFileName(const S: string): string; $[SysUtils.pas
      功能 返回大寫文件名
      說明 在非多字節(jié)字符系統(tǒng)上相當(dāng)于AnsiUpperCase
      參考 function SysUtils.AnsiUpperCase
      例子 Edit2.Text := AnsiUpperCaseFileName(Edit1.Text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function AnsiPos(const Substr, S: string): Integer; $[SysUtils.pas
      功能 返回子串Substr在字符中第一次出現(xiàn)的位置
      說明 不存在則返回0
      參考 SysUtils.AnsiStrPos
      例子 SpinEdit1.Value := AnsiPos(Edit1.Text, Edit2.Text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function AnsiStrPos(Str, SubStr: PChar): PChar; $[SysUtils.pas
      功能 返回指針子串Substr在指針字符中第一次出現(xiàn)的指針位置
      說明 不存在則返回nil
      參考 function SysUtils.StrByteType
      例子 Edit3.Text := AnsiStrPos(PChar(Edit1.Text), PChar(Edit2.Text));
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function AnsiStrRScan(Str: PChar; Chr: Char): PChar; $[SysUtils.pas
      功能 返回在指針字符串Str搜索字符Chr最后一個(gè)出現(xiàn)的地址
      說明 支持多字節(jié)字符系統(tǒng);AnsiStrRScan(‘kingron.myetang.com‘, ‘.‘) = ‘.com‘
      參考 function SysUtils.AnsiStrScan
      例子 Edit2.Text := AnsiStrScan(PChar(Edit1.Text), ‘.‘);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function AnsiStrScan(Str: PChar; Chr: Char): PChar; $[SysUtils.pas
      功能 返回在指針字符串Str搜索字符Chr第一個(gè)出現(xiàn)的地址
      說明 支持多字節(jié)字符系統(tǒng);AnsiStrRScan(‘kingron.myetang.com‘, ‘.‘) = ‘.myetang.com‘
      參考 function SysUtils.StrScan
      例子 Edit2.Text := AnsiStrScan(PChar(Edit1.Text), ‘.‘);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StringReplace(const S, OldPattern, NewPattern: string; Flags:
      TReplaceFlags): string; $[SysUtils.pas
      功能 返回替換后的字符串
      說明 rfReplaceAll為替換全部內(nèi)容;rfIgnoreCase為忽略大小寫
      參考 function SysUtils.AnsiUpperCase;function SysUtils.AnsiPos;function
      System.Copy
      例子
      ///////Begin StringReplace
      procedure TForm1.Button1Click(Sender: TObject);
      begin
      Memo1.Lines.Values[‘[]‘] :=
      StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, []);
      Memo1.Lines.Values[‘[rfReplaceAll]‘] :=
      StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfReplaceAll]);
      Memo1.Lines.Values[‘[rfIgnoreCase]‘] :=
      StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfIgnoreCase]);
      Memo1.Lines.Values[‘[rfReplaceAll, rfIgnoreCase]‘] :=
      StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfReplaceAll,
      rfIgnoreCase]);
      end;
      ///////End StringReplace
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StringToGUID(const S: string): TGUID; $[SysUtils.pas
      功能 返回字符串S轉(zhuǎn)換成全局標(biāo)識(shí)
      說明 如果字符串非法將觸發(fā)異常
      參考 fuction Windows.Succeeded
      例子 Edit2.Text := GUIDToString(StringToGUID(Edit1.Text));
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function GUIDToString(const GUID: TGUID): string; $[SysUtils.pas
      功能 返回全局標(biāo)識(shí)GUID轉(zhuǎn)換成字符串
      說明 <NULL>
      參考 fuction Windows.Succeeded
      例子 Edit2.Text := GUIDToString(StringToGUID(Edit1.Text));
      ━━━━━━━━━━━━━━━━━━━━━ 
   


Delphi函數(shù)手冊

abort 函數(shù) 引起放棄的意外處理

abs 函數(shù) 絕對值函數(shù)

addexitproc 函數(shù) 將一過程添加到運(yùn)行時(shí)庫的結(jié)束過程表中

addr 函數(shù) 返回指定對象的地址

adjustlinebreaks 函數(shù) 將給定字符串的行分隔符調(diào)整為cr/lf序列

align 屬性 使控件位于窗口某部分

alignment 屬性 控件標(biāo)簽的文字位置

allocmem 函數(shù) 在堆棧上分配給定大小的塊

allowgrayed 屬性 允許一個(gè)灰度選擇

ansicomparestr 函數(shù) 比較字符串(區(qū)分大小寫)

ansicomparetext 函數(shù) 比較字符串(不區(qū)分大小寫)

ansilowercase 函數(shù) 將字符轉(zhuǎn)換為小寫

ansiuppercase 函數(shù) 將字符轉(zhuǎn)換為大寫

append 函數(shù) 以附加的方式打開已有的文件

arctan 函數(shù) 余切函數(shù)

assignfile 函數(shù) 給文件變量賦一外部文件名

assigned 函數(shù) 測試函數(shù)或過程變量是否為空

autosize 屬性 自動(dòng)控制標(biāo)簽的大小

backgrounddi2001.jpg 屬性 背景色

beginthread 函數(shù) 以適當(dāng)?shù)姆绞浇⒂糜趦?nèi)存管理的線程

bevelinner 屬性 控件方框的內(nèi)框方式

bevelouter 屬性 控件方框的外框方式

bevelwidth 屬性 控件方框的外框?qū)挾?

blockread 函數(shù) 讀一個(gè)或多個(gè)記錄到變量中

blockwrite 函數(shù) 從變量中寫一個(gè)或多個(gè)記錄

borderstyle 屬性 邊界類型

borderwidth 屬性 邊界寬度

break 命令 終止for、while、repeat循環(huán)語句

brush 屬性 畫刷

caption 屬性 標(biāo)簽文字的內(nèi)容

changefileext 函數(shù) 改變文件的后綴

chdir 函數(shù) 改變當(dāng)前目錄

checked 屬性 確定復(fù)選框選中狀態(tài)

chr 函數(shù) 返回指定序數(shù)的字符

closefile 命令 關(guān)閉打開的文件

color 屬性 標(biāo)簽的顏色

columns 屬性 顯示的列數(shù)

comparestr 函數(shù) 比較字符串(區(qū)分大小寫)

concat 函數(shù) 合并字符串

continue 命令 繼續(xù)for、while、repeat的下一個(gè)循環(huán)

copy 函數(shù) 返回一字符串的子串

cos 函數(shù) 余弦函數(shù)

ctl3d 屬性 是否具有3d效果

cursor 屬性 鼠標(biāo)指針移入后的形狀

date 函數(shù) 返回當(dāng)前的日期

datetimetofiledate 函數(shù) 將delphi的日期格式轉(zhuǎn)換為dos的日期格式

datetimetostr 函數(shù) 將日期時(shí)間格式轉(zhuǎn)換為字符串

datetimetostring 函數(shù) 將日期時(shí)間格式轉(zhuǎn)換為字符串

datetostr 函數(shù) 將日期格式轉(zhuǎn)換為字符串

dayofweek 函數(shù) 返回星期的數(shù)值

dec 函數(shù) 遞減變量值

decodedate 函數(shù) 將日期格式分解為年月日

decodetime 函數(shù) 將時(shí)間格式分解為時(shí)、分、秒、毫秒

delete 函數(shù) 從字符串中刪除子串

deletefile 命令 刪除文件

diskfree 函數(shù) 返回剩余磁盤空間的大小

disksize 函數(shù) 返回指定磁盤的容量

dispose 函數(shù) 釋放動(dòng)態(tài)變量所占的空間

disposestr 函數(shù) 釋放字符串在堆棧中的內(nèi)存空間

ditherbackgrounddi2001.jpg?使背景色的色彩加重或減少50%

dragcursor 屬性 當(dāng)鼠標(biāo)按下時(shí)光標(biāo)的形狀

dragmode 屬性 按動(dòng)的作用方式

dropdowncount 屬性 容許的顯示數(shù)據(jù)項(xiàng)的數(shù)目

editmask 屬性 編輯模式

enabled 屬性 是否使標(biāo)簽呈現(xiàn)打開狀態(tài)

encodedate 函數(shù) 將年月日合成為日期格式

encodetime 函數(shù) 將時(shí)、分、秒、毫秒合成為時(shí)間格式

endmargin 屬性 末尾邊緣

eof 函數(shù) 對有類型或無類型文件測試是否到文件尾

eoln 函數(shù) 返回文本文件的行結(jié)束狀態(tài)

erase 命令 刪除外部文件

exceptaddr 函數(shù) 返回引起當(dāng)前意外的地址

exclude 函數(shù) 從集合中刪除一些元素

exceptobject 函數(shù) 返回當(dāng)前意外的索引

exit 命令 立即從當(dāng)前的語句塊中退出

exp 函數(shù) 指數(shù)函數(shù)

expandfilename 函數(shù) 返回包含絕對路徑的字符串

extendedselect 屬性 是否允許存在選擇模式,true時(shí),multiselect才有意義

extractfiledir 函數(shù) 返回驅(qū)動(dòng)器和路徑

extractfileext 函數(shù) 返回文件的后綴

extractfilename 函數(shù) 返回文件名

extractfilepath 函數(shù) 返回指定文件的路徑

fileage 函數(shù) 返回文件已存在的時(shí)間

fileclose 命令 關(guān)閉指定的文件

filecreate 命令 用指定的文件名建立新文件

filedatetodatetime 函數(shù) 將dos的日期格式轉(zhuǎn)換為delphi的日期格式

fileexists 函數(shù) 檢查文件是否存在

filegatattr 函數(shù) 返回文件的屬性

filegetdate 函數(shù) 返回文件的dos日期時(shí)間標(biāo)記

fileopen 命令 用指定的存取模式打開指定的文件

filepos 函數(shù) 返回文件的當(dāng)前指針位置

fileread 命令 從指定的文件讀取

filesearch 命令 在目錄中搜索指定的文件

fileseek 函數(shù) 改變文件的指針

filesetattr 函數(shù) 設(shè)置文件屬性

filesetdate 函數(shù) 設(shè)置文件的dos日期時(shí)間標(biāo)記

filesize 函數(shù) 返回當(dāng)前文件的大小

filewrite 函數(shù) 對指定的文件做寫操作

fillchar 函數(shù) 用指定的值填充連續(xù)字節(jié)的數(shù)

findclose 命令 終止findfirst/findnext序列

findfirst 命令 對指定的文件名及屬性搜索目錄

findnext 命令 返回與文件名及屬性匹配的下一入口

floattodecimal 函數(shù) 將浮點(diǎn)數(shù)轉(zhuǎn)換為十進(jìn)制數(shù)

floattostrf 函數(shù) 將浮點(diǎn)數(shù)轉(zhuǎn)換為字符串

floattostr 函數(shù) 將浮點(diǎn)數(shù)轉(zhuǎn)換為字符串

floattotext 函數(shù) 將給定的浮點(diǎn)數(shù)轉(zhuǎn)換為十進(jìn)制數(shù)

floattotextfmt 函數(shù) 將給定的浮點(diǎn)數(shù)轉(zhuǎn)換為十進(jìn)制數(shù)

flush 函數(shù) 將緩沖區(qū)的內(nèi)容刷新到輸出的文本文件中

fmtloadstr 函數(shù) 從程序的資源字符串表中裝載字符串

fmtstr 函數(shù) 格式化一系列的參數(shù),其結(jié)果以參數(shù)result返回

font 屬性 設(shè)置字體

format 函數(shù) 格式化一系列的參數(shù)并返回pascal字符串

formatbuf 函數(shù) 格式化一系列的參數(shù)

formatdatetime 函數(shù) 用指定的格式來格式化日期和時(shí)間

formatfloat 函數(shù) 指定浮點(diǎn)數(shù)格式

frac 函數(shù) 返回參數(shù)的小數(shù)部分

freemem 函數(shù) 按給定大小釋放動(dòng)態(tài)變量所占的空間

getdir 返回指定驅(qū)動(dòng)器的當(dāng)前目錄

getheapstatus 返回內(nèi)存管理器的當(dāng)前狀態(tài)

getmem 建立一指定大小的動(dòng)態(tài)變量,并將指針指向該處

getmemorymanager 返回內(nèi)存管理器的入口點(diǎn)

glyph 函數(shù) 按鈕上的圖象

halt 停止程序的執(zhí)行并返回到操作系統(tǒng)

hi 返回參數(shù)的高地址位

high 返回參數(shù)的上限值

hint 屬性 提示信息

int 返回參數(shù)的整數(shù)部分

include 添加元素到集合中

insert 在字符串中插入子串

inttohex 將整型數(shù)轉(zhuǎn)換為十六進(jìn)制數(shù)

inttostr 將整型數(shù)轉(zhuǎn)換為字符串

ioresult 返回最新的i/o操作完成狀態(tài)

isvalidident 測試字符串是否為有效的標(biāo)識(shí)符

items 屬性 默認(rèn)顯示的節(jié)點(diǎn)

kind 屬性 擺放樣式

largechange 屬性 最大改變值

layout 屬性 圖象布局

length 函數(shù) 返回字符串的動(dòng)態(tài)長度

lines 屬性 缺省顯示內(nèi)容

ln 函數(shù) 自然對數(shù)函數(shù)

lo 函數(shù) 返回參數(shù)的低地址位

loadstr 函數(shù) 從應(yīng)用程序的可執(zhí)行文件中裝載字符資源

lowercase 函數(shù) 將給定的字符串變?yōu)樾?

low 函數(shù) 返回參數(shù)的下限值

max 屬性 最大值

maxlength 屬性 最大長度

min 屬性 最小值

mkdir 命令 建立一子目錄

move 函數(shù) 從源到目標(biāo)復(fù)制字節(jié)

multiselect 屬性 允許同時(shí)選擇幾個(gè)數(shù)據(jù)項(xiàng)

name 屬性 控件的名字

new 函數(shù) 建立新的動(dòng)態(tài)變量并設(shè)置一指針變量指向他

newstr 函數(shù) 在堆棧上分配新的字符串

now 函數(shù) 返回當(dāng)前的日期和時(shí)間

odd 測試參數(shù)是否為奇數(shù)

onactivate 事件 焦點(diǎn)移到窗體上時(shí)觸發(fā)

onclick 事件 單擊窗體空白區(qū)域觸發(fā)

ondblclick 事件 雙擊窗體空白區(qū)域觸發(fā)

onclosequery 事件 使用者試圖關(guān)閉窗體觸發(fā)

onclose 事件 窗體關(guān)閉后才觸發(fā)

oncreate 事件 窗體第一次創(chuàng)建時(shí)觸發(fā)

ondeactivate 事件 用戶切換到另一應(yīng)用程序觸發(fā)

ondragdrop 事件 鼠標(biāo)拖放操作結(jié)束時(shí)觸發(fā)

ondragover 事件 有其他控件從他上面移過觸發(fā)

onmousedown 事件 按下鼠標(biāo)鍵時(shí)觸發(fā)

onmouseup 事件 釋放鼠標(biāo)鍵時(shí)觸發(fā)

onmousemove 事件 移動(dòng)鼠標(biāo)時(shí)觸發(fā)

onhide 事件 隱藏窗體時(shí)觸發(fā)

onkeydown 事件 按下鍵盤某鍵時(shí)觸發(fā)

onkeypress 事件 按下鍵盤上的單個(gè)字符鍵時(shí)觸發(fā)

onkeyup 事件 釋放鍵盤上的某鍵時(shí)觸發(fā)

onpaint 事件 窗體上有新部分暴露出來觸發(fā)

onresize 事件 重新調(diào)整窗體大小觸發(fā)

onshow 事件 在窗體實(shí)際顯示之前瞬間觸發(fā)

ord 返回序數(shù)類的序數(shù)

outlinestyle 屬性 類型

outofmemoryerror 引起outofmemory意外

pageindex 屬性 頁索引

pages 屬性 頁

paramcount 函數(shù) 返回在命令行上傳遞給程序的參數(shù)數(shù)量

paramstr 函數(shù) 返回指定的命令行參數(shù)

pen 屬性 畫刷設(shè)置

pi 函數(shù) 返回圓周率pi

picture 屬性 顯示圖象

pictureclosed 屬性 設(shè)置closed位圖

pictureleaf 屬性 設(shè)置leaf位圖

pictureminus 屬性 設(shè)置minus位圖

pictureopen 屬性 設(shè)置open位圖

pictureplus 屬性 設(shè)置plus位圖

pos 函數(shù) 在字符串中搜索子串

pred 函數(shù) 返回先前的參數(shù)

random 函數(shù) 返回一隨機(jī)函數(shù)

randomize 函數(shù) 用一隨機(jī)數(shù)初始化內(nèi)置的隨機(jī)數(shù)生成器

read 函數(shù) 對有格式的文件,讀一文件組件到變量中;

對文本文件,讀一個(gè)或多個(gè)值到一個(gè)或多個(gè)變量中

readln 函數(shù) 執(zhí)行read過程,然后跳到文件下一行

readonly 屬性 只讀屬性

reallocmem 函數(shù) 分配一動(dòng)態(tài)變量

rename 函數(shù) 重命名外部文件

renamefile 函數(shù) 對文件重命名

reset 函數(shù) 打開已有的文件

rewrite 函數(shù) 建立并打開一新的文件

rmdir 函數(shù) 刪除空的子目錄

round 函數(shù) 將實(shí)數(shù)值舍入為整型值

runerror 函數(shù) 停止程序的執(zhí)行

scrollbars 屬性 滾動(dòng)條狀態(tài)

seek 函數(shù) 將文件的當(dāng)前指針移動(dòng)到指定的組件上

seekeof 函數(shù) 返回文件的文件結(jié)束狀態(tài)

seekeoln 函數(shù) 返回文件的行結(jié)束狀態(tài)

selectedcolor 屬性 選中顏色

setmemorymanager 函數(shù) 設(shè)置內(nèi)存管理器的入口點(diǎn)

settextbuf 函數(shù) 給文本文件指定i/o緩沖區(qū)

shape 屬性 顯示的形狀

showexception 函數(shù) 顯示意外消息與地址

sin 函數(shù) 正弦函數(shù)

sizeof 函數(shù) 返回參數(shù)所占的字節(jié)數(shù)

smallchange 屬性 最小改變值

sorted 屬性 是否允許排序

sqr 函數(shù) 平方函數(shù)

sqrt 函數(shù) 平方根函數(shù)

startmargin 屬性 開始邊緣

state 屬性 控件當(dāng)前狀態(tài)

str 函數(shù) 將數(shù)值轉(zhuǎn)換為字符串

stralloc 函數(shù) 給以null結(jié)束的字符串分配最大長度-1的緩沖區(qū)

strbufsize 函數(shù) 返回存儲(chǔ)在由stralloc分配的字符緩沖區(qū)的最大字符數(shù)

strcat 函數(shù) 將一字符串附加到另一字符串尾并返回合并的字符串

strcomp 函數(shù) 比較兩個(gè)字符串

strcopy 函數(shù) 將一個(gè)字符串復(fù)制到另一個(gè)字符串中

strdispose 函數(shù) 釋放堆棧上的字符串

strecopy 函數(shù) 將一字符串復(fù)制到另一個(gè)字符串并返回結(jié)果字符串尾部的指針

strend 函數(shù) 返回指向字符串尾部的指針

stretch 屬性 自動(dòng)適應(yīng)控件的大小

strfmt 函數(shù) 格式化一系列的參數(shù)

stricomp 函數(shù) 比較兩個(gè)字符串(不區(qū)分大小寫)

stringtowidechar 函數(shù) 將ansi字符串轉(zhuǎn)換為unicode字符串

strlcat 函數(shù) 將一字符串中的字符附加到另一字符串尾并返回合并的字符串

strlcomp 函數(shù) 以最大長度比較兩個(gè)字符串

strlcopy 函數(shù) 將一個(gè)字符串中的字符復(fù)制到另一個(gè)字符串中

strlen 函數(shù) 返回字符串中的字符數(shù)

strlfmt 函數(shù) 格式化一系列的參數(shù),其結(jié)果中包含有指向目標(biāo)緩沖區(qū)的指針

strlicomp 函數(shù) 以最大長度比較兩個(gè)字符串(不區(qū)分大小寫)

strlower 函數(shù) 將字符串中的字符轉(zhuǎn)換為小寫

strmove 函數(shù) 將一個(gè)字符串中的字符復(fù)制到另一個(gè)字符串中

strnew 函數(shù) 在堆棧上分配一個(gè)字符串

strpas 函數(shù) 將以null結(jié)束的字符串轉(zhuǎn)換為pascal類的字符串

strpcopy 函數(shù) 將pascal類的字符串復(fù)制為以null結(jié)束的字符串

strplcopy 函數(shù) 從pascal類的最大長度字符串復(fù)制為以null結(jié)束的字符串

strpos 函數(shù) 返回一個(gè)字符串在另一個(gè)字符串中首次出現(xiàn)指針

strrscan 函數(shù) 返回字符串中最后出現(xiàn)字符的指針

strscan 函數(shù) 返回字符串中出現(xiàn)首字符的指針

strtodate 函數(shù) 將字符串轉(zhuǎn)換為日期格式

strtodatetime 函數(shù) 將字符串轉(zhuǎn)換為日期/時(shí)間格式

strtofloat 函數(shù) 將給定的字符串轉(zhuǎn)換為浮點(diǎn)數(shù)

strtoint 函數(shù) 將字符串轉(zhuǎn)換為整型

strtointdef 函數(shù) 將字符串轉(zhuǎn)換為整型或默認(rèn)值

strtotime 函數(shù) 將字符串轉(zhuǎn)換為時(shí)間格式

strupper 函數(shù) 將字符串中的字符轉(zhuǎn)換為大寫

style 屬性 類型選擇

suce 函數(shù) 返回后繼的參數(shù)

swap 函數(shù) 交換參數(shù)的高低地址位

tabs 屬性 標(biāo)記每一項(xiàng)的內(nèi)容

tabindex 屬性 標(biāo)記索引

text 屬性 顯示的文本

texttofloat 函數(shù) 將字符串(以null結(jié)束的格式)轉(zhuǎn)換為浮點(diǎn)數(shù)

time 函數(shù) 返回當(dāng)前的時(shí)間

timetostr 函數(shù) 將時(shí)間格式轉(zhuǎn)換為字符串

trim 函數(shù) 從給定的字符串中刪除前導(dǎo)和尾部的空格及控制字符

trimleft 函數(shù) 從給定的字符串中刪除首部的空格及控制字符

trimright 函數(shù) 從給定的字符串中刪除尾部的空格及控制字符

trunc 函數(shù) 將實(shí)型值截取為整型值

truncate 函數(shù) 截去當(dāng)前文件位置后的內(nèi)容

unselectedcolor 屬性 未選中顏色

upcase 將字符轉(zhuǎn)換為大寫

uppercase 將給定的字符串變?yōu)榇髮?

val 函數(shù) 將字符串轉(zhuǎn)換為整型值

vararraycreate 函數(shù) 以給定的界限和維數(shù)建立變體數(shù)組

vararraydimcount 函數(shù) 返回給定變體的維數(shù)

vararrayhighbound 函數(shù) 返回給定變體數(shù)組維數(shù)的上界

vararraylock 函數(shù) 鎖定給定的變體數(shù)組

vararraylowbound 函數(shù) 返回給定變體數(shù)組維數(shù)的下界

vararrayof 函數(shù) 返回指定變體的數(shù)組元素

vararrayredim 函數(shù) 通過改變上限來調(diào)整變體的大小

vararrayunlock 函數(shù) 解鎖指定的變體數(shù)組

varastype 函數(shù) 將變體轉(zhuǎn)換為指定的類型

varcase 函數(shù) 將變體轉(zhuǎn)換為指定的類型并保存他

varclear 函數(shù) 清除指定的變體

varcopy 函數(shù) 將指定的變體復(fù)制為指定的變體

varformdatetime 函數(shù) 返回包含日期時(shí)間的變體

varisarray 函數(shù) 測試變體是否為數(shù)組

varisempty 函數(shù) 測試變體是否為unassigned

varisnull 函數(shù) 測試變體是否為null

vartodatetime 函數(shù) 將給定的變體轉(zhuǎn)換為日期時(shí)間

vartype 函數(shù) 將變體轉(zhuǎn)換為指定的類型并保存他

visible 屬性 控件的可見性

wantreturns 屬性 為true時(shí),按回車鍵產(chǎn)生一個(gè)回車符;

為false時(shí),按下ctrl+enter才產(chǎn)生回車符

write 命令 對有格式的文件,寫一變量到文件組件中;

對文本文件,寫一個(gè)或多個(gè)值到文件中

writeln 命令 執(zhí)行write過程,然后輸出一行結(jié)束標(biāo)志

widecharlentostring 函數(shù) 將ansi字符串轉(zhuǎn)換為unicode字符串

widecharlentostrwar 函數(shù) 將unicode字符串轉(zhuǎn)換為ansi字符串變量

widechartostring 函數(shù) 將unicode字符串轉(zhuǎn)換為ansi字符串

widechartostrvar 函數(shù) 將unicode字符串轉(zhuǎn)換為ansi字符串變量

本站僅提供存儲(chǔ)服務(wù),所有內(nèi)容均由用戶發(fā)布,如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容,請點(diǎn)擊舉報(bào)。
打開APP,閱讀全文并永久保存 查看更多類似文章
猜你喜歡
類似文章
Delphi6函數(shù)大全
Delphi 屬性、函數(shù)、事件參考
歡迎光臨 VBScript 語言參考
VB基礎(chǔ)教程
第二篇 應(yīng)用環(huán)境
VBA筆記入門篇
更多類似文章 >>
生活服務(wù)
分享 收藏 導(dǎo)長圖 關(guān)注 下載文章
綁定賬號(hào)成功
后續(xù)可登錄賬號(hào)暢享VIP特權(quán)!
如果VIP功能使用有故障,
可點(diǎn)擊這里聯(lián)系客服!

聯(lián)系客服