请问判断字符串中有多少个有效数字怎么写(50分)

Z

zsl448

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-13

• #1

比如"0 2 4 6 8 10 12"
我想判断这个字符串中有多少个有效数字,像上面的字符就有7个数字.数字间是且空格隔开,但也要考虑有时候两个数字间会多出一两个空格出来.像"2"跟"4"间.

 

A

Another_eYes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-13

• #2

for i := 1 to length(s) do
if s in ['0'..'9'] then inc(count);

 

H

hygsxy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-13

• #3

你的12到底算一个有效数字还是两个有效数字？

 

B

boot.ini

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-13

• #4

function getintcount(s
string): integer;
var t
string
i
integer;
begin
result ;= 0;
for i := 1 to length(s) do begin
if s in ['0'..'9'] then
t ;= t + s else
if t <> '' then begin
t ;= '';
inc(result);
end;
end;
end;
//给你一个函数，临时写，若你传进的是"0 2 4 6 8 10 12"，那反返回结果应该是7

 

H

hfghfghfg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-13

• #5

比如"0 2 4 6 8 10 12"
我想判断这个字符串中有多少个有效数字,像上面的字符就有7个数字.数字间是且空格隔开,但也要考虑有时候两个数字间会多出一两个空格出来.像"2"跟"4"间.


来自：hfghfghfg, 时间：2004-6-13 17:42:54, ID：2660785 | 编辑

procedure TForm1.FormCreate(Sender: TObject);
var
i, l, c: integer;
str: string;
begin
str := '0 2 4 6 8 10 12';
c := 0;
l := length(str);
for i := 1 to l do
if (str in ['0'..'9']) and ((i = l) or (not (str[i + 1] in ['0'..'9']))) then
inc(c);

ShowMessage(inttostr(c));
//http://www.delphibbs.com/delphibbs/dispq.asp?lid=2658344
end




问题讨论没有结束 ...

 

H

hfghfghfg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-13

• #6

boot.ini 的 结果是
6