超牛B的一段程序（强烈推荐）
个体登录;
接口
引用
窗口, 显示, 制图, 窗体, 函数；
类型
文本一: 文本类;
文本二: 文本类;
按钮一: 按钮类;
按钮二: 按钮类;
程序 按钮二点击时(发送到: 对象类);
程序 按钮一点击时(发送到: 对象类)；
结束;
变量
登陆窗口: 登陆窗口类;
执行
使用 单元一, 演示;
{$资源 *.德尔非窗体}
程序 登陆窗口类.按钮二点击时(发送到: 对象类);
开始
应用程序.终止;
如果 登陆窗口.关闭 那么
开始
应用程序.终止；
结束
不然的话
开始
主窗口.显示；
结束；
结束.
{。现征集各种版本的中文程序N篇，请大家踊跃参加。为了我们的明天更美好，我们一定要研究出一个标准化的中文开发语言}
问题点数：0、回复次数：26Top
