路过的都来看，case的问题?(47分)

1

13708782004

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-27

• #1

//这个例子来源Delphi_Super_Documents_2005_Kingron.rar
function CaseString(s: string
const x: array of string): integer;
var i: Integer;
s1, s2: string;
begin
Result := -1;
s1 := s;
AnsiUpperCase(s1);
for i := Low(x) to High(x) do begin

s2 := x;
AnsiUpperCase(s2);
if Pos(s1, s2) > 0 then begin Result := i
Exit
end;
//pos 是区分大小写的
// if s1 = s2 then begin Result := i
Exit
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if CaseString('float', ['float', 'numeric', 'Int', 'real', 'Smallint']) > -1 then showmessage('is num');
end;
这个代码执行了，为什么退出不彻底？

 

1

13708782004

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-27

• #2

不好意思，是我弄错了

 

Y

yuzk2005

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-27

• #3

procedure TForm1.Button1Click(Sender: TObject);
begin
if CaseString(s, ['float', 'numeric', 'Int', 'real', 'Smallint', 'Time']) > -1 then showmessage('is num');
end;
中s没定义,没赋值.
退出不彻底什么意思?

 

F

foxphone2003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-27

• #4

循环中退出break
过程中退出exit
全部退出abort
软件退出halt
你需要哪个？

 

1

13708782004

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-27

• #5

多人接受答案了。