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

[yuyunhappy]

怎么样在字符串里查找字符！
比如1000%1111我要查找%！！代码怎么写！！

[ninliu]

Pos('%','1000%1111')

[zdq801104]

用COPY函数，一个个取出来对照

[zdq801104]

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]

随手写的。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;

[ninliu]

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

[桂林哈秋]

支持楼上大虾，但也支持楼上上面的大虾，刚学的时候最好学一些比较原始的为好，小弟也是初学者，正在学习一些超级初级的呢！！！

[jackie168]

回复人： kobi(绝) ( ) 信誉：94 2004-12-21 21:26:00 得分: 0

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


可以实现~~~

[SampsonDyh]

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;