请问怎样表示字符串a是否包含在数组b中(100分)

B

bigfish0007

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-26

• #1

请问怎样表示字符串a是否包含在数组b中

 

B

blyb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-26

• #2

自己写个函数：遍历数组，用POS查找。

 

B

bigfish0007

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-26

• #3

没有现成的函数么？？能举个例么

 

D

dedema

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-26

• #4

function StrInArray(b:array of String;a:String):Boolean;
var
i:Integer;
begin
Result:=False;
for i:=Low(b)to High(b) do
if a=b then
begin
Result:=True;
Break;
end;
end;
写完了。

 

B

bigfish0007

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-26

• #5

谢谢，那么请问如果a不在b中时，将a加入到数组c中，怎么实现呢？？

 

B

blyb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-26

• #6

你太懒了，将dedema的代码改以下，找到了返回TURE,没找到了返回FALSE不就行了吗！！！

 

B

bigfish0007

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-26

• #7

不好意思，可能是我说得不够清楚。在这里其实a也是一个数组。我要将a为false的付给c数组，做了一下循环：
for i:=0 to b.count-1 do
if not StrInArray(b,a) then
c[b.count+i]:=a
这样得到结果是c数据不连续，怎样才能保证c的连续性呢？？难道要在每次判断后在满足条件时让b.count-1 么？？

 

B

blyb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-26

• #8

再定义一个整型变量Y
Y:=0;
for i:=0 to b.count-1 do
if not StrInArray(b,a) then
BEING
c[Y]:=a;
Y:=Y+1;
END;

 

B

bigfish0007

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-26

• #9

谢谢指教

 

B

bigfish0007

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-26

• #10

多人接受答案了。