Enter item prompted for in
¦¦ procedur¦ Numletters + 4 ¦ ¦¦
¦¦ ¦ OK Cancel Help ¦ ¦¦
¦¦ function¦ -- ------ ---- ¦ ¦¦
¦¦ begin L================================================- ¦¦
¦¦ IsLetter := UpCase(ch); ¦¦
¦¦ end; { IsLetter } ¦¦
¦¦ ¦¦
¦¦ var ¦¦
¦¦ i : integer; ¦¦
¦L--------------------------------------------------------------¦
¦-Watches-----------------------------------------------------2¬¦
¦¦NumWords 2 ($2) : WORD ¦¦
¦L--------------------------------------------------------------¦
¦ Enter item prompted for in dialog title ¦
L----------------------------------------------------------------
Ðèñ. 3.17 Äèàëîãîâîå îêíî êîìàíäû Change
 çàãîëîâêå äèàëîãîâîãî îêíà âàì ñîîáùàåòñÿ: Enter new value
for unsigned long totalcharacters (ââåäèòå íîâîå çíà÷åíèå äëÿ ïå-
ðåìåííîé totalcharacters òèïà unsigned long), à â íèæíåé ñòðîêå
ýêðàíà ãîâîðèòñÿ: Enter item prompted by a dialog title (ââåäèòå
ýëåìåíò äàííûõ, óêàçàííûé â çàãîëîâêå äèàëîãîâîãî îêíà).
 äàííûé ìîìåíò âû ìîæåòå ââåñòè ëþáîå âûðàæåíèå Ïàñêàëÿ,
TDeb 3.0 #1-3 = 92 =
ïðè âû÷èñëåíèè êîòîðîãî ïîëó÷àåòñÿ ÷èñëî. Íàáåðèòå NumLetters+4 è
íàæìèòå êëàâèøó Enter. Â îêíå ïðîâåðêè òåïåðü áóäåò ïîêàçàíî íî-
âîå çíà÷åíèå 10.
Äëÿ èçìåíåíèå ýëåìåíòà äàííûõ, êîòîðûé íå âèäåí â òåêóùåì
îêíå Module, âûáåðèòå êîìàíäó Data¦Evaluate/Modify (Äàííûå¦Âû÷èñ-
ëåíèå/Ìîäèôèêàöèÿ) ëîêàëüíîãî ìåíþ îêíà Module (Ìîäóëü).
