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

原创 2013年12月03日 15:35:48

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;


相关文章推荐

Delphi7高级应用开发随书源码

  • 2003年04月30日 00:00
  • 676KB
  • 下载

股票数据获取处理和显示的开发笔记

IDE :jetbraints webstorm 5.0.1  jdk  :jdk1.6.0_31 3d   :three.js 目的:获取股市数据,以3d的方式展示出来。 目的1:获取股票名称列表、...

关于 Delphi 中流的使用(4) 遍历读取流中的所有数据

关于 Delphi 中流的使用(4) 遍历读取流中的所有数据 unit Unit1; interface uses   Windows, Messages, SysUtils, Varian...
  • fyl_077
  • fyl_077
  • 2014年12月20日 22:53
  • 398

XLS文件格式(二) - 常见Record结构

一.概述

Delphi : record 记录类型 - 结构指针

unitUnit1;        interface      uses     Windows, Messages, SysUtils, Variants, Classes,Graph...
  • netwarm
  • netwarm
  • 2014年01月16日 15:49
  • 1514

操作卡片文件命令--读记录(READ RECORD)

1、命令功能描述     读记录命令用于读取记录文件的记录内容。     对记录文件读取操作前需要满足记录文件描述块中关于读操作的安全控制要求。   2、命令报文格式     ...

Delphi中record的使用

在Delphi中的Record类型中,与之C语言对应的即是结构体类型(struct),也可能是为了符合C语言或C++程序员的习惯,对于它在Delphi中的应用存在的一些问题进行初步的说明。在Delph...

Delphi 单元文件结构

//单元名 unit first; //接口 interface //接口开始 uses {引用单元列表,这是可选的,如果包含必须紧跟interface关键字 接口部分声明常量/类型...
  • YYstart
  • YYstart
  • 2011年07月29日 11:15
  • 560

delphi INI文件的结构及操作方法

用Windows API函数WritePrivateProfileString 和GetPrivateProfileString可对.INI文件进行读写操作。 其实,对.INI文件的读写完全可以利用...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:delphi 用record结构读取记录文件的问题
举报原因:
原因补充:

(最多只允许输入30个字)