Note | 该命令在头文件中定义,将由 X# 预处理器预处理为函数调用。如果禁用标准头文件 (-nostddefs),该命令将不可用。如果告诉编译器使用不同的标准头文件(-stddef ),则此命令也可能不可用。 |
打开/关闭屏幕显示
SET CONSOLE ON | off | <lToggle>
<lToggle> | 逻辑表达式,必须放在括号内。可以为 .T. 指定 ON 选项,或为 .F. 指定 OFF 选项,而不是逻辑表达式。指定 .T. 或 ON 时(默认值),所有输出都会显示在屏幕上。如果设置为 OFF,则屏幕上使用 ? 或 ?等命令的输出将被抑制。 |
SET CONSOLE 命令用于停用或激活屏幕上的字符输出。这包括像 ? 这样的命令以及像 QOut() 或 QQOut() 这样的函数,它们总是从当前光标位置开始输出。
当 SET CONSOLE 设置为 ON 时,输出将显示在屏幕上。也可以并行输出到文件(命令 SET ALTERNATE)。
FUNCTION Start
USE Customers NEW
SET ALTERNATE TO CustomerList.TXT
SET CONSOLE OFF
DO WHILE .NOT. Eof()
? Customers->LastName, Customers->FirstName
? Customers->Street
? Customers->City + ",", Customers->State, Customers->Zip
?
SKIP
ENDDO
SET ALTERNATE TO
SET CONSOLE ON
USE
RETURN
Visual FoxPro 方言示例(同上):
/// <summary>
/// X# 版本:2.20.0.3
/// </summary>
Function Start() As Void Strict
*!* USE Customers New && 当然,在 VFP 方言中也有效,但是下面的语句更兼容 VFP 语法
Select 0
Use customers
Set Alternate To CustomerList.TXT
Set Console Off
*!* 也可以使用 not 或者 ! 替换 .not.
*!* 也可以省略 customers.
Do While .not. Eof()
? customers.LastName, customers.FirstName
? customers.Street
? customers.City + ",", customers.State, customers.Zip
?
Skip
Enddo
Set Alternate To
Set Console On
Use
Return
XSharp.RT.DLL
SetConsole(), SET ALTERNATE