D7环境下字符串函数问题(50分)

E

erbbchen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-02-14

• #1

很普通的一句话：
ls_where = '进仓日期 = 2008-2-14'
ls_fieldname := midstr(ls_where, 1, pos(' ', ls_where)-1)
汉字长度我测试过,我使用showmessage看到的位置都是准确的,可是用截取就不行了 。
后来用固定数字测试了一下发现这样的结果：
在D6中pos读取汉子时算两个字符,midstr获取汉字是算两个字符,这样就吻合,但是D7中pos读取汉子时算两个字符,midstr获取汉字是算一个字符,这样获得的内容就不吻合,
现在就是在D7中如何解决上面例子的问题

 

L

liyinwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-02-14

• #2

const
ls_where = '进仓日期 = 2008-2-14';
var
s: WideString;
ls_fieldname: String;
begin
s := ls_where;
ls_fieldname := midstr(s, 1, pos(' ', s)-1);
Caption := ls_fieldname;
end;

 

轻

轻舞肥羊

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-02-14

• #3

引用StrUtils单元,用midbstr,以字节为单位操作

 

E

eaglepsm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-02-14

• #4

用widestring试试

 

E

erbbchen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-02-15

• #5

接受答案了.