delphi字符串截取

最新推荐文章于 2024-07-10 15:56:19 发布

园子蛋蛋

最新推荐文章于 2024-07-10 15:56:19 发布

阅读量3.5k

点赞数

分类专栏： Delphi 文章标签： delphi integer string delete function url

本文链接：https://blog.csdn.net/thankoo/article/details/6639868

版权

Delphi 专栏收录该内容

1 篇文章 0 订阅

订阅专栏

如果要使用LeftStr,RightStr,MidStr必需引用系统单元StrUtils;

声明变量Str:string;

Str:=HelloWorld;

1,LeftStr(Str,2)=He;//从Str字符串变量的最左边（第一个字符包括第一个字符）开始截取2个字符；

2,RightStr(Str,2)=ld;//从Str字符串变量的最右边（第一个字符包括第一个字符）开始截取2个字符；

3,MidStr(Str,2,2)=el;//从Str字符串变量的中第2个字符开始取长度为2个字符的字符串；

另外有一个函数Copy

4,Copy(Str,2,2)＝el;//从Str字符串变量的中第2个字符开始取长度为2个字符的字符串；（类似于MidStr）;

POS 用法

function split(s,sub:string):TStringList;
begin
Result:=TStringList.Create;
while Pos(sub,s)>0 do
begin
Result.Add(Copy(s,1,Pos(sub,s)-1));
Delete(s,1,Pos(sub,s)+Length(sub)-1);
end;
Result.Add(s);
end;
procedure TForm1.Button2Click(Sender:TObject);
begin
MessageDlg(split('Come，I Love Delphi ，Thank You ，我爱DELPHI，谢谢您！','，').Text,
mtWarning, [mbOK], 0);
end;

用pos()和copy()吧，
i:integer;
s:='URL:http://www.baidu.com/ Time:2009-3-21 20:36:32 ';
i:=pos('http://www.baidu.com/',s);
s1:=copy(s,i,length(s));
comobobox.items.add(s1);

取出子串在父串中第一次出现的位置
例如
pos('b','abcd');
返回结果是2

方法：首先在Edit1中的字符串“1949年(====)Y27G3ADC<====>2008年 ”中找到“（====）”和“<====>”的位置，然后将其间的字符串提取出来即可。代码如下：
procedure TForm1.Button1Click(Sender: TObject);
var
s1,s2: string;
p1,p2: integer;
begin
s1 := Edit1.Text;
p1 := Pos('(====)',s1);
p2 := Pos('<====>',s1);
s2 := Copy(s1,p1+6,p2-p1-6)//s2即为中间那8位数
if s2 = Edit2.Text then
begin
Application.MessageBox('有情况，要求动手','提示',MB_OK+MB_ICONINFORMATION);
end;
end;