请问判断一个字符串是否在某一数组中这样一个函数该如何写？ ( 积分: 5 )

高

高手贵姓

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-23

• #1

有三个定义好的数组，比如 c1: Array[1..2] of String =['C0','C2']，
c2: Array[1..2] of String =['D4','D6']，c3: Array[1..2] of String =['F8','EA']，有一个字符串s，如果在c1中那么显示为红，如果在c2中显示为绿，如果在c3中显示为蓝。请问这个函数怎么写？

函数如： function g():string;
调用如： s:='C2'
g(s): = 红

 

L

lovezyp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-23

• #2

遍历数组然后判断

 

高

高手贵姓

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-23

• #3

大哥，你好，能写一个简单的示例吗？

 

高

高手贵姓

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-23

• #4

function MatchStr(DestStr:String;Strs:array of String):String

var
I:Integer

begin
Result:=''

for I:=1 to Length(Strs) do
//如果与目标匹配
if (Pos(Strs,DestStr)>0) and
//而且比现在找到的结果更长
(Length(Strs)=Length(Result)) then
//替换当前结果
Result:=Strs

end


找到一个小函数 但是只能对比一个数组

 

A

abcdman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-23

• #5

如果有多个这样的数组,函数参数多写几个就行了吧.

 

B

boy2002cn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-23

• #6

Const
RED='C0C2';
GREEN='D4D6';
BLUE='F8EA';
function g(c:string):string;
begin
if pos(c,red)>0 then result:='red';
if pos(c,GREEN)>0 then result:='GREEN';
if pos(c,BLUE)>0 then result:='BLUE';
end;
不喜欢用数组，查询太麻烦

 

高

高手贵姓

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-23

• #7

接受答案了.