â êîòîðîì âû ìîæåòå ââåñòè
Ïðè ýòîì
áóäåò âûâåäåíî äèàëîãîâîå îêíî, â êîòîðîì âû ìîæåòå ââåñòè èìÿ
èçìåíÿåìîé ïåðåìåííîé. Íàáåðèòå èìÿ NumLines è íàæìèòå êëàâèøó
Enter. Íàæìèòå äâàæäû êëàâèøó Tab, çàòåì íàáåðèòå 123 è íàæìèòå
Enter.
TDeb 3.0 #1-3 = 93 =
----------------------------------------------------------------¬
¦¨ File Edit View Run Breakpoints Data Options Window HelpPROMPT¦
¦--[*]-Module: TPDEMO file: TPDEMO.PAS 103--------------1-----¬¦
¦¦ ¦¦
¦¦ procedure Init; ¦¦
¦¦ begin ¦¦
¦¦ NumLinea:ã[*]==============Evaluate¦Modify=============¬ ¦¦
¦¦ FillChar(¦Expression ¦ Eval ¦ ¦¦
¦¦ FillChar(¦ NumLines ¦ ------ ¦ ¦¦
¦¦ Writeln('¦--------------------------------¦ Cancel ¦ ¦¦
¦¦ end; { Init¦Result ¦ ------ ¦ ¦¦
¦¦ ¦123 ($7B) : WORD ¦ Help ¦ ¦¦
¦¦ procedure P¦-------------------------------^¦ ------ ¦ ¦¦
¦¦ ¦New value -¦ Modify ¦ ¦¦
¦¦ function Is¦ 123 v¦ ------ ¦ ¦¦
¦¦ begin L=============================================- ¦¦
¦¦ IsLetter := UpCase(ch); ¦¦
¦¦ end; { IsLetter } ¦¦
¦¦ ¦¦
¦¦ var ¦¦
¦¦ i : integer; ¦¦
¦L--------------------------------------------------------------¦
¦-Watches-----------------------------------------------------2¬¦
¦¦NumWords 2 ($2) : WORD ¦¦
