怎么读.dat里的数据
我的c忘记光了
这.dat是用c写的,怎么用delphi把它读出来,谢谢。
struct g_power {
int ys; /*功率因素*/
long int gl; /*功率*/
};
void main(int argc,unsigned char *argv[])
{
FILE *fp;
int i,j;
struct g_power c_power[16]; //每个组当前圈功率和功率因素
if(argc != 2) {cprintf("\r\n使用说明:dis_xl 文件名");return;}
fp=fopen(argv[1],"rb");
if(fp!=NULL)
{
printf("序号 第 1组数据 第 2组数据 第 3组数据 第 4组数据 第 5组数据 ");
printf("第 6组数据 第 7组数据 第 8组数据 第 9组数据 第10组数据 ");
printf("第11组数据 第12组数据 第13组数据 第14组数据 第15组数据 ");
printf("第16组数据\n");
while(!feof(fp))
{
fread(&i,sizeof(int),1,fp);
fread(c_power,sizeof(struct g_power)*16,1,fp);
printf(" %2d ",i);
for(j=0;j<16;j++) printf(" %2d %7ld ",c_power[j].ys,c_power[j].gl);
printf("\n");
}
}
fclose(fp);
}