Delphi中利用File Of Type创建并维护类数据库型二进制记录文档

最新推荐文章于 2024-05-03 13:54:10 发布

左眼看成爱

最新推荐文章于 2024-05-03 13:54:10 发布

阅读量484

点赞数

分类专栏： Delphi 文章标签： file of type 数据库记录二进制结构

本文链接：https://blog.csdn.net/wh445306/article/details/106613316

版权

这篇博客介绍了如何在Delphi中利用File Of Type来创建和管理类数据库型的二进制记录文档。博主分享了原创代码，并展示了在不同Delphi版本上的测试结果，强调了代码的适用性和移植性。

摘要由CSDN通过智能技术生成

话不多说，直接上代码：

 //定义存储数据结构
type
  TStudent = record
    ID:      Integer;
    Age:     Integer;
    Name:    string[10];
    Email:   string[50];
    Sex:     string[5];
    Address: string[100];
  end;

const sFile ='student.stu';  //存储文件名


var
  Form1: TForm1;
  stu: TStudent;

implementation

{$R *.dfm}



//初始化生成10条记录并以二进制写入文件保存
procedure TForm1.btnInitDataClick(Sender: TObject);
var
  F: file of TStudent;    //file of type type必须是固定大小的，不能是对象, String, Variant等
  Students: array[1..10] of TStudent;
  i: Integer;
begin
  try
    AssignFile(F, sFile);
    //Rewrite(文件变量名);若无该文件，则创建文件，若有该文件，覆盖掉原文件。
    Rewrite(F);
    Randomize;//初始化随机种子,生成随机年龄
    for i := 1 to 10  do
    begin
      Students[i].ID := 100+i;
      Students[i].Age := random(15)+10;   //随机10-25以内的数字
      Students[i].Name := 'Name' + IntToStr(i);
      Students[i].Email := 'Email