Найти конец слова, обработать счетчики
¦¦ while (i <= Length(S)) and not IsLetter(S[i]) do ¦¦
¦¦ Inc(i); ¦¦
¦¦ ¦¦
¦¦ { Найти конец слова, обработать счетчики букв и слов } ¦¦
¦¦ WordLen := 0; ¦¦
¦¦ while (i <= Length(S)) and IsLetter(S[i]) do ¦¦
¦¦ begin ¦¦
¦¦ Inc(NumLetters); ¦¦
¦¦ Inc(LetterTable[UpCase(S[i])].Count); ¦¦
¦L--------------------------------------------------------------¦
¦-Watches-----------------------------------------------------2¬¦
¦¦NumWords 2 ($2) : WORD ¦¦
¦L--------------------------------------------------------------¦
¦F1=HelpF2=BkptF3=CloseF4=HereF5=ZoomF6=NextF7=TraceF8=StepF9=R.¦
L----------------------------------------------------------------
Рис. 3.15 Окно Inspector
В первой строке окна проверки вам сообщается имя переменной,
вторая строка показывает ее показывает ее адрес в памяти. В
третьей строке сообщается, какой тип данных хранится в переменной
NumLines (это тип Паскаля word), и выводится текущее значение
данной переменной.
Теперь, проверив значение этой переменной, нажмите клавишу
TDeb 3.0 #1-3 = 89 =
Esc для того, чтобы закрыть окно проверки Inspector. Для этого
(как и во всех других окнах) можно также воспользоваться клавиша-
ми ALt-F3 или закрыть его с помощью "мыши".
Давайте рассмотрим, что вы в действительности здесь сделали.
Нажав Ctrl, вы выбрали сокращенный вариант команд локальных меню
в окне Module. Нажатие I задало команду Inspect (Проверка).
