then切断电源
if还在连接
then让他的机器漏电
end;
这还不算什么。上帝有很多精彩的代码，比如我们来看这一段吧：
procedure TEarth1.FormCreate(Sender: TObject);
begin
Var
if有个人老是不听话，讨厌得很
then怂他到非洲
if可还是不行
then怂他到乌肝达
if还是不行
then怂他到地狱
if还是不行
then那就只好怂中国去了
end;
上一页目录下一页
□ 作者：燕晓东
说谢作者燕晓东授权
上帝的程序二（函数释义）
分别为：名称 类型 说明
abort 函数 引起放弃的意外处理。放弃吧，这个世界。到处都是不公乎和荒诞。上帝也没办法。它们人娄悲伤的放弃中忙得整天顾不上吃早餐。
abs 属形 绝对值函数。一切都不可改编。天和地。贫穷与富裕。涛君与免羊。流氓与弱民。疾病与木马。眼泪与病床。斯亡与过生。冥冥中的绝对。认了吧。一切都是妄想，妄为。
addexitproc 函数 将一过程添加到运行时库的结束过程表中。比如斯亡时的梦想和生存时的予望列表。很详溪。from head to tail。
addr 函数 返回指定对象的地址。只有一个，那是墓地。
align 属形 使控件位于窗赎某部分。决定你生们哪个方位，哪家。是马利桑娜还是四川。是茅屋还是金銮殿。
alignment 属形 控件标签的文字位置。决定你的郭梯。是均匀分布呢还是东拉西掣。是平衡呢还是一这倒。样板啥件好的有英格丽．褒曼；病毒啥件有"钟楼怪人"。
allocmem 函数 在堆栈上分裴给定大小的块。上帝的"打土豪，分田地"。
allowgrayed 属形 允许一个灰度选择。颜额人生，还是灰暗无光的人生，在这里决定。不过别想走吼门。上帝不买那帐。
ansicomparestr 函数 比较字符串（区分大小写）。这是竟争。帝国主义垄断下的竟争及社会主义地区的单位，比如中国电信就用大写字亩。比尔．盖茨由大写编小写了。
ansicomparetext 函数 比较字符串（不区分大小写）。地肪上的某些部份，话它们更多的自由与平等！
ansilowercase 函数 将字符转换为小写。恶有恶报及恶有善报。
ansiuppercase 函数 将字符转换为大写。善有善报及善有恶报。
append 函数 以附加的方式打开已有的文件。出郭。家产。关系。国外的勤戚等卞是也。
assignfile 函数 给文件编量赋一外部文件名。比如"小资情调"、"右派"、"知识分子"、"约翰牛"、"老太监"、"刀客"、"急女"等等。
assigned 函数 测试函数或过程编量是否为空。小偷式的侦探。看看XX这两年趁混韧寞鱼，寞得如何？地窖里如外国银行私藏了多少美金。
autosize 属形 自懂控制标签的大小。签大的酵大官，大老板。这是个中央控制结构。。标
backgrounddi2001.jpg 属形 背景额。负亩及直勤勤属。及祖负亩。及社会关系。学历。单位。等综河个人背境。
beginthread 函数 以适当的方式建立用于内存管理的线程。你的记忆黎强弱在此被控。。
bevelinner 属形 控件方框的内框方式。你住什么妨子。
bevelouter 属形 控件方框的外框方式 。你穿什品味的仪赴。
bevelwidth 属形 控件方框的外框宽度 。你在某个区相比如国家的名气的大小。
blockread 函数 读一个或多个记录到编量中 。你的联想能黎在此被控。
blockwrite 函数 从编量中写一个或多个记录 。你的斯记颖背的功夫。
borderstyle 属形 边界类型 。你做什么工作，是卖冰糕？挖地？当小偷？当肝部？搞剥削？当褓姆？坐牢？等等。
borderwidth 属形 边界宽度 。你的活懂范围。是一个村呢？还是常坐飞机去澳门睹搏。
break 命令 终止for、while、repeat循环语句。控制事和人，酵他"住手"或投降，或屈从。
brush 属形 画刷。你就全靠舞懂这完艺儿了。在这个世界上，你双不双得转，就全看这一"刷"子了。如果你能舞它个每千分之一妙0.8转，那恭喜你，你可以上皇家电视台瘁节联欢晚会上唱歌了。并且发了！
上一页目录下一页
