中文版Delphi源程序，谁帮我改得更完美？顺便散分 UP有分

超人汪 2003-12-31 03:48:12
个体登录;
接口

引用
窗口, 显示, 制图, 窗体, 函数；

类型
文本1: T文本;
文本2: T文本;
按钮1: T按钮;
按钮2: T按钮;
程序 按钮2点击时(发送到: TObject);
程序 按钮1点击时(发送到: TObject)；
end;

var
login窗口: Tlogin窗口;

执行

使用 Unit1, demo;

{$R *.dfm}

程序 Tlogin窗口.按钮2点击时(发送到: TObject);
开始
应用程序.终止;
如果 login窗口.关闭 那么
开始
应用程序.终止；
结束
不然的话
开始
main窗口.显示；
结束；
结束.
...全文
30 29 打赏 收藏 转发到动态 举报
写回复
用AI写文章
29 条回复
切换为时间正序
请发表友善的回复…
发表回复
liuxiaoyuzhou 2004-01-02
  • 打赏
  • 举报
 回复
op
54993699 2004-01-02
  • 打赏
  • 举报
 回复
o t,o u p
stephenli 2004-01-01
  • 打赏
  • 举报
 回复
up

新年快乐!
Samland 2004-01-01
  • 打赏
  • 举报
 回复
UP
Happy new year!
qufo 2004-01-01
  • 打赏
  • 举报
 回复
看谁还敢不学五笔，hahahaha

以后程序员是最厉害的打字员。
aiirii 2004-01-01
  • 打赏
  • 举报
 回复
Up,up
lyboy99 2004-01-01
  • 打赏
  • 举报
 回复
Up,up
pzoon 2004-01-01
  • 打赏
  • 举报
 回复
up
siwuge 2004-01-01
  • 打赏
  • 举报
 回复
新年好。
steventone 2004-01-01
  • 打赏
  • 举报
 回复
呵呵
miky 2004-01-01
  • 打赏
  • 举报
 回复
Good!
99175776 2004-01-01
  • 打赏
  • 举报
 回复
牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ█████████Ｂ牛Ｂ牛Ｂ
牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ███████████████Ｂ牛Ｂ
牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛██████████████████Ｂ牛Ｂ
牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛████████████████Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ
牛Ｂ牛Ｂ牛Ｂ牛Ｂ███████Ｂ███Ｂ牛█████牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ
牛Ｂ牛████████████Ｂ牛Ｂ牛Ｂ牛████Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ
牛██████████████Ｂ牛Ｂ牛Ｂ牛████Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ
牛████████████Ｂ牛Ｂ牛Ｂ牛Ｂ███████████Ｂ牛Ｂ牛Ｂ
牛████████████Ｂ牛Ｂ牛Ｂ牛██████████████Ｂ牛Ｂ
牛Ｂ██████████牛Ｂ牛Ｂ牛██████Ｂ牛Ｂ███████Ｂ牛Ｂ
牛Ｂ牛Ｂ牛Ｂ牛Ｂ████牛Ｂ牛Ｂ牛████Ｂ牛Ｂ牛Ｂ牛█████牛Ｂ牛Ｂ
牛Ｂ牛Ｂ牛Ｂ牛Ｂ████牛Ｂ牛Ｂ████牛Ｂ██牛Ｂ牛█████牛Ｂ牛Ｂ
牛Ｂ牛Ｂ牛Ｂ牛Ｂ████牛Ｂ牛Ｂ████牛Ｂ████牛█████牛Ｂ牛Ｂ
牛Ｂ牛Ｂ牛Ｂ牛Ｂ████牛Ｂ牛Ｂ████牛Ｂ████牛█████牛Ｂ牛Ｂ
牛Ｂ牛Ｂ牛Ｂ牛Ｂ████牛Ｂ牛Ｂ████牛Ｂ███Ｂ牛█████牛Ｂ牛Ｂ
牛Ｂ牛Ｂ牛Ｂ牛Ｂ████牛Ｂ牛Ｂ████牛Ｂ███Ｂ牛█████牛Ｂ牛Ｂ
牛Ｂ牛Ｂ牛Ｂ牛Ｂ████牛Ｂ牛Ｂ████牛████Ｂ牛█████牛Ｂ牛Ｂ
牛Ｂ牛Ｂ牛Ｂ牛Ｂ████牛Ｂ牛Ｂ████牛████Ｂ牛█████牛Ｂ牛Ｂ
牛Ｂ牛Ｂ牛Ｂ牛Ｂ████牛Ｂ牛Ｂ████牛████Ｂ牛█████牛Ｂ牛Ｂ
牛Ｂ牛Ｂ牛Ｂ牛Ｂ████牛Ｂ牛Ｂ████牛████Ｂ牛█████牛Ｂ牛Ｂ
牛Ｂ牛Ｂ牛Ｂ牛Ｂ████牛Ｂ牛Ｂ███Ｂ牛████Ｂ牛█████牛Ｂ牛Ｂ
牛Ｂ██牛Ｂ牛█████牛Ｂ牛Ｂ███Ｂ牛███牛Ｂ牛█████牛Ｂ牛Ｂ
牛Ｂ██████████牛Ｂ牛Ｂ牛██Ｂ牛██Ｂ牛Ｂ牛█████牛Ｂ牛Ｂ
牛Ｂ牛█████████牛Ｂ牛Ｂ牛Ｂ牛Ｂ███Ｂ牛Ｂ牛Ｂ████牛Ｂ牛Ｂ
牛Ｂ牛Ｂ牛███████牛Ｂ牛Ｂ牛Ｂ牛Ｂ███Ｂ████牛Ｂ牛Ｂ牛Ｂ牛Ｂ
牛Ｂ牛Ｂ牛Ｂ██████牛Ｂ牛Ｂ牛Ｂ牛████Ｂ牛█████牛Ｂ牛Ｂ牛Ｂ
牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛███牛Ｂ牛Ｂ牛Ｂ█████Ｂ牛Ｂ███████Ｂ牛Ｂ
牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ██████牛Ｂ牛Ｂ牛██████Ｂ牛Ｂ
牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛██████Ｂ牛Ｂ牛Ｂ牛███████牛Ｂ
牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ█████Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ██████牛Ｂ
牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛█████牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛████Ｂ牛Ｂ
牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ███Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ牛Ｂ███Ｂ牛Ｂ
chhuam 2004-01-01
  • 打赏
  • 举报
 回复
呵呵，笑破肚皮
101monster 2003-12-31
  • 打赏
  • 举报
 回复
呵呵！新年快乐！大家同喜！
随风飘摇的小小草 2003-12-31
  • 打赏
  • 举报
 回复
up
sndy77 2003-12-31
  • 打赏
  • 举报
 回复
顶,不久的将来程序就这样写.
noproblem12 2003-12-31
  • 打赏
  • 举报
 回复
还是不够彻底

个体登录;
接口

引用
窗口, 显示, 制图, 窗体, 函数；

类型
文本一 之 文本类;
文本二 之 文本类;
按钮一 之 按钮类;
按钮二 之 按钮类;
程序 按钮二点击时(发送者 之 对象类);
程序 按钮一点击时(发送者 之 对象类)；
结束;

变量
登陆窗口 之 登陆窗口类;

执行

使用 单元一, 演示;

{$资源 *.德尔非窗体}

程序 登陆窗口类.按钮二点击时(发送者 之 对象类);
开始
应用程序 的 终止;
如果 登陆窗口 的 关闭 那么
开始
应用程序 的 终止；
结束
不然的话
开始
主窗口 的 显示；
结束；
结束。
liuxiaoyuzhou 2003-12-31
  • 打赏
  • 举报
 回复
up
mxk19791116 2003-12-31
  • 打赏
  • 举报
 回复
你这是汉化的吧。哈哈
超人汪 2003-12-31
  • 打赏
  • 举报
 回复
好文采！好工夫，阴敬阴敬，佩服佩服！哈哈
祝大家新年快乐！！
加载更多回复（9）
DelphiXE10零基础实战快速入门
通过课堂上一个一个的实战例子，演示DelphiXE10的用法，最后通过一个完整的通讯录程序，让学员初步掌握软件开发的全部流程 让零基础学员快速入门Delphi编程，快速掌握Delphi的使用方法，并能够制作出自己的软件来。...
delphi控件使用
Standard页 1-      Tlistbox控件 重要属性items.* 举例，界面设计如下左，执行结果如下右：      代码为 procedure TForm1.Button1Click(Sender: TObject); begin edit1.Text := listbox1.Items.CommaText; edit2.Tex
我在CSDN参与的3000个帖子
 今日偶然翻到，感慨万千 1：申述：版主，是否扣了我的专家分？ 2：100分急求，随机输出十个小写字母，但是，要求这十个字母不相同 3：求Sn=a+aa+aaa+…+aaa…a（n个a）之值 4：数组题 望高手帮忙！ 5：呵呵，来推荐一下我的网站，本站提供大量当今流行的免费的音乐和免费电影，常用软件、游戏、精美图库下载,希望对网友有帮助!顺便散分! 6：VBA请教怎
delphi游戏开发网址大全
㊣ Delphi游戏开发网址大全！《转自大富翁》楼主vernal（. )( .)(事不随人愿）2002-04-12 12:29:03 在 Delphi / GAME，图形处理/多媒体 提问毋庸置疑，Delphi是一个绝佳的、强大的游戏开发平台！希望这个网址列表能对Delphi程序员普及游戏开发知识作出一点贡献！     1、     http://www.savagesoftware.co
阅读源代码系列
阅读源代码系列 转 http://blog.csdn.net/goodfriends2007/article/details/6881883 摘要：本文从阅读源代码的目的和意义开始，主要介绍了怎样阅读别人的源代码，列举了阅读开源代码的例子，以及阅读开源代码工具和阅读源代码的技巧。 引言 大家在软件开发过程中，在加入一个团队后或多或少都会接触到原来的源代码，要不是在原有基础上继续开发或者...
非技术区

828

社区成员

53,611

社区内容

发帖
与我相关
我的任务
社区描述
Delphi 非技术区
社区管理员
  • 非技术区社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章