一个很简单的问题!本人刚学DELPHI所以不懂!!

yuyunhappy 2004-12-21 09:16:26
怎么样在字符串里查找字符!
比如1000%1111我要查找%!!代码怎么写!!
...全文
80 点赞 收藏 8
写回复
8 条回复
SampsonDyh 2004年12月22日
var
Position : Integer;
myString : String;
myFind:String;
begin
myString := '1000%1111';
myFind:='%';
Position := Pos( myFind,myString);
if Position <> 0 then
ShowMessage('在位置 '+IntToStr(Position) +' 找到了!')
else
ShowMessage('找不到所需的字串');
end;
回复 点赞
jackie168 2004年12月21日
回复人: kobi(绝) ( ) 信誉:94 2004-12-21 21:26:00 得分: 0

if Pos('%','1000%1111')>=0 then
showmessage('找到了')
就可以了,有必要象楼上的这么麻烦吗?


可以实现~~~
回复 点赞
桂林哈秋 2004年12月21日
支持楼上大虾,但也支持楼上上面的大虾,刚学的时候最好学一些比较原始的为好,小弟也是初学者,正在学习一些超级初级的呢!!!
回复 点赞
ninliu 2004年12月21日
if Pos('%','1000%1111')>=0 then
showmessage('找到了')
就可以了,有必要象楼上的这么麻烦吗?
回复 点赞
zdq801104 2004年12月21日
随手写的。FOR I:=1 TO length(qq)忘记加个DO了
应该是
var i:integr
m:string;
qq:string;
begin
mm:='%'
qq:='1000%1111'
FOR I:=1 TO length(qq) do
begin
if mm=copy(qq,i,1) then
showmessage('找到了')
break;
end;
end;
回复 点赞
zdq801104 2004年12月21日

var i:integr
m:string;
qq:string;
begin
mm:='%'
qq:='1000%1111'
FOR I:=1 TO length(qq)
begin
if mm=copy(qq,i,1) then
showmessage('找到了')
break;
end;
end;
回复 点赞
zdq801104 2004年12月21日
用COPY函数,一个个取出来对照
回复 点赞
ninliu 2004年12月21日
Pos('%','1000%1111')
回复 点赞
发动态
发帖子
数据库相关
创建于2007-08-02

1211

社区成员

8.8w+

社区内容

Delphi 数据库相关
社区公告
暂无公告