Работа со строками. Delphi

[defeat]

дравствуйте, помогите решить в delphi. ЗАдача такая: "Дан текст. Сколько слов в тексте? Сколько цифр в тексте? "
Я её сделал...но, как оказалась неправильно.... нашел не цифры, а числа....помогите пожалуйста исправить..

procedure TForm1.Button1Click(Sender: TObject);
var
i,j,n,k:integer;
s:string;
begin
k:=0; //количество цифр
n:=0; //количество слов
s:=copy(Memo1.lines[0],1,pos(' ',Memo1.lines[0])-1);
for i:=0 to memo1.Lines.Count-1 do begin
 for j:= 0 to length(Memo1.lines[i]) do begin
   if (Memo1.lines[i][j]=' ')and(Memo1.lines[i][j+1]<>' ')then begin
    case Memo1.lines[i][j+1] of
      '0':k:=k+1;
      '1':k:=k+1;
      '2':k:=k+1;
      '3':k:=k+1;
      '4':k:=k+1;
      '5':k:=k+1;
      '6':k:=k+1;
      '7':k:=k+1;
      '8':k:=k+1;
      '9':k:=k+1;
    else
      n:=n+1;
    end;
   end;
 end;
end;

LabeledEdit1.Text:=inttostr(n);
LabeledEdit2.Text:=inttostr(k);
end;

end.

Код вставляем в тег [CОDE][/СОDЕ] или пользуемся кнопкой # (расширенный режим). Модератор.

[Stilet]

Сколько слов в тексте?

Слова разделены пробелом?
Если в слове цифры это считается словом?
Если да то колво слов мона получить через TStringList
поставив Delimeter=' ' и присвоив DelimitedText:=текст. Тогда Count даст количество слов.

[defeat]

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

Слова разделены пробелом?

Да разделены, иначе простой набор букв типа :"атйайарйшщ" будет считаться как одно слово....

Если в слове цифры,то программа должна посчитать и само слово, в котором цифры, и сами цифры в слове...

СПасибо, но мне бы желательно чтобы цифры найти..со словами думаю разберусь..а то цифры чето не идут

[puporev]

Вы в одном цикле, где за точки отсчета приняты пробелы, считаете и слова и цифры. Цифры нужно считать без учета пробелов? примерно так:
for i:=1 to length(s) do
case s[i] of
'0'..'9':k:=k+1;
end;

[defeat]

Спасибо задача решена