delphi中关于字符串的操作-木庄网络博客

本文整理自网络，侵删。
 常用的字符串处理函数(一定要注意引用 strutils单元)
函数名 语法 功能
AnsiCompareStr function AnsiCompareStr(const S1, S2: string): Integer; 用于比较两个大小写敏感的字符串
AnsiCompareText function AnsiCompareText(const S1, S2: string): Integer; 用于比较两个大小写不敏感的字符串
AnsiUpperCase function AnsiUpperCase(const S: string): string; 将字符串转换为全部大写
AnsiLowerCase function AnsiLowerCase(const S: string): string; 将字符串转换为全部小写
Appendstr procedure AppendStr(var Dest: string; const S: string); deprecated; 将给定字符串常量添加到目标字符串末尾
CompareStr function CompareStr(const S1, S2: string): Integer; 用于比较两个大小写敏感的字符串，其结果与区域设置无关
CompareText function CompareText(const S1, S2: string): Integer; 用于比较两个大小写不敏感的字符串，其结果与区域设置无关
Concat function Concat(s1 [, s2,..., sn]: string): string; 将一组字符串连接起来
Copy function Copy(S; Index, Count: Integer): string; 返回字符串的子串
Delete procedure Delete(var S: string; Index, Count:Integer); 从字符串中删除一个子串
Insert procedure Insert(Source: string; var S: string; Index: Integer); 在字符串的指定位置插入一个子串
Length function Length(S): Integer; 返回字符串中中字符的个数
Pos function Pos(Substr: string; S: string): Integer; 在字符串中搜索子串，返回的是索引值
LeftStr function LeftStr(const AText: AnsiString; const ACount: Integer): AnsiString; 返回从字符串左边开始指定长度的子串
RightStr function RightStr(const AText: AnsiString; const ACount: Integer): AnsiString; 返回从字符串末尾向前指定长度的子串
InttoStr function IntToStr(Value: Integer): string; 将整数转换为字符串
StrtoInt function StrToInt(const S: string): Integer; 将字符串转换为整数
LowerCase function LowerCase(const S: string): string; 转换为小写
UpperCase function UpperCase(const S: string): string; 转化为大写
Val procedure Val(S; var V; var Code: Integer); 将字符串的值转换为其数字表示式

TStrings对象的属性和方法
TStrings的一些重要属性和方法如下所示。
Count：该属性定义列表中字符串的数量。
Strings：该属性表示由参数Index指定位置的字符串。0表示第一个字符串，1表示第二个字符串，依此类推。
Text：TStings对象的文本，它包含一些由回车和换行符分开的字符串。
Add方法：该方法在字符串列表的末尾添加一字符串。在调用Add方法加入字符串之后，再返回新字符串的索引值。
AddObject方法：该方法向字符串列表中加入一个字符串及与它相联系的对象。调用AddObject方法之后将返回新字符串和对象的索引值。
Append方法：该方法将在字符串列表中添加一字符串，它与Add方法一样，但不返回值。
Clear方法：该方法将清空字符串列表。
Delete方法：删除指定的字符串。
Destroy方法：析构函数，毁坏一个TStrings对象实例。
IndexOf方法：function IndexOf(const S:string):integer; 该方法的功能是返回字符串S在字符串列表中的索引值。调用IndexOf函数返回的是第一次发现字符串S的位置。其返回值也以0作为起点，若返回0则表示是第一个字符串，返回1表示是第二个字符串，依此类推。如果指定的字符串S不在列表中，则返回-1。需要指出的是，若S在字符串列表中出现的次数大于1，则IndexOf方法返回的是第一次发现的位置值。
Insert方法：该方法在指定位置插入一字符串。其参数Index为给定的位置索引值，参数S为要插入的字符串。
LoadFromFile方法：调用该方法将使用指定的文件填充文本。其参数FileName用来定义文件名，文件中行与行之间以回车和换行符隔开。事实上，LoadFromFile方法是运用Add方法将文件中的每一行添加到字符串列表中的。
SaveToFile方法：与LoadFromFile方法相对应，该方法将列表中的字符串存储于文件中，其参数FileName用来定义文件名。
如何判断输入的字符串是电子邮件地址
选择“File|New Application”菜单命令，在默认建立从窗体中添加1个Label组件、1个Edit组件和1个Bitbtn组件，完成各个组件的属性设置即布局之后，在Bitbtn组件的OnClick事件中加入如下所示的代码。
程序代码
Procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if isemail(Edit1.Text) then
ShowMessage('正确的邮件地址！')
else
showmessage('错误的邮件地址！');
end;

其中isemail函数的代码如下所示，可将其添加到单元文件的implementation部分。
程序代码
Function IsEMail(EMail: String): Boolean;
var
s: String;
ETpos: Integer;
begin
ETpos:= pos('@', EMail); //获取@符号的位置
if ETpos > 1 then 
begin 
s:= copy(EMail,ETpos+1,Length(EMail)); //截取子串
if (pos('.', s) > 1) and (pos('.', s) < length(s)) then 
Result:= true
else 
Result:= false; 
end
else 
Result:= false; 
end;

按下F9键执行程序。
如何获得字符串中汉字和英文的个数
Microsoft Word具有一项“字数统计”功能，可以统计出文本中汉字和英文的个数，其设计思路就是通过把字符转换为ASCII码数值来进行判断，Ord函数就可以把字符转换为对应的ASCII码数值，其中值为33-126为键盘可使用字符，值127以上的为未知字符，即汉字。下面完成一个示范程序，选择“File|New Application”菜单命令，在默认的窗体中添加1个Memo组件、2个Label组件和2个Button组件，完成对各个组件的属性设置及布局之后，在“字数统计”按钮的OnClick事件中添加如下所示的代码。
程序代码
Procedure TForm1.Button1Click(Sender: TObject);
var s:string;
I,e,c:integer;
begin
s:=memo1.text; //Memo的内容
e:=0;c:=0;
for I:=1 to length(s) do
begin
if (ord(s[I])>=33)and(ord(s[I])<=126) then
begin
inc(e);
label1.caption:='英文字数：'+inttostr(e);
end
else
if (ord(s[I])>=127) then
begin
inc(c);
label2.caption:='中文字数：'+inttostr(c div 2);
end;
end;
end;

使用拼音首字母序列实现检索功能
事实上，解决这个问题的思路很简单。那就是要找出汉字表中拼音首字母分别为“A”到“Z”的汉字内码范围，这样对于要检索的汉字，只需要检查它的内码位于哪一个首字母的范围内，就可以判断出它的拼音首字母。
下面完成一个示范程序，选择“File|New Application”菜单命令，在默认的窗体中添加1个Label组件、1个Bevel组件、1个Edit组件和2个ListBox组件。完成对各个组件的属性设置及布局之后，在Edit组件的OnChange事件中添加如下所示的代码。
程序代码
Procedure TForm1.Edit1Change(Sender: TObject);
var ResultStr:string;
begin
ResultStr:='';
listbox2.Items.Text := SearchByPYIndexStr(listbox1.Items, edit1.Text);
end;

这里所使用的SearchByPYIndexStr函数的代码如下所示，其功能是在字符串列表中检索符合拼音索引字符串的所有字符串。可将其添加到窗体单元文件的implementation部分。
程序代码
Function SearchByPYIndexStr( SourceStrs:TStrings; PYIndexStr:string):string;
label NotFound;
var
i, j :integer;
hzchar :string;
begin
for i:=0 to SourceStrs.Count-1 do
begin
for j:=1 to Length(PYIndexStr) do
begin
hzchar:=SourceStrs[i][2*j-1]+ SourceStrs[i][2*j];
if (PYIndexStr[j]<>'?') and (UpperCase(PYIndexStr[j]) <>
GetPYIndexChar(hzchar)) then 
goto NotFound;
end;
if result='' then 
result := SourceStrs[i]
else 
result := result + Char(13) + SourceStrs[i];
NotFound:
end;
end;

上面程序中引用的GetPYIndexChar函数用于获取指定汉字的拼音索引字母，如“杜”的索引字母是“D”。该函数的代码如下所示，也将其添加到窗体单元文件的implementation部分。
程序代码
Function GetPYIndexChar( hzchar:string):char;
begin
case WORD(hzchar[1]) shl 8 + WORD(hzchar[2]) of
$B0A1..$B0C4 : result := 'A';
$B0C5..$B2C0 : result := 'B';
$B2C1..$B4ED : result := 'C';
$B4EE..$B6E9 : result := 'D';
$B6EA..$B7A1 : result := 'E';
$B7A2..$B8C0 : result := 'F';
$B8C1..$B9FD : result := 'G';
$B9FE..$BBF6 : result := 'H';
$BBF7..$BFA5 : result := 'J';
$BFA6..$C0AB : result := 'K';
$C0AC..$C2E7 : result := 'L';
$C2E8..$C4C2 : result := 'M';
$C4C3..$C5B5 : result := 'N';
$C5B6..$C5BD : result := 'O';
$C5BE..$C6D9 : result := 'P';
$C6DA..$C8BA : result := 'Q';
$C8BB..$C8F5 : result := 'R';
$C8F6..$CBF9 : result := 'S';
$CBFA..$CDD9 : result := 'T';
$CDDA..$CEF3 : result := 'W';
$CEF4..$D188 : result := 'X';
$D1B9..$D4D0 : result := 'Y';
$D4D1..$D7F9 : result := 'Z';
else
result := char(0);
end;
end;

完成之后，按下F9键运行程序，用户在编辑框中输入人名的拼音首字母后，在ListBox2中会自动检索对应的姓名。
delphi中关于字符串的操作

相关推荐

评论
