关于用TFileStream读写文件的问题，急~~！！

Question

有这么一个题目(TFileStream相关的习题)：
  定义一个数组，用来存储图书的编号、书名、作者、出版社和出版时间，用Edit构件显示、编辑这些信息；以流方式读写图书信息文件。
此题中如何保存数组到文件中（数组的内容不是定长），又如何读取并显示，我搞了半天都不行，望高手指教，有代码最好。问题解决马上给分，在线等....TFileStream相关操作函数：
read、write、readbuffer、writebuffer、seek,等

Answer 1

TBookInfo=record
    ID:string[10];
    Name:string[30];
    Author:string[12];
    Publisher:string[30];
    PublishDate:TDateTime;
end;var
  BookInfo:array of TBookInfo;//write:
 for i:=Low(BookInfo) to High(BookInfo) do
 begin
   FileStream.Write(BookInfo[i],SizeOf(TBookInfo));
 end;//read:
var
  ABookInfo:TBookInfo;  while FileStream.Read(ABookInfo)=SizeOf(TBookInfo) do
  begin
    SetLength(BookInfo,Length(BookInfo)+1);
    BookInfo[Length(BookInfo)-1]:=ABookInfo;
  end;