pos函数 ( 积分: 20 )

M

mawei0913_green

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-06-14

• #21

由于昨天的题目不太明了，今天菜鸟有修改了一下，请看上面的新内容，请各位高人帮忙，谢谢！

 

B

bennythb001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-06-14

• #22

放在EDIT中也太说不过去了,即然是一循环你仅记住最后一个,又要放到EDIT中,唉!!!不知楼主有何想法啊

 

A

asksomeone

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-06-14

• #23

他是想取最后一个那个+QQ后面的信息吧
或者是取出来的全加一块送到EDIT里面去

 

B

batconv

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-06-14

• #24

这样试一下：
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
s:string;
begin
for i:=0 to memo1.Lines.Count -1 do
begin
s:=Memo1.Lines.Strings;
if Pos('+QQ',s)<>0 then
edit1.text:=Copy(s,Pos('+QQ',s)+3,Length(s)-Pos('+QQ',s)-1);
end;
end;

 

C

china_zhli

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-06-14

• #25

batconv的方法是可以的

 

L

linuxping

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-06-14

• #26

for i:=memo1.Lines.Count -1 downto 0 do
begin
s:=Memo1.Lines.Strings;
if Pos('+QQ',s)<>0 then
edit1.text:=Copy(s,Pos('+QQ',s)+3,Length(s)-Pos('+QQ',s)-1);
end;

另外: LastDelimiter()
另外:


Splitor:=PAnsiChar('QQ+');
Str:=(AnsiReverseString(memo2.text));
i:=AnsiPos(Splitor,Str);
j:=AnsiPos(#$A#$D,copy(str,1,MaxLen));
result:=MidStr(str,i+4,j-i);


方法多啊```

又是一个盗号的!!!!

 

M

mawei0913_green

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-06-28

• #27

多人接受答案了。