Тема: Терміново потрібна допомога з підрахуванням симолів
Показать сообщение отдельно
  #5  
Старый 03.02.2010, 19:16
lmikle lmikle вне форума
Модератор
  
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию
Вот здесь:
Код:
If S[i] In ['A'..'Z','0'..'1'] Then Inc(Result);

Опять же, мог бы и сам догадаться.
Ответить с цитированием