Рекурсия на Делфи 7

[unknownspace]

Описать рекурсивную функцию, которая подсчитывает кол-во цифр в строке. строка заканчивается точкой, запятой, точкой с запятой.

[whatever]

function check1(i:byte; s:sting;):byte;
begin
result:=0;
if s[i] in ['0'..'9'] then 
  result:=1;
if not(s[i] in ['.',',',';']) then
  result:=result+check1(i+1,s);
end.

function check(s:string):byte;
begin
  result:=check1(1,s);
end;

Не проверял

[unknownspace]

Сообщение от whatever

function check1(i:byte; s:sting;):byte;
begin
result:=0;
if s[i] in ['0'..'9'] then 
  result:=1;
if not(s[i] in ['.',',',';']) then
  result:=result+check1(i+1,s);
end.

function check(s:string):byte;
begin
  result:=check1(1,s);
end;

Не проверял

Дружище можешь плиз запилить так чтобы
ввожу на пример я строку в edit1 и потом оно мне в сообщении выводит кол-во цифр в этой строке... а если цифр в строке нет, тогда сообщение ошибки - мол цифр нет...
За ранее Спасибо!

[whatever]

Самое сложное я уже написал. Если думать лень, то вот.