m0_46689821的博客

原创 哈哈

原创 三次即暂停

编程找bug，找多次也不行，停后冷静一下，突然想到了……电脑遇到问题时也是如此。终于总结出经验：三次即暂停????????????

原创 Delphi幻方源代码

天地玄黄翻译的如何？

原创 最小粒子问题

在这里插入代码片

原创 气功热与转基因

上世纪的气功 大潮，很多人受益，也有出偏的，跳楼的……气功师也是龙蛇混杂，到久久年轮子闹事，开始大镇压，但是没有赶尽杀绝，气功前面要加健身二字，都是健身气功了，但是也有出问题的。转基因也会如此，到时会出轮子那样的大事，然后大镇压，也不会赶尽杀绝……转基因前面要加安全二字，安全转基因但是也会出些问题的...

原创 围棋之相

围棋首先是经济，目数相当于GDP，效率相当于人均GDP。经济之上是政治，政治之上是军事。军事的出发点和终结点是经济。围棋可看成两国间经济政治军事竞争。经济学，军事学，孙子兵法，三十六计之类可以与围棋交融，相互启发。相随心起，相随心灭。围棋之相，天相，地相，人相，数学相，穷举，卷积，阴阳，五行，书法，篆刻，文法，经济，政治，军事，先琴而后棋，见高山流水棋力大涨，和谐，僵尸，求道，正统，力战，计算，感觉，禅意，内丹……围棋立相，五彩缤纷，包罗万象，象棋只能望洋兴叹！以我见为标准相，贬低它相。我宇宙，你地

原创 科学的定义有三种

在这里插入图片描述

原创 四柱定十神delphi代码

function 定十神(某天干:T天干):string;beginif (日干.五行序数+1)mod 5=某天干.五行序数 thenbeginif Odd(日干.序数)= Odd(某天干.序数) then result:=‘食’; // 同性为食if Odd(日干.序数)<>Odd(某天干.序数) then result:=‘伤’; // 异性为伤end;if (日干.五行序数+2)mod 5=某天干.五行序数 thenbeginif Odd(日干.序数)= Odd(某

原创 Delphi最简求六十花甲子纳音代码

甲1…癸10，子1…亥12function 定纳音(某天干:T天干;某地支:T地支):string;const纳音:array[1…30] of string=(‘海中金’,‘炉中火’,‘大林木’,‘路旁土’,‘剑锋金’,‘山头火’,‘涧下水’,‘城墙土’,‘白腊金’,‘杨柳木’,‘泉中水’,‘屋上土’,‘霹雷火’,‘松柏木’,‘常流水’,‘沙中金’,‘山下火’,‘平地木’,...

原创 delphi2007中if..and..then有问题

if str＝’哈哈’ and odd (h)＝true then…结果乱了。加了几个括号也还是乱只好写成 if…then if…then…才正常。这个and怎么回事？

原创 最简公历排八字的代码

有更简单的，要告诉我幺g1…g4年干月干日干时干，z1…z4地支甲1…癸10，子1…亥12procedure 确定GZ1_4;beginRiQi:= trunc ( Form1.DateTimePicker1.Date );ShiJian := frac ( Form1.DateTimePicker2.Time );decodedate(RiQi,XNian,Xyue, XRi);...

原创 最简四柱日上起时公式

也不用啥口诀，时干序数＝2×日干序数＋时支序数-2大于10则减10，大于20则减20序数甲1…癸10 子1…亥12如甲日 亥时，2×1+12-2＝12 12-10＝2 为乙亥时

原创 delphi中文变量写占术程序

占术是六大国术之一，包括六爻四柱奇门遁甲六壬……用中文写这类程序，那叫一个得心应手 type T天干=record 阴阳序数:0..1; 五行序数:0..4; 序数:1..10; 十二宫之长生:1..12; 汉字,五行汉字,十神:string; end; T地支=record 阴阳序数:0..1; 五行序数:0..4; 序数:1..12; ...

原创 Delphi简介

重要版本提示：1999 Delphi 5.0 相对完善的IDE编程。2002 Delphi 7.0 增强的Internet开发，完善数据库支持。CodeGear Delphi 2007 (2006年)Embarcadero Delphi 2010 (2009年)Embarcadero Delphi XE3 (2012年)Delphi各个版本和发展历史Delphi，是Windows平...