易截截图软件、单文件、免安装、纯绿色、仅160KB

求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


相关问答:

Delphi怎么取返回内容中的指定部分.

返回的内容是如下代码,怎么能渠道2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......

请教下,用DELPHI做SOHU的 - Delphi / 非技术区

一般都是怎么接活的?
收入怎么样
sohu?soho?

sohu 可能是small office house unit
小办公室,把家变成单位。

去威客网啊,很多个呢,还有外包的网站

学习学习。

现在Delphi做东西不行了,处于淘汰状 ......

delphi 征集高手分析

小弟最近做了几个服务 服务运行需要一些参数 参数是通过一个程序界面修改的 参数保存在access数据库中 现在出现一灵异现象 单独的服务是可以进行控制的(服务的停止 暂停等等)但是多个服务一起开启会出现一服务开 ......

简单SQL语言 - Delphi / 数据库相关

数据: 年 月 日 开盘 收盘
使用下面语句搜索到了 每年每个月的月初和月末都是几号  
select 年,月,MIN(日) as frist,MAX(日) AS laset from mt4his.DB GROUP BY 年,月
我想得到 每年每个月的月初和月末 ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号