频道分类

delphi 金木水火土 生克用法

作者:admin 来源: 日期:2020/2/27 17:11:32 人气: 标签:

 
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 获取剪切板图像下一篇:没有资料