简单问题，散分，来的速度 ( 积分: 100 )

M

maolu28

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-06

• #1

这个函数判断参数 AStr 是否字符集 ACharSet 的非空子集。
1: function IsSetOfChars(const AStr: string;
2: const ACharSet: TCharSet: Boolean;
3: var
4: i: Integer;
5: begin
6: if XXXXXX then
7: Result := False
8: else
9: begin
10: i := Length(AStr);
11: while (i > 0) and (AStr in ACharSet) do
12: XXXXXX ;
13: Result := XXXXXX ;
14: end;
15: end;



请问XXXXXX应该填什么？？？？？？？？？

 

J

jxjdzwlp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-07

• #2

6. if length(Astr)=0 then
Result:=False
12. i:=i-1
13. Result:=(i<=0)

 

A

admin2008

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-07

• #3

6. if length(Astr)=0 then
Result:=False
12. i:=i-1
13. Result:=true

 

C

Corn3

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-07

• #4

6. if AStr='' then
12. Dec(i);
13. Result := (i=0);

 

L

lovedesky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-07

• #5

不仅仅针对你的XXXXXX，所以直接赴代码如下：
6: if length(Astr)=0 then
7: Result := False
8: else
9: begin
10: i := Length(AStr);
11: while i > 0 do
12: begin
13: if (AStr in ACharSet)=false then Result=false;
14: i:=i-1;
15: end;
16: Result:=true;
17: end;
18: end;

 

M

maolu28

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-08

• #6

多人接受答案了。