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自带的indy控件实现md5加密

Delphi中的sender：tobject对象解析

Delphi sametext

Delphi 使用钩子函数

检查是否在Delphi xe7中启用或禁用了android蓝牙

Delphi使焦点固定到一个button上

汇编基础寄存器

Delphi idhashmessagedigest, idhash, idglobal md5

Delphi listboxadditems() 不重复添加edit1

Delphi 系统对话框（如浏览目录）被隐藏到主窗体后面造成程序无法操作的临时处理方式

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

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