用POS()函数查找汉字的问题，急！(50分)

X

xinfengzhou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-08

• #1

我运行下列过程，得到了意外结果
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
i:=pos('切','记型号');
showmessage(inttostr(i));
end;
结果如下：i为2，而理论上应为0。
要正确的查找汉字应该如何实现，请各位大侠赐教！！！

 

Z

zhengyoukang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-08

• #2

gz

 

J

jrq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-08

• #3

一个汉字是2个字节，能用pos()吗？
怎么变换？
关注！

 

U

ugvanxk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-08

• #4

var i:integer;
s1,s2:string;
sub,s:widestring;
begin
s1:='切';
s2:='记型号';
i:=pos(s1,s2);
showmessage(inttostr(i));
没问题

 

Z

zgdtxf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-08

• #5

应该可以用widestring类型来解决这个问题

 

W

wsj1208

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-08

• #6

to ugvanxk:楼上的方法似乎不行啊

 

Z

zhanzehua

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-08

• #7

使用WideString
WideString将中文及英文均认为是同一长度的字符

 

Y

ysl66

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-08

• #8

用copy吧，一次copy两位比较字符串，可能麻烦一点。

 

W

wsj1208

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-08

• #9

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
s1,s2:widestring;
begin
s1:='切';
s2:='记型号';
i:=pos(s1,s2);
showmessage(inttostr(i));
这样就行了

 

Z

zhengyoukang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-08

• #10

up!

 

Z

Zane

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-08

• #11

up2!

 

U

ugvanxk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-08

• #12

写错了，
赋值sub,s:widestring 就可以了

 

L

linsb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-08

• #13

很有意思！
s1:='切';
s2:='记型号';
t1:=s1[1];
t2:=s1[2];
t3:=s2[2];
t4:=s2[3];
ord(t1)=ord(t3)
ord(t2)=ord(t4)
因此出现i＝2的情况！
避免办法有二如上。

 

X

xianjun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-08

• #14

记的右半部份加上型的左半部份刚好是个切字
所以会出错
换成下面的语句就不会有这样的问题了：
i:=pos(WideString('切'),WideString('记型号'));
showmessage(inttostr(i));

 

J

jomee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-08

• #15

学习一下。

 

X

xinfengzhou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-08

• #16

多人接受答案了。