求Delphi高手 - Delphi / 语言基础/算法/系统设计
我要将下面的C语言改写成delphi语言：
fgets(c_str, 80, wmmdat);
if (sscanf(c_str,"%lf%s",&epoch,model) < 2)
{
fprintf(stderr, "Invalid header in model file WMM.COF\n");
exit(1);
}
S3:
if (fgets(c_str, 80, wmmdat) == NULL) goto S4;
/* CHECK FOR LAST LINE IN FILE */
for (i=0; i<4 && (c_str[i] != '\0'); i++)
{
c_new[i] = c_str[i];
c_new[i+1] = '\0';
}
icomp = strcmp("9999", c_new);
if (icomp == 0) goto S4;
/* END OF FILE NOT ENCOUNTERED, GET VALUES */
sscanf(c_str,"%d%d%lf%lf%lf%lf",&n,&m,&gnm,&hnm,&dgnm,&dhnm);
if (n > maxord) goto S4;
if (m > n || m < 0.0)
{
fprintf(stderr, "Corrupt record in model file WMM.COF\n");
exit(1);
}
if (m <= n)
{
c[m][n] = gnm;
cd[m][n] = dgnm;
if (m != 0)
{
c[n][m-1] = hnm;
cd[n][m-1] = dhnm;
}
}
goto S3;
我的改写如下：
list1:= tstringlist.Create;
list2:=tstringlist.Creat
相关问答：
已知Python 中：
s = unicode("测试", "gb2312")
s = u'\u6d4b\u8bd5'
print s
测试
在Delphi里面如何将\u6d4b\u8bd5这样的还原成Gb2312的汉字呢？
找到个方法
......
程序使用的是Orcal数据库，想定期（每季度）对数据库进行备份，没啥头绪，请问应该怎么弄？
有什么特殊要求吗，比如要前端界面？
一般用数据库自带的“计划任务”配置一下就够了
没有什么特殊要求。例如，只要� ......
在安装完成Delphi的时候，打开Delphi进入窗口，点运行的时候为什么自动停止运行了。
什么意思，是新建的应用运行停止，还是程序停止了呢。
没明白LZ意思~~
引用
在安装完成Delphi的时候，打开De ......
小弟最近做了几个服务 服务运行需要一些参数 参数是通过一个程序界面修改的 参数保存在access数据库中 现在出现一灵异现象 单独的服务是可以进行控制的（服务的停止 暂停等等）但是多个服务一起开启会出现一服务开 ......
数据： 年 月 日 开盘 收盘
使用下面语句搜索到了 每年每个月的月初和月末都是几号
select 年,月,MIN(日) as frist,MAX(日) AS laset from mt4his.DB GROUP BY 年,月
我想得到 每年每个月的月初和月末 ......
