delphi 金木水火土 生克用法


本文整理自网络,侵删。

 
function keke(s: char): char;
begin
         result:= ' ';
  case s of
  '木': result:= '土';
  '火': result:= '金';
   '土': result:= '水';
  '金': result:= '木';
  '水': result:= '火';
  end;
end;

function sheng(s: char): char;
begin
      result:= ' ';
  case s of
  '木': result:= '火';
  '火': result:= '土';
   '土': result:= '金';
  '金': result:= '水';
  '水': result:= '木';
  end;
end;

相关阅读 >>

Delphi 弹出带黄色感叹号对话框提醒

Delphi限制edit编辑框的输入

Delphi 安装apk

Delphi listview1 中添加check选中事件

Delphi安全结束线程

Delphi sql语句查询最新的各个台位的最后一个检测值

Delphi xe2读取内存偏移数据代码

Delphi firedac sqlite不能插入"&"符号

Delphi 从twebbrowser webbrowser得到全部html源码

Delphi 如何检测你的电脑日期或时间的变化

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...