不支持字串检索,很多 if s=*** then ,怎样写最简捷? ( 积分: 10 )

国

国色天香

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-14

• #1

比如:
if strname='张三' then ....
if strname='李四' then ....
if strname='王五' then ....
怎样写最简洁?

 

国

国色天香

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-14

• #2

比如:
if strname='张三' then ....
if strname='李四' then ....
if strname='王五' then ....
怎样写最简洁?

 

C

cactus123456

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-14

• #3

我认为你应该考虑then里面有什么共性和个性

 

R

royal1442

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-14

• #4

再具体一些啊，做什么用的？》

 

国

国色天香

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-14

• #5

f strname='张三' then
begin
....
end;
if strname='李四' then
begin
....
end;
if strname='王五' then
begin
....
end;

怎样写最简洁?

 

D

dawnsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-14

• #6

function CaseString (const s: string
const x: array of string): Integer;
var
i: Integer;
begin
Result:= -1
// Default return parameter
for i:= Low (x) to High (x) do begin
if AnsiCompareText(s, x) = 0 then
begin
Result:= i;
Exit;
end;
end;
end;

调用：
case CaseString(strname, ["张三","李四", "王五"]) of
0://张三
1://李四
2://王五
end;

 

K

k4-1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-15

• #7

哈哈，又从楼上的学了一招，比我看过的其它几个解决该问题的方法要好！

 

国

国色天香

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-17

• #8

多人接受答案了。