如何在Delphi中将动态数组保存到FileStream？

发布时间：2020-12-15 04:09:33 所属栏目：大数据来源：网络整理

导读：我在Delphi 2009中有以下结构： type IndiReportIndi = record IndiName: string; NameNum: integer; ReportIndiName: string; end;var XRefList: array of IndiReportIndi; 其中XRefList是动态数组. 我想将XRefList保存到FileStream.我该怎么做并包括所有In

我在Delphi 2009中有以下结构：

type
  IndiReportIndi = record
    IndiName: string;
    NameNum: integer;
    ReportIndiName: string;
  end;

var
  XRefList: array of IndiReportIndi;

其中XRefList是动态数组.

我想将XRefList保存到FileStream.我该怎么做并包括所有IndiName和ReportIndiName字符串,以便在我稍后从该FileStream加载时它们都可以再次检索？

解决方法

使用： http://code.google.com/p/kblib/

type
  IndiReportIndi = record
    IndiName: string;
    NameNum: integer;
    ReportIndiName: string;
  end;

  TXRefList = array of IndiReportIndi;

var
  XRefList: TXRefList;

要将整个XRefList保存为流使用：

TKBDynamic.WriteTo(lStream,XRefList,TypeInfo(TXRefList));

要加载它：

TKBDynamic.ReadFrom(lStream,TypeInfo(TXRefList));

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!