.Values[FFieldNames.Names[AIndex*2+1]]));
end;

function TIbStorage.GetDisplayLabel(AIndex: Integer): string; //取得字段显示名称
begin
if ((AIndex < 0) or (AIndex >= FFieldNames.Count)) then
Application.MessageBox('' 取字段名索引越界'', ''程序 错误'',
Mb_Ok + Mb_IconError)
else
Result := FFieldNames.Values[GetFieldName(AIndex)];
end;

end.
通过测试，该控件对Ttable,Tquery, TaodTable, TadoQuery, TibTable, TibQuery等常用的数据集控件等都能较好的支持，并且具有较好的效率（测试：1100条人事记录，23个字段存储为文件约用时2秒钟）。

四、控件的基本使用方法
1．存储数据集中的数据到文件
IbStorage1.Open; //创建存储流
IbStorage1.SaveToFile(AdataSet, Afilename);
2．从文件中读出数据信息
IbStorage1.Open;
IbStorage1.LoadFromFile(AfileName);
3．对数据报存储控件中数据的访问
Value := IbStorage1.Fields[ArecNo, AfieldNo]; //字符串类型
其它略。
五、结束语
通过编写此数据报存储控件，较好地解决了数据库程序中数据的存储和交换问题，为数据库程序的开发提供了一种实用的控件。
该控件在Windows98，Delphi5开发环境下调试通过。