Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Delphi] Работа со строками

Автор: defeat 9.1.2008, 16:40

Здравствуйте, помогите решить в 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.