例7-22.prg

来自「几个VFP程序实例」· PRG 代码 · 共 18 行

* local和 private命令的比较示例
public x,y
x=10
y=100
do p8
? x,y           && 显示aaa .F.
* 过程p8
procedure p8
private x       && 隐藏上层模块中的变量x
x=50            && 建立私有变量x，并赋值50
local y         &&隐藏同名变量，建立局部变量y
do p9
? x,y           && 显示 10 bbb
* 过程p9
procedure p9
x='aaa'
y='bbb'
return