delphi中如何查找含有空格的字符串--高难度(100分)

C

cnmouse

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-16

• #1

这是一个少人问津的问题

delphi中如何查找含有空格的字符串
str:='小名 是 一个女孩子，她上 小学！';
怎么查找"是 一“
这个的位置，谢谢

另中文是用#什么表示，谢谢

 

A

angellover

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-16

• #2

var
str:string;
i:integer;
begin
for i:=1 to length(str) do
if str=' ' then
break
else
str:=str+str;
end;

 

A

angellover

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-16

• #3

pos('',str)

 

W

whatdelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-16

• #4

function Finds(Str,FindStr:string):integer
var
NewStr:string;
i,n:integer;
begin
NewStr:='';
// FindStr:='是 一'; //FindStr:要查找的串
// Str:='小名 是 一个女孩子，她上 小学！'; //Str:被搜索的串
for i:=1 to length(str)-length(FindStr) do
begin
NewStr:=NewStr+Str;
if LeftStr(NewStr, n)=FindStr then
result:=i;
end;
end;

 

A

ANiDelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-16

• #5

用WideString

 

李

李翔鹏

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-16

• #6

pos(' ',str) >0

 

S

sefeng1982

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-16

• #7

pos(chr(16),str)

 

C

cnmouse

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-16

• #8

谢谢各位高手赐教！

 

C

cnmouse

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-16

• #9

whatdelphi,
if LeftStr(NewStr, n)=FindStr then
这里老报错误，请指点n的值是多少

 

C

cnmouse

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-16

• #10

whatdelphi,
if LeftStr(NewStr, n)=FindStr then
这里老报错误，请指点n的值是多少

 

W

whatdelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-17

• #11

SORRY，忘了一点
n：=length(FindStr)；

 

C

cnmouse

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-19

• #12

whatdelphi
还是不行，可以帮弄成一个函数方便调用的吗
我调试不出来
帮帮，再救我一下！

 

C

cnmouse

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-20

• #13

whatdelphi
还是不行，可以帮弄成一个函数方便调用的吗
我调试不出来
帮帮，再救我一下！

delphi程序类，比较难的问题，高手资助下，谢谢！