谁能帮我设计一个10进制转换到60进制的程序呀 谁能帮我设计一个10进制转换到60进制的程序呀,我想用60甲子的干支来表示救助! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 同意楼上const cTianGan: WideString = '甲乙丙丁戊己庚辛壬癸'; cDiZhi: WideString = '子丑寅卯辰巳午未申酉戌亥';var I: Integer;begin for I := 0 to 60 - 1 do begin Memo1.Lines.Add('' + cTianGan[I mod 10 + 1] + cDiZhi[I mod 12 + 1]); end;end; 那里有比较经典,比较专业的专家系统编程书籍,最好有例子 TOKEN_PRIVILEGES 软件加后门 c/s问题,求助? GetFileSize为负值?Bug?大家看看我的“得到文件大小函数” 求函数或方法 现知道 一个控件的句柄 现在想得到这个控件的父窗口句柄 开机关机的消息如何获得阿? 冒帖子被转移之痛苦求助!分不够再加!! 怎样在stringGrid里用回车代替TAB实现焦点在单元格里移动,和怎样用DELETE删除一行? CRM系统方案 为什么调用函数提示我少操作 AdoTable.Filter与like语句问题
const
cTianGan: WideString = '甲乙丙丁戊己庚辛壬癸';
cDiZhi: WideString = '子丑寅卯辰巳午未申酉戌亥';
var
I: Integer;
begin
for I := 0 to 60 - 1 do
begin
Memo1.Lines.Add('' + cTianGan[I mod 10 + 1] + cDiZhi[I mod 12 + 1]);
end;
end;