WITH ... ENDWITH 命令示例

下面的示例创建了名为 Employee 的自定义类，在用 CREATEOBJECT( ) 创建了 Employee 类以后，可以用 WITH ... ENDWITH 为类设置多个属性，然后显示属性值。

moemployee = CREATEOBJECT('employee')

WITH moemployee
.First_Name = 'John'
.Last_Name = 'Smith'
.Address = '16 Maple Lane'
.HireDate = {02/16/95}
ENDWITH

CLEAR
? moemployee.First_Name + ' '
?? moemployee.Last_Name
? moemployee.Address
? moemployee.HireDate

DEFINE CLASS employee AS CUSTOM
First_Name = SPACE(20)
Last_Name = SPACE(20)
Address = SPACE(30)
HireDate = { \ \ }
ENDDEFINE