Çó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