Delphi字符串函数大全.docx
- 文档编号:11213604
- 上传时间:2023-02-25
- 格式:DOCX
- 页数:48
- 大小:29.35KB
Delphi字符串函数大全.docx
《Delphi字符串函数大全.docx》由会员分享,可在线阅读,更多相关《Delphi字符串函数大全.docx(48页珍藏版)》请在冰豆网上搜索。
Delphi字符串函数大全
Delphi字符串函数大全
【字符串函数大全】
首部functionAnsiResemblesText(constAText,AOther:
string):
Boolean;
$[StrUtils.pas
功能返回两个字符串是否相似
说明ANSI(AmericanNationalStandardsInstitute)美国国家标准协会;不区分大小写
参考functionStrUtils.SoundexProc;varStrUtils.AnsiResemblesProc
例子CheckBox1.Checked:
=AnsiResemblesText(Edit1.Text,Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部functionAnsiContainsText(constAText,ASubText:
string):
Boolean;
$[StrUtils.pas
功能返回字符串AText是否包含子串ASubText
说明不区分大小写
参考functionStrUtils.AnsiUppercase;functionStrUtils.AnsiPos
例子CheckBox1.Checked:
=AnsiContainsText(Edit1.Text,Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部functionAnsiStartsText(constASubText,AText:
string):
Boolean;
$[StrUtils.pas
功能返回字符串AText是否以子串ASubText开头
说明不区分大小写
参考functionWindows.CompareString
例子CheckBox1.Checked:
=AnsiStartsText(Edit1.Text,Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部functionAnsiEndsText(constASubText,AText:
string):
Boolean;
$[StrUtils.pas
功能返回字符串AText是否以子串ASubText结尾
说明不区分大小写
参考functionWindows.CompareString
例子CheckBox1.Checked:
=AnsiEndsText(Edit1.Text,Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部functionAnsiReplaceText(constAText,AFromText,AToText:
string):
string;$[StrUtils.pas
功能返回字符串AText中用子串AFromText替换成子串AToText的结果
说明不区分大小写
参考functionSysUtils.StringReplace;typeSysUtils.TReplaceFlags
例子Edit4.Text:
=AnsiReplaceText(Edit1.Text,Edit2.Text,Edit3.Text);
━━━━━━━━━━━━━━━━━━━━━
首部functionAnsiMatchText(constAText:
string;constAValues:
arrayof
string):
Boolean;$[StrUtils.pas
功能返回字符串数组AValues中是否包含字符串AText
说明不区分大小写
参考functionStrUtils.AnsiIndexText
例子CheckBox1.Checked:
=AnsiMatchText(Edit1.Text,['a1','a2','a3',
'a4']);
━━━━━━━━━━━━━━━━━━━━━
首部functionAnsiIndexText(constAText:
string;constAValues:
arrayof
string):
Integer;$[StrUtils.pas
功能返回字符串AText在字符串数组AValues中的位置
说明不区分大小写;如果不包含则返回-1
参考functionSysUtils.AnsiSameText
例子SpinEdit1.Value:
=AnsiIndexText(Edit1.Text,['a1','a2','a3','a4']);
━━━━━━━━━━━━━━━━━━━━━
首部functionAnsiContainsStr(constAText,ASubText:
string):
Boolean;
$[StrUtils.pas
功能返回字符串AText是否包含子串ASubText
说明区分大小写
参考functionStrUtils.AnsiPos
例子CheckBox1.Checked:
=AnsiContainsStr(Edit1.Text,Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部functionAnsiStartsStr(constASubText,AText:
string):
Boolean;
$[StrUtils.pas
功能返回字符串AText是否以子串ASubText开头
说明区分大小写
参考functionSysUtils.AnsiSameStr
例子CheckBox1.Checked:
=AnsiStartsStr(Edit1.Text,Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部functionAnsiEndsStr(constASubText,AText:
string):
Boolean;
$[StrUtils.pas
功能返回字符串AText是否以子串ASubText结尾
说明区分大小写
参考functionSysUtils.AnsiSameStr
例子CheckBox1.Checked:
=AnsiEndsStr(Edit1.Text,Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部functionAnsiReplaceStr(constAText,AFromText,AToText:
string):
string;$[StrUtils.pas
功能返回字符串AText中用子串AFromText替换成子串AToText的结果
说明区分大小写
参考functionSysUtils.StringReplace;typeSysUtils.TReplaceFlags
例子Edit4.Text:
=AnsiReplaceStr(Edit1.Text,Edit2.Text,Edit3.Text);
━━━━━━━━━━━━━━━━━━━━━
首部functionAnsiMatchStr(constAText:
string;constAValues:
arrayof
string):
Boolean;$[StrUtils.pas
功能返回字符串数组AValues中是否包含字符串AText
说明区分大小写
参考functionStrUtils.AnsiIndexStr
例子CheckBox1.Checked:
=AnsiMatchStr(Edit1.Text,['a1','a2','a3',
'a4']);
━━━━━━━━━━━━━━━━━━━━━
首部functionAnsiIndexStr(constAText:
string;constAValues:
arrayof
string):
Integer;$[StrUtils.pas
功能返回字符串AText在字符串数组AValues中的位置
说明区分大小写
参考functionSysUtils.AnsiSameStr
例子SpinEdit1.Value:
=AnsiIndexStr(Edit1.Text,['a1','a2','a3','a4']);
━━━━━━━━━━━━━━━━━━━━━
首部functionDupeString(constAText:
string;ACount:
Integer):
string;
$[StrUtils.pas
功能返回字符串AText的ACount个复本
说明当ACount为0时返回''
参考functionSystem.SetLength
例子Edit3.Text:
=DupeString(Edit1.Text,SpinEdit1.Value);
━━━━━━━━━━━━━━━━━━━━━
首部functionReverseString(constAText:
string):
string;$[StrUtils.pas
功能返回字符串AText的反序
说明ReverseString('1234')='4321'
参考functionSystem.SetLength
例子Edit3.Text:
=ReverseString(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部functionStuffString(constAText:
string;AStart,ALength:
Cardinal;
constASubText:
string):
string;$[StrUtils.pas
功能返回嵌套字符串
说明AStart:
嵌套开始位置;ALength:
嵌套长度;StuffString('abcd',2,0,'12')='a12bcd'
参考functionSystem.Copy
例子Edit3.Text:
=StuffString(Edit1.Text,SpinEdit1.Value,SpinEdit2.Value,
Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部functionRandomFrom(constAValues:
arrayofstring):
string;overload;
$[StrUtils.pas
功能随机返回字符串数组AValues中的一个元素
说明之前建议执行Randomize
参考functionSystem.Random
例子Randomize;Edit3.Text:
=RandomFrom(['a1','a2','a3','a4']);
━━━━━━━━━━━━━━━━━━━━━
首部functionIfThen(AValue:
Boolean;constATrue:
string;AFalse:
string=
''):
string;overload;$[StrUtils.pas
功能返回指定的逻辑字符串
说明IfThen(True,'是','否')='是';IfThen(False,'是','否')='否'
参考
例子Edit3.Text:
=IfThen(CheckBox1.Checked,Edit1.Text,Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部functionLeftStr(constAText:
string;constACount:
Integer):
string;
$[StrUtils.pas
功能返回字符串AText左边的ACount个字符
说明LeftStr('123456',3)='123'
参考functionSystem.Copy
例子Edit3.Text:
=LeftStr(Edit1.Text,SpinEdit1.Value);
━━━━━━━━━━━━━━━━━━━━━
首部functionRightStr(constAText:
string;constACount:
Integer):
string;
$[StrUtils.pas
功能返回字符串AText右边的ACount个字符
说明RightStr('123456',3)='456'
参考functionSystem.Copy
例子Edit3.Text:
=RightStr(Edit1.Text,SpinEdit1.Value);
━━━━━━━━━━━━━━━━━━━━━
首部functionMidStr(constAText:
string;constAStart,ACount:
Integer):
string;$[StrUtils.pas
功能返回字符串AText从AStart开始的ACount个字符
说明其实就是Copy
参考functionSystem.Copy
例子Edit3.Text:
=MidStr(Edit1.Text,SpinEdit1.Value,SpinEdit2.Value);
━━━━━━━━━━━━━━━━━━━━━
首部functionSearchBuf(Buf:
PChar;BufLen:
Integer;SelStart,SelLength:
Integer;SearchString:
String;Options:
TStringSearchOptions=[soDown]):
PChar;$[StrUtils.pas
功能返回第一个搜索到的指针位置
说明这函数常用于文本中搜索字符串
参考
例子
///////BeginSearchBuf
functionSearchEdit(EditControl:
TCustomEdit;constSearchString:
String;
SearchOptions:
TStringSearchOptions;FindFirst:
Boolean=False):
Boolean;
var
Buffer,P:
PChar;
Size:
Word;
begin
Result:
=False;
if(Length(SearchString)=0)thenExit;
Size:
=EditControl.GetTextLen;
if(Size=0)thenExit;
Buffer:
=StrAlloc(Size+1);
try
EditControl.GetTextBuf(Buffer,Size+1);
P:
=SearchBuf(Buffer,Size,EditControl.SelStart,EditControl.SelLength,
SearchString,SearchOptions);
ifP<>nilthenbegin
EditControl.SelStart:
=P-Buffer;
EditControl.SelLength:
=Length(SearchString);
Result:
=True;
end;
finally
StrDispose(Buffer);
end;
end;
procedureTForm1.Button1Click(Sender:
TObject);
var
SearchOptions:
TStringSearchOptions;
begin
SearchOptions:
=[];
ifCheckBox1.Checkedthen
Include(SearchOptions,soDown);
ifCheckBox2.Checkedthen
Include(SearchOptions,soMatchCase);
ifCheckBox3.Checkedthen
Include(SearchOptions,soWholeWord);
SearchEdit(Memo1,Edit1.Text,SearchOptions);
Memo1.SetFocus;
end;
///////EndSearchBuf
━━━━━━━━━━━━━━━━━━━━━
首部functionSoundex(constAText:
string;ALength:
TSoundexLength=4):
string;$[StrUtils.pas
功能返回探测字符串
说明根据探测法(Soundex)可以找到相进的字符串;http:
//www.nara.gov/genealogy/coding.html
参考
例子Edit2.Text:
=Soundex(Edit1.Text,SpinEdit1.Value);
━━━━━━━━━━━━━━━━━━━━━
首部functionSoundexInt(constAText:
string;ALength:
TSoundexIntLength=
4):
Integer;$[StrUtils.pas
功能返回探测整数
说明ALength的值越大解码准确率越高
参考
例子SpinEdit2.Value:
=SoundexInt(Edit1.Text,SpinEdit1.Value);
━━━━━━━━━━━━━━━━━━━━━
首部functionDecodeSoundexInt(AValue:
Integer):
string;$[StrUtils.pas
功能返回探测整数的解码
说明DecodeSoundexInt(SoundexInt('hello'))相当于Soundex('hello')
参考
例子Edit2.Text:
=DecodeSoundexInt(SpinEdit2.Value);
━━━━━━━━━━━━━━━━━━━━━
首部functionSoundexWord(constAText:
string):
Word;$[StrUtils.pas
功能返回探测文字数值
说明没有参数ALength已经固定为4
参考
例子SpinEdit2.Value:
=SoundexWord(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部functionDecodeSoundexWord(AValue:
Word):
string;$[StrUtils.pas
功能返回探测文字数值的解码
说明DecodeSoundexWord(SoundexWord('hello'))相当于Soundex('hello')
参考
例子Edit2.Text:
=DecodeSoundexWord(SpinEdit2.Value);
━━━━━━━━━━━━━━━━━━━━━
首部functionSoundexSimilar(constAText,AOther:
string;ALength:
TSoundexLength=4):
Boolean;$[StrUtils.pas
功能返回两个字符串的探测字符串是否相同
说明Result:
=Soundex(AText,ALength)=Soundex(AOther,ALength)
参考
例子CheckBox1.Checked:
=SoundexSimilar(Edit1.Text,Edit2.Text,
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- Delphi 字符串 函数 大全