Delphi6函数大全使用祥解供参习.docVIP

首部 function AnsiResemblesText(const AText, AOther: string): Boolean; $[StrUtils.pas功能 返回兩個字串是否相似說明 ANSI(American National Standards Institute)美國國家標準協會;不區分大小寫參考 function StrUtils.SoundexProc; var StrUtils.AnsiResemblesProc例子 CheckBox1.Checked := AnsiResemblesText(Edit1.Text, Edit2.Text);━━━━━━━━━━━━━━━━━━━━━首部 function AnsiContainsText(const AText, ASubText: string): Boolean; $[StrUtils.pas功能 返回字串AText是否包含子串ASubText說明 不區分大小寫參考 function StrUtils.AnsiUppercase; function StrUtils.AnsiPos例子 CheckBox1.Checked := AnsiContainsText(Edit1.Text, Edit2.Text);━━━━━━━━━━━━━━━━━━━━━?首部 function AnsiStartsText(const ASubText, AText: string): Boolean; $[StrUtils.pas功能 返回字串AText是否以子串ASubText開頭說明 不區分大小寫參考 function Windows.CompareString例子 CheckBox1.Checked := AnsiStartsText(Edit1.Text, Edit2.Text);━━━━━━━━━━━━━━━━━━━━━?首部 function AnsiEndsText(const ASubText, AText: string): Boolean; $[StrUtils.pas功能 返回字串AText是否以子串ASubText結尾說明 不區分大小寫參考 function Windows.CompareString例子 CheckBox1.Checked := AnsiEndsText(Edit1.Text, Edit2.Text);━━━━━━━━━━━━━━━━━━━━━?首部 function AnsiReplaceText(const AText, AFromText, AToText: string): string; $[StrUtils.pas功能 返回字串AText中用子串AFromText替換成子串AToText的結果說明 不區分大小寫參考 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功能 返回字串陣列AValues中是否包含字串AText說明 不區分大小寫參考 function StrUtils.AnsiIndexText例子 CheckBox1.Checked := AnsiMatchText(Edit1.Text, [a1, a2, a3, a4]);━━━━━━━━━━━━━━━━━━━━━?首部 function AnsiIndexText(const AText: string; const AValues: array of string): Integer; $[StrUtils.pas功能 返回字串AText在字串陣列AValues中的位置說明 不區分大小寫;如果不包含則返回-1參考 function SysUtils.AnsiSameText例子 SpinEdit1.Value := AnsiIndexText(Edit1.Text, [a1, a2, a3, a4]);━━━━━━━━━━━━━━━━━━━━━?首部 function AnsiContainsStr(const AText, ASubText: string): Boolean; $[StrUtils.pas