【文章內(nèi)容簡(jiǎn)介】 hen Exit。Size := 。if (Size = 0) then Exit。Buffer := StrAlloc(Size + 1)。try(Buffer, Size + 1)。P := SearchBuf(Buffer, Size, , ,SearchString, SearchOptions)。if P nil then begin := P Buffer。 := Length(SearchString)。Result := True。end。finallyStrDispose(Buffer)。end。end。procedure (Sender: TObject)。varSearchOptions: TStringSearchOptions。beginSearchOptions := []。if thenInclude(SearchOptions, soDown)。if thenInclude(SearchOptions, soMatchCase)。if thenInclude(SearchOptions, soWholeWord)。SearchEdit(Memo1, , SearchOptions)。end。///////End SearchBuf━━━━━━━━━━━━━━━━━━━━━ 函數(shù) function Soundex(const AText: string。 ALength: TSoundexLength = 4): string。 $[功能 返回探測(cè)字符串說(shuō)明 根據(jù)探測(cè)法(Soundex)可以找到相進(jìn)的字符串。參考 NULL例子 := Soundex(, )。━━━━━━━━━━━━━━━━━━━━━函數(shù) function SoundexInt(const AText: string。 ALength: TSoundexIntLength = 4): Integer。 $[功能 返回探測(cè)整數(shù)說(shuō)明 ALength的值越大解碼準(zhǔn)確率越高參考 NULL例子 := SoundexInt(, )。━━━━━━━━━━━━━━━━━━━━━ 函數(shù) function DecodeSoundexInt(AValue: Integer): string。 $[功能 返回探測(cè)整數(shù)的解碼說(shuō)明 DecodeSoundexInt(SoundexInt(39。hello39。)) 相當(dāng)于 Soundex(39。hello39。)參考 NULL例子 := DecodeSoundexInt()。━━━━━━━━━━━━━━━━━━━━━ 函數(shù) function SoundexWord(const AText: string): Word。 $[功能 返回探測(cè)文字?jǐn)?shù)值說(shuō)明 沒(méi)有參數(shù)ALength已經(jīng)固定為4參考 NULL例子 := SoundexWord()。━━━━━━━━━━━━━━━━━━━━━ 函數(shù) function DecodeSoundexWord(AValue: Word): string。 $[功能 返回探測(cè)文字?jǐn)?shù)值的解碼說(shuō)明 DecodeSoundexWord(SoundexWord(39。hello39。)) 相當(dāng)于 Soundex(39。hello39。)參考 NULL例子 := DecodeSoundexWord()。━━━━━━━━━━━━━━━━━━━━━ 函數(shù) function SoundexSimilar(const AText, AOther: string。 ALength: TSoundexLength = 4): Boolean。 $[功能 返回兩個(gè)字符串的探測(cè)字符串是否相同說(shuō)明 Result := Soundex(AText, ALength) = Soundex(AOther, ALength)參考 NULL例子 := SoundexSimilar(, , )。━━━━━━━━━━━━━━━━━━━━━ 函數(shù) function SoundexCompare(const AText, AOther: string。 ALength: TSoundexLength = 4): Integer。 $[功能 返回比較兩個(gè)字符串的探測(cè)字符串的結(jié)果說(shuō)明 Result := AnsiCompareStr(Soundex(AText, ALength), Soundex(AOther, ALength))參考 function 例子 := SoundexCompare(, , )。━━━━━━━━━━━━━━━━━━━━━ 函數(shù) function SoundexProc(const AText, AOther: string): Boolean。 $[功能 調(diào)用SoundexSimilar返回兩個(gè)字符串的探測(cè)字符串是否相同說(shuō)明 系統(tǒng)變量AnsiResemblesProc的默認(rèn)值參考 function 例子 [var AnsiResemblesProc: TCompareTextProc = SoundexProc。]━━━━━━━━━━━━━━━━━━━━━函數(shù) function NewStr(const S: string): PString。 deprecated。 $[功能 返回一個(gè)新的字符串指針地址說(shuō)明 字符串S為空時(shí)返回NullStr參考 procedure 例子 ////////Begin NewStr,DisposeStrprocedure (Sender: TObject)。varP: PString。beginP := NewStr()。 := P^。DisposeStr(P)。end。////////End NewStr,DisposeStr━━━━━━━━━━━━━━━━━━━━━ 函數(shù) procedure DisposeStr(P: PString)。 deprecated。 $[功能 釋放字符串指針P資源說(shuō)明 配合函數(shù)NewStr使用參考 procedure 例子 如上參見(jiàn),如下參見(jiàn)━━━━━━━━━━━━━━━━━━━━━ 函數(shù) procedure AssignStr(var P: PString。 const S: string)。 deprecated。 $[功能 將字符串S更新給字符串指針P說(shuō)明 更新值時(shí)會(huì)釋放以前字符串指針的資源參考 function 。function 例子 ////////Begin AssignStrprocedure (Sender: TObject)。varP: PString。beginP := nil。AssignStr(P, )。 := P^。DisposeStr(P)。end。////////End AssignStr━━━━━━━━━━━━━━━━━━━━━ 函數(shù) procedure AppendStr(var Dest: string。 const S: string)。 deprecated。 $[功能 在字符串Dest后追加字符串S說(shuō)明 相當(dāng)于Dest := Dest + S。Delphi6已經(jīng)不建議使用參考 NULL例子 ////////Begin AppendStrprocedure (Sender: TObject)。varS: string。beginS := 。AppendStr(S, )。 := S。end。////////End AppendStr━━━━━━━━━━━━━━━━━━━━━ 函數(shù) function UpperCase(const S: string): string。 $[功能 返回字符串S的大寫(xiě)形式說(shuō)明 非小寫(xiě)字符不處理參考 procedure 例子 := UpperCase()。━━━━━━━━━━━━━━━━━━━━━ 函數(shù) function LowerCase(const S: string): string。 $[功能 返回字符串S的小寫(xiě)形式說(shuō)明 非大寫(xiě)字符不處理參考 procedure 例子 := LowerCase()。━━━━━━━━━━━━━━━━━━━━━ 函數(shù) function CompareStr(const S1, S2: string): Integer。 $[功能 返回比較兩個(gè)字符說(shuō)明 當(dāng)S1S2返回值0。當(dāng)S1S2返回值0。當(dāng)S1=S2返回值=0。區(qū)分大小寫(xiě)參考 NULL例子 := CompareStr(, )。━━━━━━━━━━━━━━━━━━━━━ 函數(shù) function CompareMem(P1, P2: Pointer。 Length: Integer): Boolean。 assembler。 $[功能 返回比較兩個(gè)內(nèi)存指針說(shuō)明 CompareMem(PChar(39。12a39。), PChar(39。12c39。), 2)=True。CompareMem(PChar(39。12a39。), PChar(39。12c39。), 3)=False參考 NULL例子 := CompareMem(Self, Form1, 8)。━━━━━━━━━━━━━━━━━━━━━ 函數(shù) function CompareText(const S1, S2: string): Integer。 $[功能 返回比較兩個(gè)字符串說(shuō)明 不區(qū)分大小寫(xiě)參考 NULL例子 := CompareText(, )。━━━━━━━━━━━━━━━━━━━━━ 函數(shù) function SameText(const S1, S2: string): Boolean。 $[功能 返回兩個(gè)字符串是否相等說(shuō)明 不區(qū)分大小寫(xiě)參考 NULL例子 := SameText(, )。━━━━━━━━━━━━━━━━━━━━━ 函數(shù) function AnsiUpperCase(const S: string): string。 $[功能 返回字符串S的大寫(xiě)形式說(shuō)明 ANSI(American National Standards Institute)美國(guó)國(guó)家標(biāo)準(zhǔn)協(xié)會(huì)。非小寫(xiě)的字符不變參考 function 例子 := AnsiUpperCase()。━━━━━━━━━━━━━━━━━━━━━函數(shù) function AnsiLowerCase(const S: string): string。 $[功能 返回字符串S的小寫(xiě)形式說(shuō)明 非大寫(xiě)字符不處理參考 function 例子 := AnsiLowerCase()。━━━━━━━━━━━━━━━━━━━━━函數(shù) function AnsiCompareStr(const S1, S2: string): Integer。 $[功能 反回比較兩個(gè)字符串說(shuō)明 當(dāng)S1S2返回值0。當(dāng)S1S2返回值0。當(dāng)S1=S2返回值=0。區(qū)分大小寫(xiě)參考 function 例子 := AnsiCompareStr(, )。━━━━━━━━━━━━━━━━━━━━━函數(shù) function AnsiSameStr(const S1, S2: string): Boolean。 $[功能 返回兩個(gè)字符串是否相等說(shuō)明 區(qū)分大小寫(xiě)參考 function 例子 := AnsiSameStr(, )。━━━━━━━━━━━━━━━━━━━━━函數(shù) function AnsiCompareText(const S1, S2: string): Integer。 $[功能 反回比較兩個(gè)字符串說(shuō)明 當(dāng)S1S2返回值0。當(dāng)S1S2返回值0。當(dāng)S1=S2返回值=0。不區(qū)分大小寫(xiě)參考 function 例子 := AnsiCompareText(, )。━━━━━━━━━━━━━━━━━━━━━函數(shù) function AnsiSameText(const S1, S2: string): Boolean。 $[功能 返回兩個(gè)字符串是否相等說(shuō)明 不區(qū)分大小寫(xiě)參考 function 例子 := AnsiSameText(, )。━━━━━━━━━━━━━━━━━━━━━函數(shù) function AnsiStrComp(S1, S2: PChar): Integer。 $[功能 返回比較兩個(gè)指針字符串說(shuō)明 當(dāng)S1S2返回值0。當(dāng)S1S2返回值0。當(dāng)S1=S2返回值=0。區(qū)分大小寫(xiě)參考 function 例子 := AnsiStrComp(PChar(), PChar())━━━━━━━━━━━━━━━━━━━━━函數(shù) function AnsiStrIComp(S1, S2: PChar): Integer。 $[功能 返回比較兩個(gè)指針字符串說(shuō)明 當(dāng)S1S2返回值0。當(dāng)S1S2返回值0。當(dāng)S1=S2返回值=0。不區(qū)分大小寫(xiě)。Ignore(忽略)參考 function 例子 := AnsiStrIComp(PChar(), PChar())━━━━━━━━━━━━━━━━━━━━━函數(shù) function AnsiStrLComp(S1, S2: PChar。 MaxLen: Cardinal): Integer。 $[功能 返回比較兩個(gè)指針字符串指定長(zhǎng)度說(shuō)明 當(dāng)S1S2返回值0。當(dāng)S1S2返回值0。當(dāng)S1=S2返回值=0。區(qū)分大小寫(xiě)。Length(長(zhǎng)度)參考 function 例子 := AnsiStrLComp(PChar(), PChar(), )━━━━━━━━━━━━━━━