关闭

delphi 用record结构读取记录文件的问题

1237人阅读 评论(0) 收藏 举报
分类:

type //曲线分析

  TQxfx = record

    TTName :  string[128];

    ZName :   string[128];

    Xl30150 : Real;

    sjl30150 : Real;

    xl150170 : Real;

    sj150170 : Real;

    hhxv     : Real;

    hl217sj  : Real;

    fzwd     : Real;

    fzwdc    : Real;

    jwxl     : Real;

    jwsj     : Real;

 end;



type

  TFileSysTem = record

    qxfx : TQxfx;


 end;





procedure TFormTest.Open1Click(Sender: TObject);

var

  Fsys:TFileSysTem;

  F : File of TFileSysTem;

begin

  Fsys.qxfx.TTName:= 'aa33333333333333333333';

  AssignFile(f,'c:\1.dat');

  Rewrite(f);

  write(f,fsys);

  CloseFile(f);

end;


procedure TFormTest.read1Click(Sender: TObject);

var

  ss,Fsys:TFileSysTem;

  F : File of TFileSysTem;

  i:Integer;

begin

  AssignFile(f,'c:\1.dat');

  Reset(f);

  if not Eof(f)then begin

   read(f,fsys);

   edit1.Text :=fsys.qxfx.TTName;

   CloseFile(f);

  end;

end;


0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:88057次
    • 积分:1253
    • 等级:
    • 排名:千里之外
    • 原创:33篇
    • 转载:52篇
    • 译文:0篇
    • 评论:6条
    文章分类
    最新评论