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读写文本文件 assignfile reset append

Delphi 创建大窗口

Delphi 动态创建窗体

Delphi xe5如何像手机qq一样最小化后显示图标

Delphi调用http接口上传文件

Delphi sql server 主从表例子

Delphi cpu窗口的扩展学习

Delphi 判断当前活动窗口

Delphi 几个实用的html解析函数

Delphi 显示windows断开网络驱动器对话框

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

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