【正文】 n StrToBoolDef(const S: string。 const Default: Boolean): Boolean。 $[功能 返回字符串S轉換成邏輯值說明 字符非邏輯表達時則返回默認值Default參考 function 例子 := StrToBoolDef(, False)。━━━━━━━━━━━━━━━━━━━━━函數 function TryStrToBool(const S: string。 out Value: Boolean): Boolean。 $[功能 返回字符串S轉換成邏輯值Value是否成功說明 [注意]0為假非0為真。不是39。True39。和39。False39。Delphi6 Bug 如下修正參考 function 。var 。var 例子///////Begin TryStrToBoolprocedure (Sender: TObject)。varB: Boolean。beginSetLength(TrueBoolStrs, 2)。SetLength(FalseBoolStrs, 2)。TrueBoolStrs[0] := 39。True39。FalseBoolStrs[0] := 39。False39。TrueBoolStrs[1] := 39。Yes39。FalseBoolStrs[1] := 39。No39。 := TryStrToBool(, B)。 := B。end。///////End TryStrToBool附加///////Begin TryStrToBoolfunction TryStrToBool(const S: string。 out Value: Boolean): Boolean。function CompareWith(const aArray: array of string): Boolean。varI: Integer。beginResult := False。for I := Low(aArray) to High(aArray) doif AnsiSameText(S, aArray[I]) thenbeginResult := True。Break。end。end。varLResult: Extended。beginResult := TryStrToFloat(S, LResult)。if Result thenValue := LResult 0elsebeginResult := True。 //修正處VerifyBoolStrArray。if CompareWith(TrueBoolStrs) thenValue := Trueelse if CompareWith(FalseBoolStrs) thenValue := FalseelseResult := False。end。end。///////End TryStrToBool━━━━━━━━━━━━━━━━━━━━━函數 function BoolToStr(B: Boolean。 UseBoolStrs: Boolean = False): string。 $[功能 返回邏輯值B轉換成字符串說明 BoolToStr(False, False)=39。039。BoolToStr(False, True)=39。139。參考 var 。var 例子 := BoolToStr(, )。━━━━━━━━━━━━━━━━━━━━━函數 function LoadStr(Ident: Integer): string。 $[功能 返回根據標識Ident的字符串資源說明 字符串資源是指程序的內部資源參考 function 例子 := LoadStr(StrToIntDef(, 0))。━━━━━━━━━━━━━━━━━━━━━函數 function FmtLoadStr(Ident: Integer。 const Args: array of const): string。 $[功能 返回格式化的字符串資源說明 字符串資源是指程序的內部資源參考 function 。function 例子 NULL。━━━━━━━━━━━━━━━━━━━━━函數 function StrLen(const Str: PChar): Cardinal。 $[功能 返回指針字符串的長度說明 當指針字符串Str為nil時將觸發(fā)異常參考 NULL例子 := StrLen(PChar())。━━━━━━━━━━━━━━━━━━━━━函數 function StrEnd(const Str: PChar): PChar。 $[功能 返回指針字符串的結尾說明 當指針字符串Str為nil時將觸發(fā)異常參考 NULL例子 := StrEnd(PChar()) 。━━━━━━━━━━━━━━━━━━━━━函數 function StrMove(Dest: PChar。 const Source: PChar。 Count: Cardinal): PChar。 $[功能 返回將指針字符串Source指定內存數量Count復制覆蓋到指針字符串Dest中說明 Dest沒有分配資源將觸發(fā)異常s參考 function 例子///////Begin StrMoveprocedure (Sender: TObject)。varvBuffer: PChar。beginvBuffer := 39。012345678939。StrMove(vBuffer, PChar(), )。 := vBuffer。end。///////End StrMove━━━━━━━━━━━━━━━━━━━━━函數 function StrCopy(Dest: PChar。 const Source: PChar): PChar。 $[功能 返回將指針字符串Source復制到指針字符串Dest中說明 Dest應已經分配足夠的空間非則將觸發(fā)異常參考 NULL例子///////Begin StrCopyprocedure (Sender: TObject)。varvBuffer: PChar。beginGetMem(vBuffer, Length() + 1)。StrCopy(vBuffer, PChar())。 := vBuffer。FreeMem(vBuffer)。end。///////End StrCopy━━━━━━━━━━━━━━━━━━━━━函數 function StrECopy(Dest:PChar。 const Source: PChar): PChar。 $[功能 返回將指針字符串Source復制到指針字符串Dest中的結尾說明 可以連接指針字符串參考 NULL例子///////Begin StrECopyprocedure (Sender: TObject)。varvBuffer: array[0..255] of Char。beginStrECopy(StrECopy(vBuffer, PChar()), PChar())。 := vBuffer。end。///////End StrECopy━━━━━━━━━━━━━━━━━━━━━函數 function StrLCopy(Dest: PChar。 const Source: PChar。 MaxLen: Cardinal): PChar。 $[功能 返回將指針字符串Source指定長度MaxLen復制到指針字符串Dest中說明 Dest應已經分配足夠的空間非則將觸發(fā)異常參考 NULL例子///////Begin StrLCopyprocedure (Sender: TObject)。varvBuffer: array[0..255] of Char。beginStrLCopy(vBuffer, PChar(), )。 := vBuffer。end。///////End StrLCopy━━━━━━━━━━━━━━━━━━━━━函數 function StrPCopy(Dest: PChar。 const Source: string): PChar。 $[功能 返回將指針字符串Source復制到指針字符串Dest中說明 StrLCopy(Dest, PChar(Source), Length(Source))參考 function 例子///////Begin StrPCopyprocedure (Sender: TObject)。varvBuffer: array[0..255] of Char。beginStrPCopy(vBuffer, PChar())。 := vBuffer。end。///////End StrPCopy━━━━━━━━━━━━━━━━━━━━━函數 function StrPLCopy(Dest: PChar。 const Source: string。 MaxLen: Cardinal): PChar。 $[功能 返回將字符串Source指定長度MaxLen復制到指針字符串Dest中說明 StrLCopy(Dest, PChar(Source), MaxLen)參考 function 例子///////Begin StrPLCopyprocedure (Sender: TObject)。varvBuffer: array[0..255] of Char。beginStrPLCopy(vBuffer, , )。 := vBuffer。end。///////End StrPLCopy━━━━━━━━━━━━━━━━━━━━━函數 function StrCat(Dest: PChar。 const Source: PChar): PChar。 $[功能 返回連接指針字符串Dest和指針字符串Source說明 StrCopy(StrEnd(Dest), Source)參考 function 例子///////Begin StrCatprocedure (Sender: TObject)。varvBuffer: array[0..255] of Char。beginStrPCopy(vBuffer, )。StrCat(vBuffer, PChar())。 := vBuffer。end。///////End StrCat━━━━━━━━━━━━━━━━━━━━━函數 function StrLCat(Dest: PChar。 const Source: PChar。 MaxLen: Cardinal): PChar。 $[功能 返回連接指針字符串Dest和指針字符串Source說明 [注意]MaxLen指定連接后的最大長度不是指針字符串Source的長度參考 NULL例子///////Begin StrLCatprocedure (Sender: TObject)。varvBuffer: array[0..255] of Char。beginStrPCopy(vBuffer, )。StrLCat(vBuffer, PChar(), )。 := vBuffer。end。///////End StrLCat━━━━━━━━━━━━━━━━━━━━━函數 function StrComp(const Str1, Str2: PChar): Integer。 $[功能 返回比較兩個指針字符串說明 當S1S2返回值0。當S1S2返回值0。當S1=S2返回值=0。區(qū)分大小寫。[注意]返回第一個出現不同字符的差異參考 NULL例子 := StrComp(PChar(), PChar())。━━━━━━━━━━━━━━━━━━━━━函數 function StrIComp(const Str1, Str2: PChar): Integer。 $[功能 返回比較兩個指針字符串說明 當S1S2返回值0。當S1S2返回值0。當S1=S2返回值=0。不區(qū)分大小寫。[注意]返回第一個出現不同字符的差異參考 NULL例子 := StrIComp(PChar(), PChar())。━━━━━━━━━━━━━━━━━━━━━函數 function StrLComp(const Str1, Str2: PChar。 MaxLen: Cardinal): Integer。 $[功能 返回比較兩個指針字符串指定長度說明 當S1S2返回值0。當S1S2返回值0。當S1=S2返回值=0。區(qū)分大小寫。Length(長度)。[注意]返回第一個出現不同字符的差異參考 NULL例子 := StrLComp(PChar(), PChar(), )━━━━━━━━━━━━━━━━━━━━━函數 function StrLIComp(const Str1, Str2: PChar。 MaxLen: Cardinal): Integer。 $[功能 返回比較兩個指針字符串指定長度說明 當S1S2返回值0。當S1S2返回值0。當S1=S2返回值=0。不區(qū)分大小寫。[注意]返回第一個出現不同字符的差異參考 NULL例子 := StrLIComp(PChar(), PChar(), )━━━━━━━━━━━━━━━━━━━━━函數 function StrScan