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》频道 >>

转载请注明出处：木庄网络博客 » delphi 金木水火土 生克用法