一个字符传处理问题!!(20分)

雨

雨林18

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-31

• #1

我找出左边第一个字符不为 D,K,W,T 的是用哪个函数
还有左边第一,二个字符为A3 和 J 又是用哪个函数
(注意我不想用rightStr(a,1)一个个去判断有没有类似于sql 里面的 notin涵数 )两个基本点问题一个10分

 

D

dirk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-31

• #2

var
s:string;
begin
//左边第一个字符不为 D,K,W,T
if not (s[1] in ['D','K','W','T'] then

//左边第一,二个字符为A3 和 J
if (s[1] = 'A') and (s[2] = '3') then
if (s[1] = 'J') and (s[2] = 'J') then

 

P

ProLove

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-31

• #3

楼上方法可行

 

雨

雨林18

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-31

• #4

接受答案了.