delphi字符串截取

 

如果要使用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;

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值