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



打赏

取消

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

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

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

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

评论

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

    正在狠努力加载,请稍候...