【正文】 [注意]返回第一個出現(xiàn)不同字符的差異參考 NULL例子 := StrLIComp(PChar(), PChar(), )━━━━━━━━━━━━━━━━━━━━━函數(shù) function StrScan(。當S1=S2返回值=0。 $[功能 返回比較兩個指針字符串指定長度說明 當S1S2返回值0。[注意]返回第一個出現(xiàn)不同字符的差異參考 NULL例子 := StrLComp(PChar(), PChar(), )━━━━━━━━━━━━━━━━━━━━━函數(shù) function StrLIComp(const Str1, Str2: PChar。區(qū)分大小寫。當S1S2返回值0。 MaxLen: Cardinal): Integer。[注意]返回第一個出現(xiàn)不同字符的差異參考 NULL例子 := StrIComp(PChar(), PChar())。當S1=S2返回值=0。 $[功能 返回比較兩個指針字符串說明 當S1S2返回值0。[注意]返回第一個出現(xiàn)不同字符的差異參考 NULL例子 := StrComp(PChar(), PChar())。當S1=S2返回值=0。 $[功能 返回比較兩個指針字符串說明 當S1S2返回值0。end。StrLCat(vBuffer, PChar(), )。varvBuffer: array[0..255] of Char。 MaxLen: Cardinal): PChar。///////End StrCat━━━━━━━━━━━━━━━━━━━━━函數(shù) function StrLCat(Dest: PChar。 := vBuffer。beginStrPCopy(vBuffer, )。 $[功能 返回連接指針字符串Dest和指針字符串Source說明 StrCopy(StrEnd(Dest), Source)參考 function 例子///////Begin StrCatprocedure (Sender: TObject)。///////End StrPLCopy━━━━━━━━━━━━━━━━━━━━━函數(shù) function StrCat(Dest: PChar。 := vBuffer。varvBuffer: array[0..255] of Char。 MaxLen: Cardinal): PChar。///////End StrPCopy━━━━━━━━━━━━━━━━━━━━━函數(shù) function StrPLCopy(Dest: PChar。 := vBuffer。varvBuffer: array[0..255] of Char。 const Source: string): PChar。end。beginStrLCopy(vBuffer, PChar(), )。 $[功能 返回將指針字符串Source指定長度MaxLen復制到指針字符串Dest中說明 Dest應(yīng)已經(jīng)分配足夠的空間非則將觸發(fā)異常參考 NULL例子///////Begin StrLCopyprocedure (Sender: TObject)。 const Source: PChar。end。beginStrECopy(StrECopy(vBuffer, PChar()), PChar())。 $[功能 返回將指針字符串Source復制到指針字符串Dest中的結(jié)尾說明 可以連接指針字符串參考 NULL例子///////Begin StrECopyprocedure (Sender: TObject)。///////End StrCopy━━━━━━━━━━━━━━━━━━━━━函數(shù) function StrECopy(Dest:PChar。FreeMem(vBuffer)。StrCopy(vBuffer, PChar())。varvBuffer: PChar。 const Source: PChar): PChar。end。StrMove(vBuffer, PChar(), )。beginvBuffer := 39。 $[功能 返回將指針字符串Source指定內(nèi)存數(shù)量Count復制覆蓋到指針字符串Dest中說明 Dest沒有分配資源將觸發(fā)異常s參考 function 例子///////Begin StrMoveprocedure (Sender: TObject)。 const Source: PChar。 $[功能 返回指針字符串的結(jié)尾說明 當指針字符串Str為nil時將觸發(fā)異常參考 NULL例子 := StrEnd(PChar()) 。 $[功能 返回指針字符串的長度說明 當指針字符串Str為nil時將觸發(fā)異常參考 NULL例子 := StrLen(PChar())。function 例子 NULL。 const Args: array of const): string。 $[功能 返回根據(jù)標識Ident的字符串資源說明 字符串資源是指程序的內(nèi)部資源參考 function 例子 := LoadStr(StrToIntDef(, 0))。var 例子 := BoolToStr(, )。139。039。 UseBoolStrs: Boolean = False): string。end。if CompareWith(TrueBoolStrs) thenValue := Trueelse if CompareWith(FalseBoolStrs) thenValue := FalseelseResult := False。if Result thenValue := LResult 0elsebeginResult := True。varLResult: Extended。end。for I := Low(aArray) to High(aArray) doif AnsiSameText(S, aArray[I]) thenbeginResult := True。varI: Integer。 out Value: Boolean): Boolean。end。 := TryStrToBool(, B)。FalseBoolStrs[1] := 39。TrueBoolStrs[1] := 39。FalseBoolStrs[0] := 39。TrueBoolStrs[0] := 39。beginSetLength(TrueBoolStrs, 2)。var 例子///////Begin TryStrToBoolprocedure (Sender: TObject)。Delphi6 Bug 如下修正參考 function 。和39。不是39。 out Value: Boolean): Boolean。 $[功能 返回字符串S轉(zhuǎn)換成邏輯值說明 字符非邏輯表達時則返回默認值Default參考 function 例子 := StrToBoolDef(, False)。━━━━━━━━━━━━━━━━━━━━━函數(shù) function StrToBoolDef(const S: string。///////End TryStrToInt64━━━━━━━━━━━━━━━━━━━━━函數(shù) function StrToBool(const S: string): Boolean。 := I。varI: Int64。 out Value: Int64): Boolean。 $[功能 返回字符串S轉(zhuǎn)換成六十四位整數(shù)說明 字符串非六十四位整數(shù)表達時則返回默認值Default參考 procedure 例子 := StrToInt64Def(, 0)。━━━━━━━━━━━━━━━━━━━━━函數(shù) function StrToInt64Def(const S: string。///////End TryStrToInt━━━━━━━━━━━━━━━━━━━━━函數(shù) function StrToInt64(const S: string): Int64。 := I。varI: Integer。 out Value: Integer): Boolean。 $[功能 返回字符串S轉(zhuǎn)換成整數(shù)說明 字符串非整數(shù)表達時則返回默認值Default參考 procedure 例子 := StrToIntDef(, 0)。━━━━━━━━━━━━━━━━━━━━━函數(shù) function StrToIntDef(const S: string。━━━━━━━━━━━━━━━━━━━━━函數(shù) function StrToInt(const S: string): Integer。, [Digits, Value])說明 參數(shù)Digits指定字符最小寬度。Format(39。 overload。 $[函數(shù) function IntToHex(Value: Int64。 Digits: Integer): string。, [Value])參考 function 例子 := IntToStr()。 $[功能 返回整數(shù)Value轉(zhuǎn)換成字符串說明 Format(39。 $[函數(shù) function IntToStr(Value: Int64): string。━━━━━━━━━━━━━━━━━━━━━函數(shù) function IntToStr(Value: Integer): string。1310參考 function 例子 NULL━━━━━━━━━━━━━━━━━━━━━函數(shù) function IsValidIdent(const Ident: string): Boolean。131039。10)=39。1039。AdjustLineBreaks(39。239。139。239。139。 Style: TTextLineBreakStyle = {$IFDEF LINUX} tlbsLF {$ENDIF} {$IFDEF MSWINDOWS} tlbsCRLF {$ENDIF}): string。)。 $[功能 返回以字符AQuote為引號的表現(xiàn)形式原形說明 表現(xiàn)形式非法時則返回S參考 function 例子 := AnsiDequotedStr(, 39。///////End AnsiExtractQuotedStr━━━━━━━━━━━━━━━━━━━━━函數(shù) function AnsiDequotedStr(const S: string。 := P。39。beginP := PChar()。 $[功能 返回以字符Quote為引號的表現(xiàn)形式原形說明 表現(xiàn)形式非法時Src不變否則為空參考 function 例子///////Begin AnsiExtractQuotedStrprocedure (Sender: TObject)。━━━━━━━━━━━━━━━━━━━━━函數(shù) function AnsiExtractQuotedStr(var Src: PChar。39。helloworld39。39。helloworld39。helloworld39。39。helloworld39。 Quote: Char): string。 $[功能 返回字符串S在pascal中的表現(xiàn)形式說明 單引號中的一個單引號將轉(zhuǎn)成兩個參考 procedure 例子 := QuotedStr()。 $[功能 返回除去字符串S右邊不可見字符說明 小于32的字符看作不可見字符參考 function 例子 := TrimRight()。 $[函數(shù) function TrimRight(const S: WideString): WideString。━━━━━━━━━━━━━━━━━━━━━函數(shù) function TrimRight(const S: string): string。 overload。 overload。 $[功能 返回除去字符串S左右不可見字符說明 小于32的字符看作不可見字符參考 function 例子 := Trim()。 $[函數(shù) function Trim(const S: WideString): WideString。━━━━━━━━━━━━━━━━━━━━━ 函數(shù) function Trim(const S: string): string。━━━━━━━━━━━━━━━━━━━━━函數(shù) function WideSameText(const S1, S2: WideString): Boolean。當S1=S2返回值=0。 $[功能 返回比較兩個雙字節(jié)字符串說明 當S1S2返回值0。 $[功能 返回兩個雙字節(jié)字符串是否相同說明 區(qū)分大小寫參考 function 例子 := WideSameStr(, )。區(qū)分大小寫參考 function 例子 := WideCompareStr(, )。當S1S2返回值0。━━━━━━━━━━━━━━━━━━━━━函數(shù) function WideCompareStr(const S1, S2: WideString): Integer。━━━━━━━━━━━━━━━━━━━━━函數(shù) function WideLowerCase(const S: WideString): WideString。━━━━━━━━━━━━━━━━━━━━━ 函數(shù) function WideUpperCase(const S: WideSt