¨ File Edit View Run
¦ ¨ File Edit View Run Breakpoints Data Options Window Help READY¦
¦ã=[*]=Module: TPDEMO file: TPDEMO.PAS 121============1=[ ][ ]¬¦
¦¦ IncLetterTable(UpCase(S[i])].Count; ^¦
¦¦ if WordLen = 0 then -¦
¦¦ Inc(LetterTable[UpCase(S[i])].FirstLetter; -¦
¦¦ Inc(WordLen); -¦
¦¦ end; -¦
¦¦ -¦
¦¦ { Îáðàáîòàòü ñ÷åò÷èê ñëîâ } -¦
¦¦ if WordLen > 0 then -¦
¦¦ begin -¦
¦¦ Inc(NumWords); -¦
¦¦ if WordLen <= MaxWordLen then -¦
¦¦ Inc(WordLenTable[WordLen]); -¦
¦¦ end; -¦
¦¦ end; { while } -¦
¦¦ end; { ProcessLine } -¦
¦¦ -¦
¦¦ function GetLine : BufferStr; -¦
¦¦ Inc(LetterTable[UpCase(S[i])].Count); v¦
¦L<----------------------------------------------------------->-¦
¦-Watches-----------------------------------------------------2¬¦
¦¦NumWords 2 ($2) : WORD ¦¦
¦L--------------------------------------------------------------¦
¦F1=HelpF2=BkptF3=CloseF4=HereF5=ZoomF6=NextF7=TraceF8=StepF9=R.¦
L----------------------------------------------------------------
Ðèñ. 3.14 Ïåðåìåííàÿ Ïàñêàëÿ â îêíå Watches
Ïåðåìåííàÿ NumWords ïîÿâèëàñü òåïåðü â îêíå Watches (Ïðîñ-
